pak, jangan pakai event before insert, enakan pake event on click pada
tombol "NambahRecord"
kuncinya ada dikarakter ke 5 s.d 8 pak, yg "PER-" adalah text mati....
private sub NambahRecord_click()
on rrror goto nol
docmd.runcommand accmdrefreshpage
dim nomorterakhir as string
nomorterakhir = dlast("KODE_PER", "TBL_PERUSAHAAN") 'pake dmax juga
boleh pak...
docmd.gotorecord , , acnewrec
me![KODE_PER] = "PER-" & format(right(nomorterakhir,4) + 1, "0000")
nol:
End Sub
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi.
http://opi.110mb.com
----- Original Message -----
From: "honey muswardana" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Friday, August 08, 2008 1:15 PM
Subject: [belajar-access] pembuatan kombinasi huruf dengan angka di access
> begini saya lagi kebingungan bagaimana cara membuat procedur untuk membuat
> agar setiap pemasukan nama suatu perusahaan mendapatkan kombinasi kode PER
> dengan penambahan - dan pemberian no 0000 + 1
>
> jadi hasilnya menjadi PER-0001, kemudian seterusnya PER-000x
>
> saya udah coba seperti dibawah ini but gak berhasil mohon penjelasannya
> dari teman-teman
>
> Private Sub Form_BeforeInsert(Cancel As Integer)
> On Error Resume Next
> Me.KODE_PER = "PER" & Format(Nz(DMax("KODE_PER", "TBL_PERUSAHAAN"), 0)
> + 1, "000")
> End Sub
>
> atas bantuannya saya ucapkan banyak terima kasih
> honey muswardana
>
>
>
>
> ------------------------------------
>
> SPAM IS PROHIBITEDYahoo! Groups Links
>
>
>
>
