Jika ingin penomoran berulang setiap bulan, sebaiknya jangan menggunakan DTPicker untuk nomor faktur. Mungkin lebih baik menggunakan date. (tanggal komputer saja) Caranya: txtNoFaktur. Text = "BE" & Format(Date, "mmyy") & Format(kodeakhir, "000#") Semoga dapat bermanfaat.
----- Original Message ---- From: Mawardi <[EMAIL PROTECTED]> To: [email protected] Sent: Wednesday, April 9, 2008 3:52:36 PM Subject: RE: [Programmer-VB] nomor faktur Sebelum buat nomor faktur cek bulan & tahun sudah ada apa belum, kalau belum mulai dari satu kalau sduah ada nomor terkahir tambah satu. Mudah mudahan bisa membantu. Saya perhatikan script di bawah sudah betul tinggal nambah dikit Function TambahNoFaktur( ) Set .... Set .... dbsastro.open "select .... From NoFakPembelian Where substring(bulantahu n)=[bulan & tahun] if rstFakturMasuk. RecordCount= 0 then 'Jika belum ada else 'Jika sudah ada di tambah satu endif -----Original Message----- From: sherinalavenda [mailto:sherinalave [EMAIL PROTECTED] com] Sent: Wednesday, April 09, 2008 14:03 To: Programmer-VB@ yahoogroups. com Subject: [Programmer- VB] nomor faktur halo semuanya... Rekan2 millis ada yang bisa bantu saya? sy sudah membuat function untuk penambahan no faktur spt ini: Function TambahNoFaktur( ) Set dbsastro = OpenDatabase( App.Path & "\ABC.mdb") Set rstFakturMasuk = dbsastro.OpenRecord set("NoFakPembel ian") If rstFakturMasuk. RecordCount = 0 Then txtNoFaktur. Text = "BE" & Format(DTPicker1, "mmyy") & "0001" Else lastkode = Val(Mid(rstFakturMa suk!NOFAKTUR, 7, Len (rstFakturMasuk! NOFAKTUR))) kodeakhir = lastkode + 1 txtNoFaktur. Text = "BE" & Format(DTPicker1, "mmyy") & Format(kodeakhir, "000#") End If rstFakturMasuk. Close dbsastro.Close end function gimana ya, agar setiap penggantian bulan, counter nofaktur kembali mulai dari 001? mis: BE04080099 pada akhir bln awal bulan berikutnya menjadi BE05080001 dst. thanks buat attensinya. <!-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#0000ff;text-decoration:none;} --> <!-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} --> <!-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} ..bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-reco { margin-bottom:20px;padding:0px;} #ygrp-reco #reco-head { font-weight:bold;color:#ff7900;} #reco-grpname{ font-weight:bold;margin-top:10px;} #reco-category{ font-size:77%;} #reco-desc{ font-size:77%;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a{ text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc{ background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o{font-size:0;} ..MsoNormal{ margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} ..replbq{margin:4;} --> __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com
