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 Sub
cpucloi > 27-08-12, 08:21 PM