Weleh-weleh Makasih banget yaah... emang Milis Indoprog-VB tempatnya para master VB. Baru di Posting eeehhh.. langsung di tanggapin (MAKASIH BUANGET...) Saya coba dulu ya masukan dari temen2. mudah-mudahan dari beberapa alternatif yang ada ini semuanya bisa di terapin, (maklum baru belajar vb neh...)
btw, klo boleh berharap, bisa ga' kasih masukan lagi, jika tanggal, bulan dan tahunnya berganti, maka no urutnya pun ikut dimulai dr 0001 lagi. (o iya untuk database saya pake MS. Access) trus, type datanya saya pakai Text, jadi maksudnya Mas Adi otomatis stringnya itu apa ya...? (Sorry Oon neh... ) klo maksud saya sih otomatis hanya di Textbox formnya aja bisa berganti sendiri. 3003070001, 3003070002, dst... dan jika tanggal, bulan atau tahun berubah jadi 0104070001, 0104070002 dst.... Tapi makasih banyak ya untuk mas Adi, naufal, muslim. Makasih. Salut untuk anda semuanya. Thx --- In [email protected], "Adi" <[EMAIL PROTECTED]> wrote: > > Anda bisa coba command berikut: > > > > Text1.Text = CStr(Format(Day(Now), "00")) + CStr(Format(Month (Now), "00")) + > Right(CStr(Year(Now)), 2) + "0001" > > > > Jika string "0001" diminta secara otomatis, anda perlu query ke database > anda dengan command sbb: > > > > Select right(noinvoice,4) from tagihan where left(noinvoice,6)='" & xxxxxx & > "'" > > > > Dimana xxxxxx didapat dari command > > > > (Format(Day(Now), "00")) + CStr(Format(Month(Now), "00")) + > Right(CStr(Year(Now)), 2) > > > > hasil query tersebut kemudian anda cast ke numeric dan tambahkan dengan 1. > lalu balikkan lagi ke format 4 character > > > > Demikian, semoga dapat membantu anda > > > > -----Original Message----- > From: [email protected] [mailto:indoprog- [EMAIL PROTECTED] On > Behalf Of abet_tnb > Sent: 30 Maret 2007 16:41 > To: [email protected] > Subject: [indoprog-vb] No Order berdasarkan Tanggal > > > > 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 > > > > > > [Non-text portions of this message have been removed] >
