dim strPO as string
sql=select * from tblPO ORDER BY PO DESC
rs.open sql
strPO =format(rs("PO") +1,"000")
inti nya ambil dulu record PO scr DESC lalu ambil record pertama di tambah
dengan 1
----- Original Message -----
From: "rudi sutomo" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Wednesday, April 19, 2006 4:28 PM
Subject: [indoprog-vb] Mengenai penomoran Order
> Dear All,
>
>
>
> Thanks ya atas masukan en ,jalan
> programnya, Saya mau nanya lagi nich,
>
> Pada waktu penomoran Order,nomornya berdasarkan
> menghapal,bagaimana caranya agar penomoran bisa
> langsung nomor yg keberikutnya
>
> contoh PO 001
>
> setelah jalan program langsung muncul PO 002
>
> agar tidak terjadi redudansi
>
> saya memakai database acces dan metode DAO
>
> Mohon pencerahannya
>
> Thanks for your attention !!!!!
>
> Salam,
> Rudi
>
>
> __________________________________________________
> Do You Yahoo!?
> Tired of spam? Yahoo! Mail has the best spam protection around
> http://mail.yahoo.com
>
>
> Untuk berhenti berlangganan kirim email kosong ke :
> [EMAIL PROTECTED]
>
> Ikuti juga forum diskusi VB.net dengan
> mengirim email kosong ke [EMAIL PROTECTED]
>
> Yahoo! Groups Links
>
>
>
>
>
>
>
>
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
