RubberChicken
Registered User.
- Local time
- Today, 13:29
- Joined
- Jun 24, 2013
- Messages
- 18
Hi Guys,
I am hoping someone can look at the code below and tell my why I am getting this error?
I have added
Thanks for your help.
I am hoping someone can look at the code below and tell my why I am getting this error?
I have added
and the respective ) to the code and now I am getting this error.IIf([CustGrp]='P3','Mid Market',
Thanks for your help.
MyDB.Execute "INSERT INTO tblTransactionsOpera ( Division, CustomerGroup, CustomerRef, Customername, " _
& "TransactionNo, TransactionDate, TransactionType, Amount, Ledger, Periodend, InDispute, OriginalAmount ) " _
& "SELECT IIf([CustGrp]='CA','Small Business',IIf([CustGrp] Like 'D*','Accident Services',IIf([CustGrp]= 'J2','Garage Network'," _
& "IIf([CustGrp]= 'J3','Battery Sales',IIf([CustGrp]='P2','SME Fleet',IIf([CustGrp]='P3','Mid Market',IIf([CustGrp]='P5','Agresso Strategic',IIf([CustGrp]='B1','Risk Management'," _
& "IIf([CustGrp]='PA' Or [CustGrp]='PE','Insurance pay On Use',IIf([CustGrp]='R1','Ad customer services'," _
& "IIf([CustGrp]='T2','Commercial Training',IIf([CustGrp]= 'L1','InsurerA',IIf([CustGrp]= 'L2','InsurerB',))))))))))))) " _
& "AS Segment, " _
& "Agresso.CustGrp, Agresso.CustID, " _
& "Agresso.Customername, Agresso.InvoiceNo, Agresso.InvoiceDate, " _
& "IIf([TT]='AR','Accounts Receivable Invoice', IIf([TT]='CA','Cash Allocation', " _
& "IIf([TT]='CN','Credit Note Allocated',IIf([TT]='CR','Cash Received',IIf([TT]='BI','Other Invoices'," _
& "IIf([TT]='GL','General Ledger',IIf([TT]='SF','Siebel Fleet Invoices',IIf([TT]='SO','Other Invoices'," _
& "IIf([TT]='LC','Legal Credit Note',IIf([TT]='RR','Reversal',IIf([TT]='BP','Bank Payments GL'," _
& "IIf([TT]='XR','AS Customer Invoices',IIf([TT]='SA','Sale Of Fixed Assets',IIf([TT]='AD','AS DD Receipts', " _
& "'Not Known')))))))))))))) AS TransactionType, Agresso.Amount, " _
& "'Agresso' AS Ledger, #" & sPeriodEnd & "# As PeriodEnd, IIf([CC] Is Not Null,True,False) AS InDispute, " _
& "Agressriginal " _
& "FROM Agresso " _
& "WHERE (((IIf([CustGrp]='CA','Small Business',IIf([CustGrp] Like 'D*','Accident Services',IIf([CustGrp]= 'J2','Garage Network'," _
& "IIf([CustGrp]= 'J3','Battery Sales',IIf([CustGrp]='P2','SME Fleet',IIf([CustGrp]='P3','Mid Market',IIf([CustGrp]='P5','Agresso Strategic',IIf([CustGrp]='B1','Risk Management'," _
& "IIf([CustGrp]='PA' Or [CustGrp]='PE','Insurance pay On Use',IIf([CustGrp]='R1','Ad customer services'," _
& "IIf([CustGrp]='T2','Commercial Training',IIf([CustGrp]= 'L1','InsurerA',IIf([CustGrp]= 'L2','InsurerB',)))))))))))))) Is Not Null)) " _
& "And Agresso.InvoiceDate <= #" & sPeriodEnd & "# " _
& "And Agresso.Amount <> 0 " _
& "ORDER BY Agresso.CustGrp;"
Last edited: