check box to select values only in selected table

[dstyles7]

i have 2 list boxex which are bound together, if you select the ist list box it shows valeus in second table. below the list boxes i have a txt box and command button. Instead of going down each table they can just type the selection and press find it also has a find next butt that searches all the tables. I now want to create a check box that allows the users to view values only in the selected table can anyone assist.

Dim Sql   As String
 
 
Sql = "SELECT caFieldKey, caTableLink, caTableName, [caFieldName_4], [Field Description] " & _
      "FROM CATABLES INNER JOIN CAFIELDS ON " & _
          "CATABLES.CATableKey = CAFIELDS.CATableLink " & _
      "WHERE [CAFieldName_4] LIKE '*" & txtcaField & "*' AND " & _
            "[Field Description] LIKE '*" & txtcaDescription & "*'"
Set mRS = mDB.OpenRecordset(Sql, dbOpenSnapshot, dbFailOnError)
If Not mRS.EOF Then
  Me.lstcatable = mRS!CATableLink
 lstcatable_AfterUpdate
  Me.lstcafield = mRS!CAFieldKey
End If
End Sub

[willakawill]

You only need to alter your sql statement based on the checkbox being checked or not