Terima kasih Mas Haer, Hasil Nom, pertama 1, kedua 1, yang ketiga 2, yang keempat 2, dan seterusnya. Hasil PCNO juga begitu.
jadi selalu berulang 2 kali. ----- Original Message ----- From: Haer Talib To: [email protected] Sent: Thursday, September 27, 2007 4:06 PM Subject: Re: [belajar-access] Nomer Urut Berulang 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 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
