Mumpung ada Mas Haer nih...
Selamat berpuasa ...
Mohon bantuan,
Saya 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
