Ubah field name "NO" menjadi (misalnya) "NOM".
proc utk new click: ubah jd spt ini:
Dim LastSJ As String, lastNO As String
LastSJ = DLast("PCNO", "TBLSPEC")
lastNO = DLast("NOm", "TBLSPEC")
If lastNO = 50 Then lastNO = 0
DoCmd.GoToRecord , "SPEC", acNewRec
Me![PCNO] = Format(Left(LastSJ, 4) + 1, "0000") _
& Right(LastSJ, Len(LastSJ) - 4)
Me![NOm] = lastNO + 1
Catatan: Saya heran, nomor kok pakai text dg lebar 50 ya? pakai number int
aja.
Haer
On 9/27/07, sukarno <[EMAIL PROTECTED]> wrote:
>
> belum bisa Mas Haer,
> Ini saya kirim filenya aja ya...
>
> Terima kasih sebelumnya.
>
> ----- Original Message -----
> *From:* Haer Talib <[EMAIL PROTECTED]>
> *To:* [email protected]
> *Sent:* Thursday, September 27, 2007 1:39 PM
> *Subject:* Re: [belajar-access] Nomer Urut Berulang
>
> 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
> >
>
>
>
>
