Terima kasih Mas Edy,
Sebenarnya ada dua kolom yang harus saya kasih nomer urut.
NO dan PCNO
untuk PCNO sudah bisa yaitu
'On Error GoTo Err_Command6_Click
DoCmd.RunCommand acCmdRefreshPage
Dim LastSJ As String
LastSJ = DLast("PCNO", "TBLSPEC")
DoCmd.GoToRecord , "SPEC", acNewRec
Me![PCNO] = Format(Left(LastSJ, 4) + 1, "0000") _
& Right(LastSJ, Len(LastSJ) - 4)
Exit_Command6_Click:
Exit Sub
Err_Command6_Click:
MsgBox Err.Description
Resume Exit_Command6_Click
tapi untuk kolom NO nya ga bisa, karena harus berulang.
Terima kasih.
sukarno
----- Original Message -----
From: Edy WIYONO
To: [email protected]
Sent: Wednesday, September 26, 2007 12:12 AM
Subject: Re: [belajar-access] Nomer Urut yang berulang
'------------------start-----------------------
Function UlangUlang(ByVal NamaTabel As String, ByVal NamaKolom As String,
ByVal NM As Integer) As Integer
HJB = DCount(NamaKolom, NamaTabel)
If NM > HJB Then
UlangUlang = HJB + 1
Else
UlangUlang = (HJB + 1) Mod NM
End If
End Function
'-------------------end-------------------
----- Original Message -----
From: sukarno
To: [email protected]
Sent: Tuesday, 25 September, 2007 08:39
Subject: [belajar-access] Nomer Urut yang berulang
Para Master,
Bagaimana cara membuat nomer urut yang berulang,
misal setelah urut dari 1 sampai 50, kembali ke 1 lagi sampai 50 , kembali
ke 1 lagi dan seterusnya...
Terima kasih.
sukarno
****************************************************
Sukarno
Design Engineering & IT Staff
PT.SUMI INDO KABEL Tbk.
Email : [EMAIL PROTECTED]
Telp : 021-5922404 ext:201
*************************************************
