Search Form stopped working with new fields

[carrietom]

As you can see this code is really long so I'm not sure that posting it is
going to be any help. I have built Search Forms in other databases (i
believe originally following Allen Browne's instructions) and had the Search
Form working in this db too until I added two more fields that need to be
searched. I recopied all the SQL from myt query (which works fine) but have
not been able to figure out why it stopped working here. There is no error
message - it just returns no results.

Any guidance is much appreciated!


strSQL = "SELECT Tbl_MAIN.Record_ID AS ID, Tbl_MAIN.[License Number] AS
License, Tbl_Province.Province, Tbl_MAIN.Field_Location, Tbl_MAIN.Surf_LE,
Tbl_MAIN.Surf_LSD, Tbl_MAIN.Surf_SEC, Tbl_MAIN.Surf_TWP, Tbl_MAIN.Surf_RGE,
Tbl_MAIN.Surf_MER, Tbl_MAIN.DLS_LE, Tbl_MAIN.DLS_LSD, Tbl_MAIN.DLS_SEC,
Tbl_MAIN.DLS_TWP, Tbl_MAIN.DLS_RGE, Tbl_MAIN.DLS_MER, Tbl_MAIN.Surf_QUnit,
Tbl_MAIN.Surf_Unit, Tbl_MAIN.Surf_4Block, Tbl_MAIN.Surf_Map,
Tbl_MAIN.Surf_6Block, Tbl_MAIN.Surf_7Block, Tbl_MAIN.NTS_QUnit,
Tbl_MAIN.NTS_Unit, Tbl_MAIN.NTS_4Block, Tbl_MAIN.NTS_Map,
Tbl_MAIN.NTS_6Block, Tbl_MAIN.NTS_7Block, Tbl_SCV_Type.SCV_Type,
Tbl_SCV_Class.SCV_Classification, Subtbl_Abandonments.Abd_Status,
Subtbl_BC_Suspensions_MAIN.BC_Status, SubTbl_Casing_Failures_MAIN.CF_Status,
Subtbl_Commingling_MAIN.Commingling_Status, Subtbl_D13_MAIN.D13_Status,
Subtbl_IPT_MAIN.IPT_Status, Tbl_Resource_App_Status.Approval_Status,
Subtbl_SCVF_MAIN.SCVF_Status" _
& "FROM ((((((((Tbl_Province INNER JOIN Tbl_MAIN ON Tbl_Province.[Prov_ID] =
Tbl_MAIN.[Province])" _
& "LEFT JOIN Subtbl_Abandonments ON Tbl_MAIN.[Record_ID] =
Subtbl_Abandonments.[RecordID])" _
& "LEFT JOIN Subtbl_BC_Suspensions_MAIN ON Tbl_MAIN.[Record_ID] =
Subtbl_BC_Suspensions_MAIN.[RecordID])" _
& "LEFT JOIN SubTbl_Casing_Failures_MAIN ON Tbl_MAIN.[Record_ID] =
SubTbl_Casing_Failures_MAIN.[RecordID])" _
& "LEFT JOIN Subtbl_Commingling_MAIN ON Tbl_MAIN.[Record_ID] =
Subtbl_Commingling_MAIN.[Record_ID])" _
& "LEFT JOIN Subtbl_D13_MAIN ON Tbl_MAIN.[Record_ID] =
Subtbl_D13_MAIN.[RecordID])" _
& "LEFT JOIN Subtbl_IPT_MAIN ON Tbl_MAIN.[Record_ID] =
Subtbl_IPT_MAIN.[RecordID])" _
& "LEFT JOIN (Tbl_Resource_App_Status" _
& "RIGHT JOIN Subtbl_Resource_Applications ON
Tbl_Resource_App_Status.[ResStatus] =
Subtbl_Resource_Applications.[ResApp_Status]) ON Tbl_MAIN.[Record_ID] =
Subtbl_Resource_Applications.[Record_ID])" _
& "LEFT JOIN ((Tbl_SCV_Type RIGHT JOIN Subtbl_SCVF_MAIN ON
Tbl_SCV_Type.[SCVType_ID] = Subtbl_SCVF_MAIN.[SCV_Type])" _
& "LEFT JOIN (Tbl_SCV_Class" _
& "RIGHT JOIN Subtbl_SCVF_Test ON Tbl_SCV_Class.[Class_ID] =
Subtbl_SCVF_Test.[Classification])" _
& "ON Subtbl_SCVF_MAIN.[SCVF_ID] = Subtbl_SCVF_Test.[SCVF_ID])" _
& "ON Tbl_MAIN.[Record_ID] = Subtbl_SCVF_MAIN.[RecordID]"

If Not IsNull(Me.RecID) Then
strWhere = strWhere & " (Tbl_MAIN.[Record_ID]) Like '*" & Me.RecID & "*'
AND"
End If

etc.