Membuat No Transaksi Otomatis Format Tanggal Dengan Vb 6.0

Pada 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 wacana No Otomatis format urutan biasa, disini otomatisnya memakai tanggal. Ada beberapa laba dalam menciptakan Format tanggal, yaitu :

1. Dengan No Transaksi kita dapat melihat tanggal transaksinya
2. Format Tanggal lebih range fieldnya lebih lebar
3. Format tanggal lebih gampang menunjukan dalam setiap transaksi

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

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

Kemudian buka Aplikasi VB 6.0 anda
Buatlah form ibarat gambar dibawah dan simpan pada folder yang sama ibarat 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 untuk anda, dan jangan lupa untuk berkomentar dibawah :)