Buat Function :
Public Function GetNoKwitansi()
'Fungsi ini digunakan untuk memberikan no. Kwitansi
'secara otomatis
Dim rsFilter As ADODB.Recordset
Dim sqlStr As String
On Error GoTo ExecError
sqlStr = "SELECT MAX (NoKwitansi) AS NoMaks FROM SalesTrx"
Set rsFilter = New ADODB.Recordset
With rsFilter
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
.ActiveConnection = conDB
.LockType = adLockPessimistic
.Open sqlStr
'-------------------------------------------
'Format : 99999/x/xx/xxx
' 99999 = No. urut kwitansi ( lima digit )
'-------------------------------------------
If IsNull(.Fields("NoMaks")) Then
GetNoKwitansi = "00001/x/xx/xxx"
Else
GetNoKwitansi = Format(Val(LEFT(.Fields("NoMaks"), 5)) + 1, "0000#") +
"/x/xx/xxx"
End If
End With
Set rsFilter = Nothing
Exit Function
ExecError:
Screen.MousePointer = vbDefault
MsgBox "Tidak bisa memberi No. Kwitansi" & vbCrLf & vbCrLf & _
"Error Description :" & vbCrLf & Err.Description & vbCrLf, vbCritical,
App.Title + " - No. Kwitansi"
End Function
Kemudian pada saat menampilkan form atau menyimpan record penjualan, tinggal
memanggil fungsi tersebut.
Contoh :
Me.txtNoKwitansi = GetNoKwitansi()
atau
rsSales.value = GetNoKwitansi()
Semoga membantu
--- On Sat, 6/28/08, yoesgreat <[EMAIL PROTECTED]> wrote:
From: yoesgreat <[EMAIL PROTECTED]>
Subject: [Programmer-VB] counter
To: Programmer-VB@yahoogroups.com
Date: Saturday, June 28, 2008, 6:41 PM
Temen2 yg baik, yang sudah pada jadi master di VB. saya mo minta
tolong lagi nii...
maklum saya baruuu dalam hal pemrograman.
saya ingin membuat program counter yang akan melakukan penambahan data
secara otomatis dalam record database.
misalnya : saya punya field yang saya beri nama nomor kwitansi yang
isinya kira-kira sebagai berikut : "000/x/xx/xxx" yang ingin saya
tanyakan adalah bagaimana kita melakukan perubahan nomor pada kwitansi
tersebut yang ditunjukkan pada karakter "000" secara otomatis apabila
kita ingin menambahkan record baru.
Maaf kalau bahasanya agak ngawur.
atas bantuannya saya ucapkan terima kasih.
