Kod:
Private Sub Komut_Click()
On Error GoTo Err_Komut_Click
Dim stDocName As String
stDocName = "Y"
DoCmd.OpenReport stDocName, acPreview
Exit_Komut_Click:
Exit Sub
Err_Komut_Click:
MsgBox Err.Description
Resume Exit_Komut200_Click
End Sub
Kod:
DoCmd.OpenReport stDocName, acPreview, me.kimlik
teşekkürler.