G
Guest
Here is my cod
I have tried to put date literals around paid date and it wont work any idea
Dim strDocName As Strin
Dim strWhere As Strin
strDocName = "rptGSTCollected
strWhere = "[PaidDate] =" & Forms!frmGstCollected![chooseMonth] & " '
DoCmd.OpenReport strDocName, acPreview, , strWhere
I have tried to put date literals around paid date and it wont work any idea
Dim strDocName As Strin
Dim strWhere As Strin
strDocName = "rptGSTCollected
strWhere = "[PaidDate] =" & Forms!frmGstCollected![chooseMonth] & " '
DoCmd.OpenReport strDocName, acPreview, , strWhere