Langsung saja.. Untuk membuat kode otomatis, maka teman2 harus membuat class terlebih dahulu pada halaman code...
selanjutnya teman2 copy script program dibawah ini kedalam halaman code program kalian :
Sub kode_otomatis()
tbladmin = proses.ExecuteQuery(“Select * From Tabel_Admin order by Kode_Admin desc”)
If tbladmin.Rows.Count = 0 Then
txtkodeadmin.Text = “AD-001?
Else
With tbladmin.Rows(0)
txtkodeadmin.Text = .Item(“Kode_admin”)
End With
txtkodeadmin.Text = Val(Microsoft.VisualBasic.Mid(txtkodeadmin.Text, 4, 3)) + 1
If Len(txtkodeadmin.Text) = 1 Then
txtkodeadmin.Text = “AD-00? & txtkodeadmin.Text & “”
ElseIf Len(txtkodeadmin.Text) = 2 Then
txtkodeadmin.Text = “AD-0? & txtkodeadmin.Text & “”
ElseIf Len(txtkodeadmin.Text) = 3 Then
txtkodeadmin.Text = “AD-” & txtkodeadmin.Text & “”
End If
End If
End Sub
setelah teman2 buat class diatas... maka pada FormLoadnya teman2 panggil class tersebut:
sub kode_otomatis()
dan pada TextBox nya klik 2x lalu pada code programnya teman2 panggil juga class yang sama :
sub kode_otomatis()
untuk isian kode , nomor faktur bisa teman2 kreasikan sendiri sesuai dengan kebutuhan,,yang terpenting jumlah size nya harus 5. teman2 bisa merubah size nya dengan menyesuaikan inputan yang dibutuhkan.
semoga bermanfaat.. terima kasih :)
0 komentar:
Posting Komentar