OK Mas Aksan, nanti saya praktekkan dan saya kasih tahu hasilnya.
regards,
'Tio
| Aksan Kurdin <aksan.kurdin@gmail.com> Sent by: belajar-access@yahoogroups.com 05/25/2011 11:23 AM | To: belajar-access@yahoogroups.com cc: Subject: Re: [belajar-access] Bisakah ditambahkan Command seperti DoCmd.... |
:)
maaf mas tio, pertanyaan saya juga sama: bagaimana hasilnya ?
ini bisa langsung anda praktekkan kok :)
aksan kurdin
On 5/25/2011 10:18 AM, tio.adjie@ptssb.co.id wrote:
Dear All,
Saya mau tanya, bisakah ketika kita buat perintah di command button on click, nah setelah terjadi error, kita tidak hanya memunculkan msgbox , tapi juga setelah menampilkan msgbox juga ditambah command seperti DoCmd.OpenForm "ContohForm", spt. perintah di bawah. yaitu setelah MsgBox err.Description ditambah DoCmd.OpenForm "ContohForm".
Private Sub Contoh saja()
On Error GoTo Err_Contoh saja
Dim DbDelete As Database
Set DbDelete = CurrentDb
DbDelete.Execute "DELETE TableOpenForm.* FROM TableOpenForm WHERE (TableOpenForm.OpenFormName='" & Me![NamaForm] & "') "
Exit_Contoh saja:
Exit Sub
Err_Contoh saja:
MsgBox err.Description
- - - - - - -
Resume Exit_Contoh saja
End Sub
Terima kasih sebelumnya.
regards,
Tio
Tidak ada komentar:
Posting Komentar