How to insert "Or" & "and" at the same time in Docmd?

[jazee007]

Hi everybody,
First I'm sorry if the question is not set correctly. I'm new to access.

Well, I need help concerning the following code. I need to insert this in the code below which is working fine:

PaymentMethod = "Cash" or "Cheque"

"where CustomerId = Invoice_Id and Customers.CustomersStatus = 'Invoiced' and Barcode_Of_Goods ='" & Me.Barcode_Goods & "'"
 

Please can someone help me?

[Rabbit]

Use IN instead.

PaymentMethod IN ('Cash', 'Cheque')

[jazee007]

Thanks a lot.

It works great. It is as follows:

Private Sub cmdUpdateSales_Click()
 
DoCmd.SetWarnings False
 
DoCmd.RunSQL "Update Customers,Sales set CustomersStatus = 'Closed', Action = 'On-Order'" & _
"where CustomerId = Invoice_Id and Customers.PaymentType IN ('Cash','Cheque') and Customers.CustomersStatus = 'Invoiced' and Barcode_Of_Goods ='" & Me.Barcode_Goods & "'"
 
 
DoCmd.RunSQL "Update Sales Set Sales.Action = 'On-Order'" & _
"WHERE (Sales.Action)= 'Re-Order' and (Sales.[MOP of Payment]) IN ('Cash','Cheque') and (Sales.[Transaction Type])= 'Sold Re-Order' and (Sales.Barcode_Of_Goods)='" & Me.Barcode_Goods & "'"
 
Me.Requery
 
DoCmd.SetWarnings True
 
End Sub