I have a query that takes information from a combo box. Right now that
is a single value. I need a way to inclue multiple values
Here is the query criteria and the function behind it: GetCombo30(33)
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/information-technology/11586-more-than-1-one-query-criteria.htmlReference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11586
Public Function GetCombo30(ByVal lngID As Long) As Long
On Error Resume Next
Dim lngCombo30 As Long
' You'll need an IsLoaded or equivilent function
If CurrentProject.AllForms("Product_Sales_Monthly").IsLoaded Then
lngCombo30 = Forms!Product_Sales_Monthly!Text42
Else
lngCombo30 = lngID
End If
GetCombo30 = lngCombo30
End Function