Saya coba untuk membantu,
asumsi:
tblOrder : nama tabel tempat menaruh NoUrut tsb.
NoUrut : nama field
Private Sub cmdNew_Click()
On Error GoTo Err_cmdNew_Click
DoCmd.GoToRecord , , acNewRec
'Format BNT/10/2007/0001
'Misal skrg bulan 10/2007 - cek apakah ada nomor dgn format BNT/10/2007
'Kalo tdk ada nomor mulai dengan BNT/10/2007/0001, kalo sdh ada no tsb, tinggal
dicari
'4 digit terakhir di Integer-kan dan ditambah 1
'kalo bulan berganti jadi 11/2007 maka nomor akan reset kembali ke nomor 1
strBulan = Format(Month(Date), "00")
strTahun = Format(Year(Date), "0000")
strKriteria = "BNT/" & strBulan & "/" & strTahun & "/"
If DCount("NoUrut", "tblOrder", "[NoUrut] Like '" & strKriteria & "*'") = 0 Then
intNoUrut = 1
Else
intNoUrutTertinggi = CInt(Right(DMax("NoUrut", "tblOrder", "[NoUrut] Like '"
& strKriteria & "*'"), 4))
intNoUrut = intNoUrutTertinggi + 1
End If
strNoUrut = Format(intNoUrut, "0000")
NoUrut.Value = strKriteria & "/" & strNoUrut
Exit_cmdNew_Click:
Exit Sub
Err_cmdNew_Click:
MsgBox Err.Description
Resume Exit_cmdNew_Click
End Sub
Kalo mau dibikin fungsi dan ditaruh di Module, maka kita modifikasi sedikit sbb:
Private Sub cmdNew_Click()
On Error GoTo Err_cmdNew_Click
DoCmd.GoToRecord , , acNewRec
strNamaField = "NoUrut"
strNamaTabel = "tblOrder"
NoUrut.Value = BikinNoUrut(strNamaField, strNamaTabel)
Exit_cmdNew_Click:
Exit Sub
Err_cmdNew_Click:
MsgBox Err.Description
Resume Exit_cmdNew_Click
End Sub
Ini ditaruh di Module:
Function BikinNoUrut(ByVal NamaField As String, ByVal NamaTabel As String) As
String
strBulan = Format(Month(Date), "00")
strTahun = Format(Year(Date), "0000")
strKriteria = "BNT/" & strBulan & "/" & strTahun & "/"
If DCount(NamaField, NamaTabel, "[" & NamaField & "] Like '" & strKriteria &
"*'") = 0 Then
intNoUrut = 1
Else
intNoUrutTertinggi = CInt(Right(DMax(NamaField, NamaTabel, "[" & NamaField &
"] Like '" & strKriteria & "*'"), 4))
intNoUrut = intNoUrutTertinggi + 1
End If
strNoUrut = Format(intNoUrut, "0000")
BikinNoUrut = strKriteria & "/" & strNoUrut
End Function
----- Original Message -----
From: sarma diaz
To: [email protected]
Sent: Friday, October 19, 2007 14:47
Subject: [belajar-access] Membuat nomer urut
Selamat Idul Fitri rekan access sekalian. Mohon Maaf lahir bathin.
Saya ada pertanyaan yang telah saya geluti selama lebaran ini.
Pembuatan no urut berdasarkan tgl system komputer, BNT/X/2007/0001
BNT - ini nilai default
X - ini bulan dari tanggal system komputer
2007 - tahun dari system
0001 - no. urut dokumen.
Gimana cara pembuatan modul/VBA untuk event on click yang sesuai dengan
keinginan saya ini.
oh ya kapan kita kopdarnya...
Terima kasih rekan sekalian.
