DoCmd (1 Viewer)

[mike60smart]

Hi Everyone

I get the following error when I try to use the following On Click Event:-

21      Dim strTaxExempt As String
25      If Me.TaxExempt = "No" Then
30     DoCmd.OpenReport "rptInvoiceNo", acViewPreview, , "[CustomerPurchaseOrderID]=" & Me.CustomerPurchaseOrderID And [TaxExempt] = Me.TaxExempt

35      End If

Error message is as follows:-

Any help appreciated

 

[June7]

Fix concatenation. Literal text must be within quote marks and variables outside quote marks.

DoCmd.OpenReport "rptInvoiceNo", acViewPreview, , "[CustomerPurchaseOrderID]=" & Me.CustomerPurchaseOrderID & " And [TaxExempt] = " & Me.TaxExempt

 

[mike60smart]

Hi June7

Many thanks now works