There appears to be a timing issue in the DB attachment in Post#10. It can be fixed by the red code mod below.
Code:
Private Sub Frame4_AfterUpdate()
Dim sSQL As String
Select Case Me.Frame4.Value
Case 1
sSQL = "SELECT Members_PK, tblMembers.FirstName, tblMembers.LastName " _
& "FROM tblMembers " _
& "WHERE (((tblMembers.LastName) Like '*A*'));"
Call fcnMakeNamedQryFromSQLString("qtempQuery", sSQL)
DoEvents
Me.Page1Report.SourceObject = "Report.rptMembers"
Case 2
sSQL = "SELECT Members_PK, tblMembers.FirstName, tblMembers.LastName " _
& "FROM tblMembers " _
& "WHERE (((tblMembers.LastName) Like '*B*'));"
Call fcnMakeNamedQryFromSQLString("qtempQuery", sSQL)
DoEvents
Me.Page1Report.SourceObject = "Report.rptMembers"
Case 3
sSQL = "SELECT Members_PK, tblMembers.FirstName, tblMembers.LastName " _
& "FROM tblMembers " _
& "WHERE (((tblMembers.LastName) Like '*S*'));"
Call fcnMakeNamedQryFromSQLString("qtempQuery", sSQL)
DoEvents
Me.Page1Report.SourceObject = "Report.rptMembers"
Case 4
sSQL = "SELECT Members_PK, tblMembers.FirstName, tblMembers.LastName " _
& "FROM tblMembers " _
& "WHERE (((tblMembers.LastName) Like '*R*'));"
Call fcnMakeNamedQryFromSQLString("qtempQuery", sSQL)
DoEvents
Me.Page1Report.SourceObject = "Report.rptMembers"
End Select
End Sub