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:
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
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
Post a Comment