Private Sub Command6_Click()
On Error GoTo Err_Command6_Click
DoCmd.GoToRecord , , acNewRec
Exit_Command6_Click:
Exit Sub
Err_Command6_Click:
MsgBox Err.Description
Resume Exit_Command6_Click
End Sub
Dari: Mansur Widayat <w-mansur@notes.npr.co.jp>
Kepada: belajar-access@yahoogroups.com
Terkirim: Jum, 21 Januari, 2011 10:10:08
Judul: [belajar-access] NewRec
On Error GoTo Err_Command6_Click
DoCmd.GoToRecord , , acNewRec
Exit_Command6_Click:
Exit Sub
Err_Command6_Click:
MsgBox Err.Description
Resume Exit_Command6_Click
End Sub
Dari: Mansur Widayat <w-mansur@notes.npr.co.jp>
Kepada: belajar-access@yahoogroups.com
Terkirim: Jum, 21 Januari, 2011 10:10:08
Judul: [belajar-access] NewRec
Selamat Siang All,
Saya mau nanya, Maklum masih awam.
saya buat 2 buah textbox trus saya tambah 1command. command tsb agar bisa
nambah / click, saya beri code gini :
private sub command1_click()
docmd.gotorecord , , acnewrec
end sub
tapi code tsb blm efisien karna kadang berfungsi dengan baik kadang tidak
(tidak nambah record baru). saya mau tanya bagaimana cara mengatasi hal tsb?
Terima kasih.
__._,_.___
No comments:
Post a Comment