Jika Dilihat dari kondisi nya, No_Faktur tersebut akan sesuai dengan no_urut yang berada dibulan tersebut. jadi masing-masing bulan dan tahun akan memiliki start dari 0001 sd..... , Coba dilihat dari sintaknya => where trim(NoFakPembelian .nofaktur) like '" & ID & "*'" ID disini data yang masuk dengan kondisi "BE" ditambah dengan Bulan dan Tahun dengan format MMYYYY (dengan syarat tanggal input) Misal "BE0408*" artinya kita akan mencari no_faktur tersebut dimulai dengan awalan "BE0408" dengan dibelakangnya bebas. Seandainya Bulan dan tahun sebelumnya belum terisi akan mengambil counter "0001" dan begitu juga jika ada akan mengambil nilai Max dari no_faktur tersebut. coba bugging nilai ID yang masuk apakah sesuai dengan format yang kita inginkan dengan nilai misal "BE0408" (6 Digit). dan apakah di database ada nilai untuk variabel tersebut.
----- Pesan Asli ---- Dari: sherinalavenda <[EMAIL PROTECTED]> Kepada: [email protected] Terkirim: Selasa, 15 April, 2008 03:58:28 Topik: [Programmer-VB] Re: nomor faktur thanks, atas tanggapan rekan2 kemarin. sudah saya coba saran mas abdul dan hasilnya bagus. cuman pas kita kembali ke bulan yg sebelumnya (setelah melakukan transaksi dibulan ini, nofaktur kembali ke 001, harusnya kan menyambung ke nomor faktur terakhir bulan ybs ? --- In Programmer-VB@ yahoogroups. com, "abdul_goni_ prg" <abdul_goni_ [EMAIL PROTECTED]> wrote: > > Sheri, open tabel diganti dengan query > coba pakai function seperti dibawah ini: > > Function GetNoFaktur( ) > 'Catatan jika tanda * tidak bisa ke diteksi ganti pakai % > Dim SQuery,ID > Dim NumberID > ID="BE" & trim(Format( DTPicker1. value,"mmyyyy" )) > > sQuery="SELECT > Max(MID(NoFakPembel ian.nofaktur, 7,Len(NoFakPembe lian.nofaktur) )) as MaxID > FROM NoFakPembelian where trim(NoFakPembelian .nofaktur) like '" & ID & > "*'" > > Set dbsastro = OpenDatabase( App.Path & "\ABC.mdb") > Set rstFakturMasuk = dbsastro.OpenRecord set(sQuery) > > if Not rstFakturMasuk. Eof then > > NumberID=iif( isNull(rstFaktur Masuk!MaxID) =true,0,rstFaktu rMasuk! MaxID)+1 > else > NumberID=1 > end if > GetNoFaktur= ID & Format(NumberID, "000#") > > rstFakturMasuk. Close > dbsastro.Close > end function > > --- In Programmer-VB@ yahoogroups. com, "sherinalavenda" > <sherinalavenda@ > wrote: > > > > 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;} --> ________________________________________________________ Bergabunglah dengan orang-orang yang berwawasan, di di bidang Anda! Kunjungi Yahoo! Answers saat ini juga di http://id.answers.yahoo.com/
