Search This Blog

Loading...

Membuat ID Dengan Script Program

Jika dalam membuat aplikasi Access anda perlu membuat data unik untuk suatu field, misalnya id penjualan atau id pembelian, anda dapat menggunakan script program untuk mempermudah pembuatan id unik tersebut.

Pada posting kali ini saya akan memberikan contoh membuat id unik berdasarkan data yang diambil dari waktu pada sistem komputer yang digunakan. Data yang diambil adalah tahun, bulan, hari, jam, dan menit.

Pertama-tama buat sebuah form dengan satu buah text box dan satu buah tombol. Pada event on click pada tombol buat script sebagai berikut:

Private Sub cmdIDUnik_Click()
On Error GoTo myErr
If Me.TextBox1.Value = "" Or IsNull(Me.TextBox1.Value) Then
Me.NIP.Value = Format(Now(), "YYMMDDhhmm")
End If
Exit Sub
myErr:
MsgBox Err.Description
End Sub

Pada contoh ini textbox1 akan diisi data tahun, bulan, hari, jam, dan menit masing-masing dalam format 2 digit jika textbox1 kosong.
Post a Comment