coba dibuat function saja untuk memanggil nomornya. Hasilnya bisa
ditampilkan di textbox atau variable Contoh :
Function GetNew_NoKwit() As String
Dim rsCode As New ADODB.Recordset
Dim tmpNo As Double
rsCode.ActiveConnection = cn
rsCode.Open "SELECT MAX(No_kwit) AS NoKwit FROM TblKwitansi WHERE
Year(Kwitansi_Date)='" & Format(DTP_Kwitansi.Value, "yyyy") & "'", ,
adOpenForwardOnly
If Not rsCode.EOF Then
rsCode.MoveFirst
GetNew_NoKwit= IIf(IsNull(rsCode("NoKwit")), "", rsCode("NoKwit"))
If Trim(GetNew_NoKwit) <> "" Then
tmpNo = CDbl(Left$(GetNew_NoKwit, 3)) + 1
Else
tmpNo = 1
End If
Else
tmpNo = 1
End If
GetNew_NoKwit= Right$("000" & tmpNo, 3) & "/X/XX/XXX")
txtKwitansi.Text = GetNew_NoKwit
rsCode.Close
Set rsCode = Nothing
End Function
Tinggal pangil nama function pada even tertentu untuk mengeksekusi, dan
menampilkan.
semoga membantu
2008/6/28 Sinkwonk <[EMAIL PROTECTED]>:
> Coba pake recordcount + 1 brow..
>
>
>
> Pada tanggal 28/06/08, yoesgreat <[EMAIL PROTECTED]> menulis:
>>
>> 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.
>>
>>
>
>
