Private Sub btnOpenReport_Click()
On Error GoTo Err_btnOpenReport_Click
Dim strReportName As String
Dim strFiltr As String
strReportName = "ReportName" 'Имя открываемого отчета
strFiltr = "Код=" & Me![Код] ' Код - Имя ключевого поля
DoCmd.OpenReport strReportName, acPreview, , strFiltr
Exit_btnOpenReport_Click:
Exit Sub
Err_btnOpenReport_Click:
MsgBox Err.Description, vbInformation, Me.Caption
Resume Exit_btnOpenReport_Click
End Sub
|