Kod:
Private Sub Komut92_Click()
On Error GoTo Err_Komut92_Click
Dim stDocName As String
DoCmd.Requery
stDocName = "Sorgu1"
DoCmd.OpenReport stDocName, acPreview
Exit_Komut92_Click:
Exit Sub
Err_Komut92_Click:
MsgBox Err.Description
Resume Exit_Komut92_Click
End Sub