Private Sub delData_Click()
On Error GoTo Err_delData_Click
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True
Exit_delData_Click:
Exit Sub
Err_delData_Click:
MsgBox Err.Description
Resume Exit_delData_Click
End Sub
Salam,
~ KSBA | Keep the Spirit of Belajar Access ~
--- Pada Jum, 14/5/10, Ahmad <[email protected]> menulis:
Dari: Ahmad <[email protected]>
Judul: [belajar-access] Menghilangkan Konfirmasi Delete
Kepada: [email protected]
Tanggal: Jumat, 14 Mei, 2010, 1:13 PM
Buat teman2 milis semua, mau nanya lagi
Bagaimana script di modul untuk menghilangkan konfirmasi pada waktu menghapus
data?
Private Sub delData_Click()
On Error GoTo Err_delData_Click
SCRIPT DILETAKKAN DISINI (MENGHILANGKAN KONFIRMASI HAPUS DATA)
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
SCRIPT DILETAKKAN DISINI (MENGEMBALIKAN KONFIRMASI HAPUS DATA)
Exit_delData_Click:
Exit Sub
Err_delData_Click:
MsgBox Err.Description
Resume Exit_delData_Click
End Sub
Terima Kasih atas bantuannya.
