Xuân Thanh > 23-08-12, 03:17 PM
Private Sub cmdPrint_Click()
    Dim strDocName As String
    Dim strWhere As String
    strDocName = "rptSomeReport"
    strWhere = "[RunID]=" & Me!RunID
    DoCmd.OpenReport strDocName, acPreview, , strWhere
End Subcpucloi > 27-08-12, 08:21 PM