Laman

Minggu, 17 Oktober 2010

Membuat Nomor Otomatis Dari Tanggal

      Saya sekarang akan membahas cara membuat program nomor otomatis dari tanggal.
      Anda pasti tau bahwa struk penggajian itu ada nomor otomatisnya. Butul/tidak?
      Nah ini caranya membikin nomor otomotis tergantung tanggalnya.
      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).
      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 &
"\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
'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