Search This Blog

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.

2 comments:

Anonymous said...

Gan, misalkan saya mau buat nomor faktur otomatis contoh "FAK0001" dimana datanya nanti akan nambah 1 terus, bagaimana proses pembuatannya dari awal yaitu dari tabel, sampai koding di VBA, tanpa harus memakai tombol untuk mengeksekusi perintahnya.

Trims
Abdullah

Anonymous said...

Public Function GlobNomorFaktur(strNomorFaktur As String) As String
Dim intTemp As Integer
Dim strTemp As String
intTemp = Right(strNomorFaktur, 4)
intTemp = intTemp + 1
strTemp = "FAK" & Format(intTemp, "0000")
GlobNomorFaktur = strTemp

End Function