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

Just a WAG
Are you referencing a subform in the first   IsFormOpen statement?

If so try putting .form. between
[FrmClientMarketValueHistorySubform] and [TemplateID] so it loks like
GetTemplateld =
[Forms]![FrmClientDetails]![FrmClientMarketValueHistorySubform].form.[Templa
teID]
Instead of
GetTemplateld =
[Forms]![FrmClientDetails]![FrmClientMarketValueHistorySubform]![TemplateID]


HTH

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