Membuat No Transaksi Otomatis Format Tanggal Dengan VB 6.0

ada pembelajaran VB 6.0 kali ini kami bahas mengenai Cara Membuat Faktur Otomatis Format Tanggal Dengan VB 6.0. Jika pada tutorial sebelumnya kita telah membahas tentang No Otomatis format urutan biasa, disini otomatisnya menggunakan tanggal. Ada beberapa keuntungan dalam membuat Format tanggal, yaitu :

1. Dengan No Transaksi kita bisa melihat tanggal transaksinya
2. Format Tanggal lebih range fieldnya lebih lebar
3. Format tanggal lebih mudah menandakan dalam setiap transaksi

Baik langsung saja, berikut langkahnya :
Buatlah sebuah folder dengan nama : VB6NOOTOMATISTANGGAL 
Buatlah Database dengan nama : DBJNM.mdb
Buatlah tabel dengan nama : TBL_TRANSAKSI
Design TBL_TRANSAKSI adalah sebagai berikut :

Jika sudah membuat database diatas, masukan ke dalam folder : VB6NOOTOMATISTANGGAL

Kemudian buka Aplikasi VB 6.0 anda
Buatlah form seperti gambar dibawah dan simpan pada folder yang sama seperti diatas

Pada form1, silahkan masukan koding dibawah ini :

 
Dim Koneksi As New ADODB.Connection
Dim RSTransaksi As ADODB.Recordset
Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set RSTransaksi = New ADODB.Recordset
Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBJNM.mdb"
End Sub
Sub KodeOtomatis()
Call BukaDB
RSTransaksi.Open ("select * from TBL_TRANSAKSI Where NoTransaksi In(Select Max(NoTransaksi)From TBL_TRANSAKSI)Order By NoTransaksi Desc"), Koneksi
RSTransaksi.Requery
  Dim Urutan As String * 12
    Dim Hitung As Long
    With RSTransaksi
        If .EOF Then
            Urutan = "T" + Format(Date, "yyyymmdd") + "001"
            Text1 = Urutan
        Else
            If Left(RSTransaksi!NoTransaksi, 9) <> "T" + Format(Date, "yyyymmdd") Then
                Urutan = "T" + Format(Date, "yyyymmdd") + "001"
            Else
                Hitung = Right(RSTransaksi!NoTransaksi, 3) + 1
                Urutan = "T" + Format(Date, "yyyymmdd") + Right("000" & Hitung, 3)
            End If
        Text1 = Urutan
      
    End If
    End With
End Sub
Private Sub Command1_Click()
Call KodeOtomatis
Text1.Enabled = False
Text2.Enabled = False
Text2.Text = Date$
Text3.SetFocus
Command1.Enabled = False
Command2.Enabled = True

End Sub
Private Sub Command2_Click()
Call BukaDB
If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Then
MsgBox "Data Belum Lengkap"
Else
Dim TambahPenjualan As String
    TambahPenjualan = "Insert Into TBL_TRANSAKSI values ('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "')"
    Koneksi.Execute TambahPenjualan
    MsgBox "Data Berhasil Ditambah", vbInformation, "Pemberitahuan"
    Call KondisiAwal
    Form_Activate
End If
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Activate()
Call BukaDB
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DBJNM.mdb; "
Adodc1.RecordSource = "TBL_TRANSAKSI"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

Private Sub Form_Load()
Text1.MaxLength = 12
Text2.MaxLength = 10
Call KondisiAwal
End Sub
Sub KondisiAwal()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Command1.Enabled = True
Command2.Enabled = False
End Sub

Terakhir, silahkan jalankan Project VB 6.0 andaSemoga bermanfaat