[AccessD] query criteria

I see - you've actually putting the function name in the QBE grid.

Take a look at the query in SQL view and you will see what is actually happening.    

Access converts it into:
... WHERE (((myTable.myField) = GetEventCriteriaString()));

 Just put "LIKE GetEventCriteruaString()" in the criteria and replace the "IS NOT NULL" in 
your function  with "*"



On 21 May 2008 at 15:51, Kath Pelletti wrote:

> Yeah - i think that may be what's happening - my query criteria says:
> 
> GetEventCriteriaString()
> 
> I haven't put the = sign.
> 
> But still doesn't work.
> Kath
> 
> ----- Original Message ----- 
> From: "Stuart McLachlan" <stuart at lexacorp.com.pg>
> To: <accessd at databaseadvisors.com>
> Sent: Wednesday, May 21, 2008 3:25 PM
> Subject: Re: [AccessD] query criteria
> 
> 
> > Exactly how are you using the criteria?
> > It looks to me as though you are getting an implicit "="  somewhere
> > ie you must be  making "CPD" into "= CPD".
> > Trouble is that doing that with "IS NOT NULL" ends up with "= IS NOT NULL"
> >
> >
> >
> > On 21 May 2008 at 14:51, Kath Pelletti wrote:
> >
> >> aaaarrggh.... need some help on something which should be simple.
> >>
> >> I have a function which returns a string.
> >>
> >> I am using that function name as the criteria in a query, ie. where 
> >> criteria = GetEventCriteriaString()
> >>
> >> One of the possible values I would like the function to return is a 
> >> criteria of not null and not blank. But so far I can't even get the 'not 
> >> null' to work. When I run it using the code below I get no records 
> >> returned even though if I type the words Is Not Null into the query 
> >> criteria manually it works. I have a feeling that this is to do with the 
> >> quotation marks and strings............... hope someone knows......
> >>
> >> -----------------------------------------
> >> Here's the function:
> >> Public Function GetEventCriteriaString() As String
> >> Dim strerrormsg As String
> >> Dim VarActivityType As Variant
> >> On Error GoTo Err_Handler
> >>
> >> If IsFormOpen("FrmDialogRptNoEventsAttended") = True Then
> >>     VarActivityType = 
> >> [Forms]![FrmDialogRptNoEventsAttended]![CtlActivityTypes]
> >>
> >>     If IsNull(VarActivityType) Or VarActivityType = "" Then
> >>         GetEventCriteriaString = ""
> >>         GoTo Normal_exit
> >>     Else
> >>         Select Case VarActivityType
> >>         Case "Any"
> >>             GetEventCriteriaString = "Is Not Null"        'THIS LINE NOT 
> >> WORKING
> >>         Case "CPD"
> >>             GetEventCriteriaString = "CPD"
> >>         Case "CNE"
> >>             GetEventCriteriaString = "CNE"
> >>        Case "Non CPD"
> >>             GetEventCriteriaString = "Non CPD"
> >>         End Select
> >>     End If
> >> End If
> >>
> >> Normal_exit:
> >>     DoCmd.SetWarnings True
> >>     Exit Function
> >> Err_Handler:
> >>     MsgBox "Error: [" & Err.Number & "]  " & IIf(Len(strerrormsg) > 0, 
> >> strerrormsg, Err.Description), vbCritical, "Error Message"
> >>     Resume Normal_exit
> >> End Function
> >>
> >>
> >>
> >> ______________________________________
> >> Kath Pelletti
> >> Software Design and Solutions Pty Ltd
> >> Ph: 9505-6714
> >> Fax: 9505-6430
> >> kp at sdsonline.net
> >> -- 
> >> AccessD mailing list
> >> AccessD at databaseadvisors.com
> >> http://databaseadvisors.com/mailman/listinfo/accessd
> >> Website: http://www.databaseadvisors.com
> >
> >
> > -- 
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> > 
> 
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com