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" <[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(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. > > >
