bila menginginkan tanpa buat query terlebih dan hanya menggunakan satu field
yaitu NoURUT
bisa gunakan cara sbb:
strFormat = "SKBM-" & Format(Date, "yymm-")
'nilai max dari 4 digit paling kanan dari kolom NoUrut + 1
strMax1 = Format(CInt(Right(Nz(DMax("[NoUrut]", "tblTest", "[NoUrut] Like
'SKBM-" & Format(Date, "yymm") & "*'"), 0), 4)) + 1, "0000")
kalo dari form current
NoUrut.DefaultValue = "'" & strFormat & strMax1 & "'"
kalo dari kontrol lain.
Nourut.value = strFormat & strMax1
mudah-mudahan bermanfaat,
salam, MBA
----- Original Message -----
From: Darsono
To: [email protected]
Sent: Monday, June 29, 2009 08:03
Subject: Re: [belajar-access] No seri kembali ke "0001" kalau ganti bulan
Sdr Solichin,
Untuk No urut yang berubah atau rest ke 0001 di setiap awal bulan,
jangan menggunakan auto number.
sediakan satu kolom no urut (number biasa) disamping kolom bulan tahun
(misl 0309; 0409 dst)
buat query untuk mendapatkan nilai maksimal dari no urut.
.. nourut = max
.. blnthn = group
setelah itu
buat gunakan fungsi kurang lebih sbb:
NourutTxt = format(nz(Dlookup("nourut","query yg anda
buat"),0)+1),"0000")
bir lebih mudah,
lampirkan program yg nda buat
salam
Darsono
--- On Sat, 6/27/09, Eduardo Solichin <[email protected]> wrote:
From: Eduardo Solichin <[email protected]>
Subject: [belajar-access] No seri kembali ke "0001" kalau ganti bulan
To: [email protected]
Date: Saturday, June 27, 2009, 3:23 PM
Para master, tanya donk.
Saya sedang mencari cara mengubah nomor seri surat masuk, yang
urutannya kembali ke 0001 jika sudah berganti bulan. Contoh:
SKBM-0903-0201 di tanggal 31 Maret 2009, dan menjadi SKBM-0904-0001
di tanggal 1 April. Untuk 0903 & 0904 tdk ada masalah, hanya urutan menjadi
0001-nya yg belum ketemu, soalnya saya pakai autonumber.
thanks
ifan
