Kalo saya Cuma VB doank gak pake SQL Ini code yg sy pake utk no faktur secara otomatis
Semoga membantu
Set rsfak = New ADODB.Recordset
rsfak.Open "select fakturid from faktur", cn, adOpenDynamic,
adLockOptimistic
If rsfak.RecordCount <> 0 Then
rsfak.MoveLast
TeksNf = rsfak("fakturid")
Nf = Val(TeksNf) + 1
Select Case Nf
Case 0 To 9
Text10.Text = "00000" & Trim(Str(Nf))
Case 10 To 99
Text10.Text = "0000" & Trim(Str(Nf))
Case 100 To 999
Text10.Text = "000" & Trim(Str(Nf))
Case 1000 To 9999
Text10.Text = "00" & Trim(Str(Nf))
Case 10000 To 99999
Text10.Text = "0" & Trim(Str(Nf))
Case 100000 To 999999
Text10.Text = Trim(Str(Nf))
End Select
Else
Text10.Text = "000001
Salam
Endra J.
http://chlutaxs.blogspot.com
http://www.chlutaxs.com.cc
http://www.myspace.com/chlutaxs
_____
From: ali suparman [mailto:[EMAIL PROTECTED]
Sent: 14 Januari 2008 11:36
To: [email protected]
Subject: Re: [Programmer-VB] Looping Nomor Transaksi
Mas, saya pernah mengalami hal serupa dan diatasi dengan:
cara primitif (maksudnya cara saya). Biasanya saya membuat satu data dalam
database dengan tipe LONG. Data ini dibuat naik setiapkali terjadi transaksi
dibuat naik (kalau di SQL Server dapat dengan procedure/trigger dikemas
dalam sistem Transact di Database SQLServernya, atau dengan kode program di
VB), jadi setiap transaksi berhasil dilaksanakan maka data dinaikkan 1.
Setiap kali membuka form untuk transaksi, data ini dibaca untuk ditampilkan.
Mudah-mudahan ada cara lain yang lebih simple..beri saya juga informasi,
Thanks
bie edogawa <[EMAIL PROTECTED]> wrote:
Selamat Sore,
Saya sedang membuat suatu aplikasi sederhana yg terdiri dari :
1. Form Login
2. Form Transaksi
Dalam form transaksi ada button Print, Close dan Cancel
To d pont aj deh...yang ingin saya tanyakan...bagaimana caranya setiap kali
membuka form transaksi yg baru, maka nomor transaksi akan secara otomatis
bertambah. Misal..saat membuka form transaksi, Nomor yg tertera adalah No.
"1"...saat transaksi selesai --> u/ print saya tinggal menekan tombol print.
Jika print sudah selesai maka Form transaksi akan baru lagi (Blank) dan No
transaksi menjadi "2"
Atas petunjuk yang diberikan saya ucapkan terima kasih
nb :
saya menggunakan database Ms. SQL Server, sebut saja nama database nya
"Project", table u/ transaksi ada 2 : transaksi-header dan transaksi-detail
BR,
Biebah
Send instant messages to your online friends http://uk.messenger
<http://uk.messenger.yahoo.com/> .yahoo.com
Send instant messages to your online friends http://uk.messenger.yahoo.com
_____
Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try
<http://us.rd.yahoo.com/evt=51733/*http:/mobile.yahoo.com/;_ylt=Ahu06i62sR8H
DtDypao8Wcj9tAcJ%20> it now.
<<attachment: image001.jpg>>
