[AccessD] Am I missing something simple? - function in querycriteria

Something else
You are testing for the existence of  2 forms and an alternative
Have you made sure that when each form is actually open it returns a result?

Same as the Dlookup alternative?

IE run the function with each form open and look at the debug result
Then the same with neither form open to see if the dlookup does its stuff

DD



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kath Pelletti
Sent: Friday, 4 March 2005 2:53 PM
To: AccessD at databaseadvisors.com
Subject: [AccessD] Am I missing something simple? - function in
querycriteria

Hi all - 

I am using a function in my query criteria. The function works and returns a
value of  52275 (I can see that from the debug window).

If I type in 52275 as the query criteria it rerurns a result, but if I use
the function it doesn't. After much head banging I am looking for something
basic I may be doing wrong. Any ideas? 

Function is:

Public Function GetTemplateld() As Long
Dim strerrormsg As String
Dim StrAccountno As String
Dim IntRepCycleID As Integer
'On Error GoTo Err_Handler

If IsFormOpen("FrmClientDetails") = True Then
    GetTemplateld =
[Forms]![FrmClientDetails]![FrmClientMarketValueHistorySubform]![TemplateID]

ElseIf IsFormOpen("FrmReportCycleWorksheet_Master") = True Then
    GetTemplateld = [Forms]![FrmReportCycleWorksheet_Master]![TemplateID]
    
ElseIf IsFormOpen("FrmMainMenu") = True Then
    StrAccountno = Forms![FrmMainMenu]![TxtReportingAccountNo]
    IntRepCycleID = Forms![FrmMainMenu]![TxtReportCycleID]
    gettemplateid = Nz(DLookup("[TemplateID]",
"TblHistory_SubAccountTemplate", _
            "[AccountNo] = '" & StrAccountno & " '" & " And [reportcycleid]
= " & IntRepCycleID)) Else
    gettemplateid = 0
End If

Debug.Print gettemplateid

Normal_exit:
    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 & 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