Kod:
Private Sub RaporAc_Click()
On Error GoTo Err_RaporAc_Click
Dim stDocName As String
stDocName = Me.AcılırKutunuzunAdi
DoCmd.OpenReport stDocName, acPreview
Exit_RaporAc_Click:
Exit Sub
Err_RaporAc_Click:
MsgBox Err.Description
Resume Exit_RaporAc_Click
End Sub