Kode Barang Otomatis di Access coba kita buat cara membuatnya bisa dilihat di theonlygesta
Assalamualaikum wr wb.. Yuk ketemu lagi dan mampir lagi di blog saya semoga kalian tidak bosen ya..
Oke dikesempatan kali ini saya akan membagikan sebuah cara bagaimana membuat kode barang otomatis pada access..
Langkah pertama kalian pastinya harus sudah membuat form di bagian sini saya sudah membuat form barang dimana nanti kode barang yang sebelumnya saya sudah buat nantinya akan saya buat otomatis ketika tombol button tambah saya klik..
On Error GoTo Command57_Click_Err
Dim no
DoCmd.GoToRecord , , acLast
no = Right(ID_PASIEN, 3)
no = Val(no) + 1
no = Trim(Str(no))
no = Mid("000", 1, 3 - Len(no)) + no
DoCmd.GoToRecord , , acNewRec
ID_PASIEN = "NOPAS" + no
Command57_Click_Exit:
Exit Sub
Command57_Click_Err:
ID_PASIEN = "NOPAS001"
Resume Command57_Click_Exit