VBA function query

[Pacific1]

Can anyone shed some light on the following error: "error 3061 too few parameters........"



The section of code is listed below. If I type in a number for OrderNO on the last line below it works like it should

Dim sSql As String
Dim OrderNO As Integer

OrderNO = InputBox("Enter Order Number:")


sSql = " SELECT Transaction.[Transaction ID], Sum(Transaction.QTY) AS TransID_QTY, " _
& " Transaction.[Details ID] & ' - ' & Transaction.[Product ID] AS DIProd" _
& " FROM [Transaction] " _
& " GROUP BY Transaction.[Transaction ID], Transaction.[Details ID] & ' - ' & Transaction.[Product ID], Transaction.[Details ID]" _
& " HAVING Transaction.[Details ID] = OrderNo;"



Thanks for your help

[Bob Fitz]

Try:

sSql = " SELECT Transaction.[Transaction ID], Sum(Transaction.QTY) AS TransID_QTY, " _
& " Transaction.[Details ID] & ' - ' & Transaction.[Product ID] AS DIProd" _
& " FROM [Transaction] " _
& " GROUP BY Transaction.[Transaction ID], Transaction.[Details ID] & ' - ' & Transaction.[Product ID], Transaction.[Details ID]" _
& " HAVING Transaction.[Details ID] = " & OrderNo;