Private Sub Komut2_Click()
On Error GoTo Err_Komut2_Click
Dim stDocName As String
stDocName = ChrW(118) & ChrW(97) & ChrW(114) & ChrW(115) & ChrW(97) & ChrW(121) & ChrW(305) & ChrW(108) & ChrW(97) & ChrW(110) & ChrW(100) & ChrW(111) & ChrW(110) & ChrW(101) & ChrW(109) & ChrW(115) & ChrW(111) & ChrW(114) & ChrW(103) & ChrW(117) & ChrW(115) & ChrW(117)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Komut2_Click:
Exit Sub
Err_Komut2_Click:
MsgBox Err.Description
Resume Exit_Komut2_Click
End Sub
ikinci olarak sorgu gerçekleştirildikten sonra yine bir uyarı penceresiyele (örneğin işleminiz gerçekleştirildi gibi) tamama basıldıktan sonra formun kapatılmasını sağlayabilirmiyiz.