rs.open "select NoTransaksi from TabelTransaksi", ..........
rs.movelast
if rs.eof then
noUrut = "0001"
else
noUrut=val(right(rs!NoTransaksi,4))
if len(noUrut)=1 then: noUrut="000" & noUrut
elseif len(noUrut)=2 then: noUrut="00" & noUrut
elseif len(noUrut)=3 then: noUrut="0" & noUrut
endif
endif
noTgl = Left(Date, 2) & Mid(Date, 4, 2) & Right(Date, 2)
txtOrder = noTgl & noUrut
ini dengan asumsi bahwa nomor urut dibelakang tanggal terus bertambah tidak
peduli tanggal maupun bulannya berubah.
abet_tnb <[EMAIL PROTECTED]> wrote:
Para Master-master VB sekalian, saya mohon bantuannya dooonk Pleaseee
Saya lg buat program penjualan untuk Tugas Akhir, pada program
transaksi Order, saya ingin membuat Nomor nya otomatis berdasarkan
Tanggal, bulan, tahun dan urutan penjualan
misalkan sekarang tanggal 30 Maret 2007
jadi pada saat saya membuka form Order maka, No. Fakturnya adalah
3003070001 (30 menandakan tanggal, 03 menandakan bulan dan 07
menandakan tahun, sedangkan 0001 adalah menandakan urutan
transaksinya)
jadi jika saya ingin memasukan data order berikutnya adalah
3003070002, dst....
dan jika tanggal, bulan serta tahunnya berganti (01/04/2007)maka
susunannya juga berubah misalkan 0104070001 dst...
Saya mohon bantuannya ya.. please sudah hampir deadline nih, tapi
cuma ini yang masih belum bisa. Saya mo coba yang lebih gampang tapi
Dosen pembimbing maunya dibuat spt itu.
Terimakasih sebelumnya.
Abet
Send instant messages to your online friends http://uk.messenger.yahoo.com
[Non-text portions of this message have been removed]
