Kod:
Private Sub Komut33_Click()
On Error GoTo Err_Komut33_Click
Dim stDocName As String
stDocName = "Sorgu1"
DoCmd.OpenQuery stDocName, acViewNormal
Exit_Komut33_Click:
Exit Sub
Err_Komut33_Click:
MsgBox Err.Description
Resume Exit_Komut33_Click
End Sub