I'm trying to run the Matching Records code in Chapter 8, page 271 - 272.

When I click on the Criteria form's Find Matches button, I get the error string "There was a problem building the SQL string".

The book says (page 272, step 6): "Now open the criteria form frmCriteria in form view and hit the Find Matches button without entering any criteria."

This is supposed to bring up the frmSales form, which isn't happening (see above error). In addition, this should be creating the table tblResults, which isn't happening either.

So, I'm apparently dying at the

If Not EntriesValid Then Exit Sub

If Not BuildSQLString(strSQL) Then
    MsgBox "There was a problem building the SQL string"
    Exit Sub
End If

chunk of code and never making it to the BuildResultsTable function.

What am I missing?

Note: I've also tried entering criteria in the form, but I die at the same place in the code.

Thanks in advance,

--Steve

Hi Steve,

I have had the same problem and realised that they have forgotten to mention that the following codes needs to be added for the EntriesValid.
When checking into the later chapter, I founf it:
Just add it into the frmCriteria as a new function:

Function DisplayResults(lRecords As Long) As Boolean

Dim iReturn As Integer
Dim sMsg As String

Select Case lRecords
    Case 0
        sMsg = "No records matched the criteria you specified."
        MsgBox sMsg, vbExclamation, Application.Name
        DisplayResults = True
        Exit Function
    Case 1
        sMsg = "1 record matched the criteria you specified."
        sMsg = sMsg & vbCrLf & vbCrLf & "Would you like to see it?"
    Case Is > 1
        sMsg = lRecords & " records matched the criteria you specified."
        sMsg = sMsg & vbCrLf & vbCrLf & "Would you like to see them?"
End Select

iReturn = MsgBox(sMsg, _
            vbQuestion + vbYesNo + vbDefaultButton1, _
            Application.Name)

If iReturn = vbYes Then
    DoCmd.OpenForm "frmSales"
    DoCmd.Close acForm, Me.Name
End If

DisplayResults = True

End Function

Good luck,
Chris