Sub/Function not defined (1 Viewer)

[arage]

Sub/Function not defined
I’m trying to user the enclosed function to build my report’s filter criteria but as per below, the COMMANDBARCOMBOBOX statement keeps stopping with the error message that the “Sub or Function is not defined.” Any help would be appreciated.

'determines WHERE criteria to apply to a report…

Function buildSQL()

strSQL = "PromotionType= " & Choose(CommandBarComboBox(filterType).ListIndex, "BE", "OA") & " and year(mediaStartDate) like filteryear"

DoCmd.OpenReport objName, acViewPreview, , strSQL

End Function

 

[Pat Hartman]

strSQL = "PromotionType= " & Choose(CommandBarComboBox(filterType).ListIndex, "BE", "OA") & " and year(mediaStartDate) = " & filteryear & ";"

filteryear was being interpreted as a function. Since it is not defined in the function that you posted, you're still going to have trouble with the statement. Should you be referring to a form field - Forms!YourForm!YourFilterYear ?

I also changed LIKE to =. Never use LIKE unless you are supplying partial values and in that case, you need to surround it with asterisks as in - Like '*" & filteryear & "*';"

 

[arage]

Well, placing your code doesn’t stop the error unfortunately. You didn’t address the CommandBarComboBox issue I stated above, is that ok by you? Because access doesn’t think so.

 

[Pat Hartman]

I told you that what I suggested would probably not work because filteryear is not defined in the function! Where is it comming from?