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:[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]
