Pakai cara yang sama aja, tapi ada tambahan:
if LastNO = 50 then LastNO = 0
perintah berikutnya akan menambahkan LastNO dengan 1
Haer
On 9/27/07, sukarno <[EMAIL PROTECTED]> wrote:
>
> 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
>
