coba bantu ya..., tabel no faktur nya ditambahin periode bulan aja. jadi klo ganti bulan, baik ke depan maupun ke belakang, kan tetap bisa diidentifikasi counternya berapa...
mudah2an membantu... --- In [email protected], "sherinalavenda" <[EMAIL PROTECTED]> wrote: > > 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 [email protected], "abdul_goni_prg" > <abdul_goni_prg@> 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(NoFakPembelian.nofaktur,7,Len(NoFakPembelian.nofaktur))) > as MaxID > > FROM NoFakPembelian where trim(NoFakPembelian.nofaktur) like '" & > ID & > > "*'" > > > > Set dbsastro = OpenDatabase(App.Path & "\ABC.mdb") > > Set rstFakturMasuk = dbsastro.OpenRecordset(sQuery) > > > > if Not rstFakturMasuk.Eof then > > > > NumberID=iif(isNull(rstFakturMasuk!MaxID)=true,0,rstFakturMasuk! > MaxID)+1 > > else > > NumberID=1 > > end if > > GetNoFaktur=ID & Format(NumberID,"000#") > > > > rstFakturMasuk.Close > > dbsastro.Close > > end function > > > > --- In [email protected], "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.OpenRecordset("NoFakPembelian") > > > > > > If rstFakturMasuk.RecordCount = 0 Then > > > txtNoFaktur.Text = "BE" & Format(DTPicker1, "mmyy") & "0001" > > > Else > > > > > > lastkode = Val(Mid(rstFakturMasuk!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. > > > > > >
