Solved Syntax Error?

[asteropi]

I seem to be blind but I can't find the error here.
All it tells me is "Expected: =" but I don't think I'm missing one. Can you please tell me where I'm wrong?

IIF("Paid"=False,docmd.OpenReport(QuotationR),IIF("Paid"=True & "AND CustomerType=" & "Χονδρικής", docmd.OpenReport(OrderInvoiceR),docmd.OpenReport(ReceiptR)))

 

[cheekybuddha]

You can't use a VBA command within the IIf() expression like that.

Also, the result of your IIf() function must be assigned to something. Here you probable just want a standard If ... End If expression

eg:

IF "Paid" = False Then     ' If "Paid" is a control or field then remove the double quotes
  DoCmd.OpenReport "QuotationR"
ElseIf "Paid" = True & CustomerType = "Χονδρικής" Then    ' Ditto re. "Paid"
  DoCmd.OpenReport "OrderInvoiceR"
Else
  DoCmd.OpenReport "ReceiptR"
End If

Where are you trying to use this expression?

 

[asteropi]

for a print invoice button. I wrote it in the vba

 

[cheekybuddha]

Is Paid a control on the form or a field in its RecordSource?

 

[asteropi]

worked thank you

 

[asteropi]

it was a yes/no field. I know I shouldn't have used the "". They are gone now

 

[cheekybuddha]

Be careful because, as it's written (with the double quotes around "Paid"), then you will never open report QuotationR.

 

[cheekybuddha]

(We crossed posts)

 

[asteropi]

(We crossed posts)

scratch that only half solved.

It accepts the first If but then skips the 2nd and jumps straight to the ReceiprR report.
This is how it is now

If Paid = False Then
  DoCmd.OpenReport "QuotationR", acViewReport
ElseIf Paid = True & CustomerType = "Χονδρικής" Then
  DoCmd.OpenReport "OrderInvoiceR", acViewReport
Else
  DoCmd.OpenReport "ReceiptR", acViewReport
End If

 

[Gasman]

Try using AND in place of &
You are not concatenating.

 

[asteropi]

Try using AND in place of &
You are not concatenating.

It worked thank you so much.

 

[cheekybuddha]

Try using AND in place of &

Doh!