Modifikasi Penomoran Automatis (autonumbering)

Sebenernya ini hanya sedikit modifikasi dari postingan saya terdahulu,yang bisa kalian lihat disini.Auto numbering atau auto number sering digunakan di dalam pemprograman...namun perlu anda ketahui,jika format dari auto number tsb memiliki format tertentu,dan diambil berdasarkan data di database.
Sebelum kita lanjutkan,pastikan kalian buat database dengan satu buah table,
jika sudah,kita mulai ajah deh tutorial ini.
Nah dalam hal ini,saya asumsikan telah memiliki database dengan struktur table sbb :
Table Barang :

Fields	Type	Size	Ket
kdbrg	text	5	Primary key
nama	text	25

Syarat yang dibutuhkan:

1. - Label (1)
2. - TextBox(1)
3. - Adodc (1)
4. - MHSFlexGrid(1)
5. - CommandButton(1)

Lalu kalian buka jendela listing,dan ketik kan listing dibawah ini :

1. adodc1.recordsource="select*from barang"  
2. adodc1.refresh  
3. with adodc1.recordset  
4. if .BOF and .EOF then  
5. txtkdbrg = "B-" + "001"  
6. else  
7. .movelast  
8. txtkdbrg = "B-" + right(str(val(right(!kode,3))+1001),3)  
9. End if  
10. End with  

Keterangan :
Baiklah,dari listing diatas bisa kita tarik kesimpulan sbb:

1. adodc1.recordsource="select*from barang"  
2. adodc1.refresh  

*Listing diatas berfungsi sebagai pengkoneksian antara form dengan table di database

1. with adodc1.recordset  

* Listing diatas berguna untuk mengurangi penulisan berulang kali (adodc1.recordset)

1. if .BOF and .EOF then  

* Untuk percabangannya dimaksudkan jika posisi record kosong

1. txtkdbrg = "B-" + "001"  

*jika posisi record kosong maka akan ditampilkan pada textbrg

1. else  
2. .movelast  
3. txtkdbrg = "B-" + right(str(val(right(!kode,3))+1001),3)  
4. End if  
5. End with  

Nah inti dari artikel kali ini adalah tentang gimana caranya memodifikasi auto numbering ???
Coba kalian lihat dari total keseluruhan listingnya

1. adodc1.recordsource="select*from barang"    
2. adodc1.refresh    
3. with adodc1.recordset    
4. if .BOF and .EOF then    
5. txtkdbrg = "B-" + "001"    
6. else    
7. .movelast    
8. txtkdbrg = "B-" + right(str(val(right(!kode,3))+1001),3)    
9. End if    
10. End with  

untuk mempermudah kalian lihat pada bagian percabangan "IF" nya

1. if .BOF and .EOF then    
2. txtkdbrg = "B-" + "001"    
3. else    
4. .movelast    
5. txtkdbrg = "B-" + right(str(val(right(!kode,3))+1001),3)    
6. End if 

Pada baris ke-2 dan ke 5 lah yang perlu anda sedikit modifikasi, dalam hal ini saya ingin menampilkan digit numbering dengan format >> (2digit thn, 2digi bulan, 3digit auto numbernya)
caranya kalian edit baris ke-2 dan ke-5 menjadi :

1. if .BOF and .EOF then      
2. txtkdbrg = "B-" & format(date,"yymm")+ "001"      
3. else      
4. .movelast      
5. txtkdbrg = "B-" & format(date,"yymm") + right(str(val(right(!kode,3))+1001),3)      
6. End if   

Gimana?kalau masih ada yg bingung,silahkan bertanya, Semoga Bermanfaat

Klik Like/share jika anda menyukai tulisan ini