Public Function GetQueryCriteria(Optional TheDate) As Date
' Code courtesy of UtterAccess Wiki
' http://www.utteraccess.com/wiki/index.php/Category:FunctionLibrary
' Original submission by Glenn Lloyd
'
'based on a code snippet by MVP and UA VIP John Spencer
'
' Date contributed August 5, 2010
'
' Description: set/get query criteria value

' You are free to use this code in any application,
' provided this copyright notice is left unchanged.
'
'--
   
   Const cstrProcedure = "GetQueryCriteria"
   
   Dim strMsg As String
   Static dteStart As Date
   
   On Error GoTo HandleError
   
   If Not IsMissing(TheDate) Then
       dteStart = TheDate
   Else
   'display error message if value has not yet been assigned
       If dteStart = CDate(0) Then
           strMsg = "Function " & cstrProcedure & " has not been initialized."
           MsgBox strMsg, vbOKOnly + vbCritical, "No value"
       End If
   End If
   
   GetQueryCriteria = dteStart
   
   
   
HandleExit:
   
   Exit Function

HandleError:

   strMsg = "Error " & Err & " in procedure " & cstrProcedure
   MsgBox strMsg, vbOKOnly + vbCritical, "Procedure Error"
   Resume HandleExit
End Function