Selasa, 24 Mei 2011

Re: [belajar-access] Bisakah ditambahkan Command seperti DoCmd....

 

Dear Pak Tio, punteun saya hendak koreksi sedikit, pembuatan label tidal boleh ada spasi, seperti: "On Error GoTo Err_Contoh saja", tapi tambahkan under score: "On Error GoTo Err_Contoh_saja". Biasanya error di VBA didalamnya ada numbernya, maka kita bisa manfaatkan error number tersebut semisal:
 
Err_Contoh_saja:
    If Err.Number = 1 Then
        MsgBox Err.Description
        DoCmd.OpenForm "Nama Form"
        Exit Sub
    ElseIf Err.Number = 2 Then
        Resume Next
    End If
    'dst...
 
Ket: nomor error 1 dan 2 diatas hanya contoh.
 
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi.
http://opi.110mb.com/
----- Original Message -----
Sent: Wednesday, May 25, 2011 10:18 AM
Subject: [belajar-access] Bisakah ditambahkan Command seperti DoCmd....

 


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

__._,_.___
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Tidak ada komentar:

Posting Komentar