Type Mismatch

[Alex Motilal]

I wrote the following function and tried to execute it. However it is showing Error 13 Type Mismatch.

Public Function MyHeapBudPc(MyHeap As Long) As Double

MyHeapBudPc = "SELECT Sum(([tblPurchase]![qtyPurchasedPked]+[tblPurchase]![qtyPurchasedLoose]) " & _
"*GetLintBudgetPC([tblSeasonCenterVtyJunction]![CenterPertaining],[tblSeasonCenterVtyJunction]![VarietyPertaining],DateNo([tblPurchase]![dateOfPurchase]), " & _
"[tblFactory]![factoryType])) AS PCproduct " & _
"FROM tblSeasonCenterVtyJunction INNER JOIN (tblFactory INNER JOIN (tblHeap INNER JOIN " & _
"tblPurchase ON tblHeap.heapID = tblPurchase.heapPrepared) ON tblFactory.factoryID = tblHeap.factoryProcessed) ON " & _
"tblSeasonCenterVtyJunction.SeasonCentVtyID = tblHeap.HeapRelatedTo " & _
"WHERE (((tblPurchase.heapPrepared)= & MyHeap))"

End Function



Please help

[Bob Fitz]

What kind of data is held in:
SeasonCentVtyID, HeapRelatedTo, heapPrepared and MyHeap

[andy49]

The & before the myheap last line is wrong.


Sent from my iPhone using Tapatalk

[pbaldy]

You're not even getting that far. You're putting a string into a variable defined as Double (the function itself). Presumably you want to open a recordset on the SQL and return the result.

[Alex Motilal]

Thanks pbaldy, yes I am trying to return the result.
Bob Fitz, all the data held in the fields you have mentioned are Integer.

[pbaldy]

You'll need to open a recordset on that SQL and return the field that's returned. This should help:

http://www.baldyweb.com/ImmediateWindow.htm