Saudara Rully Arfan, Algoritma Begini:
Untuk memudahkan tambahkan field Bantu idx_urut di tabel tersebut.
Ambil bulan dan tahun dari tanggal sekarang, terus cari di table
tersebut nilai tertinggi dari tabel tersebut
berdasarkan bulan dan tahun saja. (Jika tanggal dari sistem) jika
bukan ambil dari (tanggalinput)
Contoh: (tanggal dari system, field name tgl_trans)
mySQL = "SELECT max(idx_urut) as Max_idxUrut FROM tbl_pinjaman" _
& " where Month(tgl_trans)=" & Month(Now) & " and " _
& " year(tgl_trans)=" & Year(Now)
Set myRecPJM = CurrentDb(). OpenRecordset( mySQL)
counter=iif(IsNull(myRecPJM("Max_idxUrut)),0,myRecPJM("Max_idxUrut));
counter=counter+1
no_pinjaman=Format(Month(Now),"00") & Format(Year(Now),"0000")& "-" &
Format(counter,"0000")
Silahkan coba, untuk syntax jika terjadi error sesuaikan, saya buat
tanpa editor vb, selamat mencoba.....
