Saya sekarang akan membahas cara membuat program nomor otomatis dari tanggal.
Anda pasti tau bahwa struk penggajian itu ada nomor otomatisnya. Butul/tidak?
Pertama bikin form seperti yang terlihat disamping.
Membuat Nomor Otomatis Dengan Pola Tanggal
(YYMMDD + Nomor Urut), pertama anda harus memiliki database dan sebuah tabel (contoh nama databasenya adalah dbdemofaktur, nama tabel Faktur, nama field NoFaktur).
(YYMMDD + Nomor Urut), pertama anda harus memiliki database dan sebuah tabel (contoh nama databasenya adalah dbdemofaktur, nama tabel Faktur, nama field NoFaktur).
Lalu masukan coding ini pada comand button:
Dim Conn As New ADODB.Connection
Dim RS As ADODB.Recordset
Sub Koneksi()
Set Conn = New ADODB.Connection
Set RS = New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path &
Dim RS As ADODB.Recordset
Sub Koneksi()
Set Conn = New ADODB.Connection
Set RS = New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path &
"\dbdemofaktur.mdb"
End Sub
Private Sub Command1_Click()
Dim simpan As String
simpan = "insert into faktur(nofaktur) values ('" & LblFaktur & "')"
Conn.Execute simpan
Form_Activate
End Sub
Private Sub Command1_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then End
End Sub
Private Sub Form_Activate()
Call oto1
End Sub
Private Sub Command1_Click()
Dim simpan As String
simpan = "insert into faktur(nofaktur) values ('" & LblFaktur & "')"
Conn.Execute simpan
Form_Activate
End Sub
Private Sub Command1_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then End
End Sub
Private Sub Form_Activate()
Call oto1
End Sub
'faktur nama tabel
'nofaktur nama field
Private Sub oto1()
Call Koneksi
RS.Open "select * from Faktur Where noFaktur In(Select
Max(noFaktur)From Faktur)Order By noFaktur Desc", Conn
RS.Requery
Dim Urutan As String * 8
Dim Hitung As Long
With RS
If .EOF Then
Urutan = Format(Date, "YYMMDD") + "01"
LblFaktur = Urutan
Else
If Left(!noFaktur, 6) <> Format(Date, "YYMMDD") Then
Urutan = Format(Date, "YYMMDD") + "01"
Else
Hitung = Right(!noFaktur, 2) + 1
Urutan = Format(Date, "YYMMDD") + Right("00" & Hitung, 2)
End If
End If
LblFaktur = Urutan
End With
End Sub
Nah itu codingnya, baiklah sampai ketemu lagi di modil berikutnya. Selamat Mencoba!. :)
'faktur nama tabel
'nofaktur nama field
Private Sub oto1()
Call Koneksi
RS.Open "select * from Faktur Where noFaktur In(Select
Max(noFaktur)From Faktur)Order By noFaktur Desc", Conn
RS.Requery
Dim Urutan As String * 8
Dim Hitung As Long
With RS
If .EOF Then
Urutan = Format(Date, "YYMMDD") + "01"
LblFaktur = Urutan
Else
If Left(!noFaktur, 6) <> Format(Date, "YYMMDD") Then
Urutan = Format(Date, "YYMMDD") + "01"
Else
Hitung = Right(!noFaktur, 2) + 1
Urutan = Format(Date, "YYMMDD") + Right("00" & Hitung, 2)
End If
End If
LblFaktur = Urutan
End With
End Sub
Nah itu codingnya, baiklah sampai ketemu lagi di modil berikutnya. Selamat Mencoba!. :)
0 komentar:
Posting Komentar