Membuat No Faktur / Invoice Format Tanggal Otomatis

Jika pada postingan Sebelumnya kita telah bisa membuat No Faktur Pola Nomor urut, sekarang kita akan membuat No Faktur / Invoice / No Transaksi dengan Pola Tanggal secara otomatis

Syntaqnya sepertidibawah ini :

Private Sub FakturOtomatis()
Call Koneksi
RS.Open "select * from Pembelian Where Beli In(Select
Max(NoBeli)From Pembelian)Order By NoBeli Desc", Koneksi
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(!NoBeli, 6) <> Format(Date, "YYMMDD") Then
Urutan = Format(Date, "YYMMDD") + "01"
Else
Hitung = Right(!NoBeli, 2) + 1
Urutan = Format(Date, "YYMMDD") + Right("00" & Hitung,
2)
End If
End If
Text1 = Urutan
End With
End Sub


Silahkan panggil - Call FakturOtomatis pada form_activate jika transaksi telah terinput didatabase maka secara otomatis No Transaksi sesuai dengan tanggal komputer dan otomatis bertambah sesuai dengan No Transaksinya

Tweet