Hallo VBers, dan sushu-2x sekalian....
Salam Kenal saya Newbie ni.., mau tanya gimana ya algoritma dan kode untuk
membuat counter no urut yang di gabungan dengan "mmyy", nanti apabila bulan
berganti couter tersebut kembali lagi ke angka 0001
contoh : January 2008 nourut = 0108-0001 ...n sampai 31 Jnuary 2008
setelah bulan berganti Februari 2008 maka nomorurut kembali
0208-0001
sebelumnya saya inta maaf, sebenarnya saya biasa bekerja dengan VBA nya MS
Acssess, tapi saya pikir dengan VB kita sama-2x satu rumpun....;)), saya buat
dengan VBA di Ms Acsess seperti ini...
Dim singcounter As Single
sigcounter = Me.counter
mySQL = "SELECT * FROM tbl_pinjaman"
Set myRecPJM = CurrentDb().OpenRecordset(mySQL)
If Not myRecPJM.EOF And Not myRecPJM.BOF Then
Me.counter = singcounter + 1
Else
Dim tempcounter As Single
tempcounter = Me.counter
myRecPJM.MoveLast
Me.counter = tempcounter + 1
End If
Me.No_Pinjaman = "' & me![tempTgl] & '+' & Me![tempcounter] & '"
Tapi ngak berhasil...., pas di awal record., tapi record ke dua ngak
maslah..,mudah-2xan rekan-2x adayang bisa meluruskan...
Sorry kalau penjelanya agak binggung..
Mohon bantuannya ya..............
Regards,
Rully Newbie... banget..;))
________________________________________________________
Bergabunglah dengan orang-orang yang berwawasan, di di bidang Anda! Kunjungi
Yahoo! Answers saat ini juga di http://id.answers.yahoo.com/
