[indoprog-vb] penambahan nofaktur

[sherinalavenda]

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