Firstly, is there a standard/built in function called Parse()?
I'm making addtions to someone else's database and they use this in a piece of code. I can't find any information on this in the Help files and the MSDN Search was typically lacking. I tried tracing it back in the database as well to see if it was a custom function, but as yet I haven't found any evidence to support this either.
If anyone could provide some general info on this function or a url where I could read up on it I would be most grateful!
ps if it helps this is the code:
Private Sub cmdOpenReport_Click()
On Error GoTo Err_Stuffed
Dim db As Database, rst As Recordset
Dim strwhere As String, lngCount As Long, intRtn As Integer
' call the routine to build a where clause
strwhere = Parse()
'see if any contracts satisfy the where clause
Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT [Contract_ID] FROM [Contracts] WHERE " & strwhere)
' if no matches found msg box & form return
If rst.RecordCount = 0 Then
MsgBox "No contracts meet your criteria", vbInformation
Me.Visible = True
rst.Close
Exit Sub
End If
Select Case (Me!Options)
Case 1
DoCmd.OpenReport "Contracts", acViewPreview, , strwhere
Case 2
DoCmd.OpenReport "Review List", acViewPreview, , strwhere
End Select
DoCmd.Close acForm, Me.Name
Exit_Stuffed:
Exit Sub
Err_Stuffed:
Resume Exit_Stuffed
End Sub
I'm making addtions to someone else's database and they use this in a piece of code. I can't find any information on this in the Help files and the MSDN Search was typically lacking. I tried tracing it back in the database as well to see if it was a custom function, but as yet I haven't found any evidence to support this either.
If anyone could provide some general info on this function or a url where I could read up on it I would be most grateful!
ps if it helps this is the code:
Private Sub cmdOpenReport_Click()
On Error GoTo Err_Stuffed
Dim db As Database, rst As Recordset
Dim strwhere As String, lngCount As Long, intRtn As Integer
' call the routine to build a where clause
strwhere = Parse()
'see if any contracts satisfy the where clause
Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT [Contract_ID] FROM [Contracts] WHERE " & strwhere)
' if no matches found msg box & form return
If rst.RecordCount = 0 Then
MsgBox "No contracts meet your criteria", vbInformation
Me.Visible = True
rst.Close
Exit Sub
End If
Select Case (Me!Options)
Case 1
DoCmd.OpenReport "Contracts", acViewPreview, , strwhere
Case 2
DoCmd.OpenReport "Review List", acViewPreview, , strwhere
End Select
DoCmd.Close acForm, Me.Name
Exit_Stuffed:
Exit Sub
Err_Stuffed:
Resume Exit_Stuffed
End Sub