saya coba bantu sedikit
private sub simpan()
rs.open("select nobukti from namatabel where left(nobukti,4)='" & trim (textkelas) & "' order by nobukti" )
if rs.recordcount<=0 then
textbukti =textkelas & "0001"
else
rs.movelast
textbukti =textkelas & Right("0000" + Trim(Str(Val(Right(Rs!nobukti, 4)) + 1)), 4)
endif
endif
end sub
maaf, kalo ada yang salah ketik, di komputerku tidak ada vbnya
Send instant messages to your online friends http://uk.messenger.yahoo.com
__._,_.___
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
SPONSORED LINKS
| Programmer | Indonesia | Basic programming language |
| Computer programming languages | Programming languages | Java programming language |
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
