Coba saya bantu
Setiap pembuatan No Baru bikin tolong pengecekan Bulan
logikanya seperti ini
Cek dulu bulan pada nomor terakhir yang ada di record
bila bulan nomor terakkhir beda dengan bulan di tanggal (DTpicker1)
maka bikin variable apa lahnamanya mis XNOMOR= "0000"
baru masuk baris code anda
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
---------------------------------
You rock. That's why Blockbuster's offering you one month of Blockbuster Total
Access, No Cost.
[Non-text portions of this message have been removed]
