[belajar-access] No seri kembali ke "0001" kalau ganti bulan

----- Original Message -----
From: "Murid Belajar Access" <murid.belajaraccess@yahoo.co.id>
To: <belajar-access@yahoogroups.com>
Sent: Monday, June 29, 2009 2:47 PM
Subject: Re: [belajar-access] No seri kembali ke "0001" kalau ganti bulan

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: belajar-access@yahoogroups.com
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 <ifan.iqbal@gmail.com> wrote:

From: Eduardo Solichin <ifan.iqbal@gmail.com>
Subject: [belajar-access] No seri kembali ke "0001" kalau ganti
bulan
To: belajar-access@yahoogroups.com
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