Makasih Mas Edi,
Saya coba ubah LastSending = DLast("NoPR", "tbl_pr") menjadi LastSending =
DMax("NoPR", "tbl_pr")
aja, yang penting ga error.
Thanks
----- Original Message -----
From: edi rosadi
To: [email protected]
Sent: Friday, April 23, 2010 4:29 PM
Subject: Re: [belajar-access] NO otomatis sering error
Perintah ini yang akan menyebabkan error :
LastSending = DLast("NoPR", "tbl_pr")
karena ada kemungkinan ada dua user yang menekan tombol 'NEW' dan akan
menghasilkan noPR yang sama saat disimpan. bisa disiasati dengan membuat satu
tabel untuk menyimpan nomor PR terakhir dan berubah setiap kali user menekan
tombol NEW. resikonya noPR akan loncat (tidak urut) kalau ada user yang
membatalkan pembuatan PR-nya
Salam,
Edi Rosadi
http://edirosadie.blogspot.com
http://cilegonmap.blogspot.com
http://cilegonan.wordpress.com
komersilkan blog atau website anda dengan bergabung di sini atau di sini
--- On Fri, 23/4/10, suka access <[email protected]> wrote:
From: suka access <[email protected]>
Subject: [belajar-access] NO otomatis sering error
To: [email protected]
Date: Friday, 23 April, 2010, 2:38 PM
Dear All,
Mohon bantuan.
Saya mempunyai tombol New dengan command dibawah ini. Aplikasi ini
digunakan secara sharing. Tombol ini berjalan normal, namun kadang-kadang tidak
bisa berfungsi, dengan pesan error krn adanya duplikasi.
Adakah kesalahan dari coding ini atau ada masalah lain?
Private Sub newpr_Click( )
DoCmd.GoToRecord , "FRM_Pr", acNewRec
Dim LastSending As String
LastSending = DLast("NoPR", "tbl_pr")
Me![NoPR] = Format(Left( LastSending, 4) + 1, "0000") &
Right(LastSending, Len(LastSending) - 4)
name1 = [Forms]![login] ![Cmbuserid]
cmbsection = [Forms]![login] ![Txtsection]
nomerPR.Visible = True
date.Locked = False
name1.Locked = True
cmbsection.Locked = True
paidto.Locked = False
CMBCURRENCY. Locked = False
amount.Locked = False
explanation. Locked = False
'Acknowledged1. Locked = False
'Approved.Locked = False
save.Enabled = True
'save.Caption = "Save"
If cmbsection.Value = "sales adm" Then
lblSIM.Visible = True
im1.Visible = True
m1.Visible = True
im2.Visible = True
m2.Visible = True
im3.Visible = True
m3.Visible = True
im4.Visible = True
m4.Visible = True
End If
If cmbsection.Value = "sales" Then
lblSIM.Visible = True
im1.Visible = True
m1.Visible = True
im2.Visible = True
m2.Visible = True
im3.Visible = True
m3.Visible = True
im4.Visible = True
m4.Visible = True
End If
Me.paidto.SetFocus
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.RunCommand acCmdRefreshPage
End Sub
Terima kasih
suka.access
