Hello Again, I tried to apply same concept as follows:
/////
Private Sub Command50_Click()
On Error GoTo Err_Command50_Click
Dim stDocName As String
stDocName = "School Voucher"
DoCmd.OpenReport stDocName, acPreview, , " [Voucher No] = '" & Me.Voucher_No & "' And [Voucher Month] = " &...