Kenapa nggak bisa? Tetep bisa koq, saya biasa pake buat tukeran code sama temen, terkadang malah bisa terkompres sampai 40%
----- Original Message ----- From: "wijdan ibn masood" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Friday, March 30, 2007 10:46 PM Subject: [indoprog-vb] kompres file VB pake apa? > Gini, kalo file .doc, .xls itu kan bs dikompres pke winzip > trus kalo file VB (.frm, dll) bisa dikompres ga? > biar ukurannya mnjadi lebih kecil dan apa nama programnya? > makasih? > > 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:[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] > > > > > > > --------------------------------- > The fish are biting. > Get more visitors on your site using Yahoo! Search Marketing. > > [Non-text portions of this message have been removed] > > > > Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED] > > Bagi terjangkit virus lokal, zip virus tersebut > dan kirim ke [EMAIL PROTECTED], kami > akan membuat removalnya untuk anda. > Yahoo! Groups Links > > >
