--- In [email protected], "sherinalavenda" <[EMAIL PROTECTED]> 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 > > > gimana ya, agar setiap penggantian bulan, counter nofaktur kembali > menjadi 0? > mis: BE04080099 pada awal bulan berikutnya menjadi BE05080001 dst. > > thanks buat attensinya. > End Function >
setelah else cek bulan sekarang sama gak dengan bulan faktur terakhir jika sama nofakur berlanjut jika tidak kembali ke nomor 1. semoga dapat membantu.
