begini saya lagi kebingungan bagaimana cara membuat procedur untuk membuat agar
setiap pemasukan nama suatu perusahaan mendapatkan kombinasi kode PER dengan
penambahan - dan pemberian no 0000 + 1
jadi hasilnya menjadi PER-0001, kemudian seterusnya PER-000x
saya udah coba seperti dibawah ini but gak berhasil mohon penjelasannya dari
teman-teman
Private Sub Form_BeforeInsert(Cancel As Integer)
On Error Resume Next
Me.KODE_PER = "PER" & Format(Nz(DMax("KODE_PER", "TBL_PERUSAHAAN"), 0) + 1,
"000")
End Sub
atas bantuannya saya ucapkan banyak terima kasih
honey muswardana
