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

Andy Lacey andy at minstersystems.co.uk
Fri Mar 4 01:39:59 CST 2005


Just to help you see what's happening try making the function a column in
your query and see what it shows.

-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Kath Pelletti
> Sent: 04 March 2005 03:53
> 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
> 
> 




More information about the AccessD mailing list