I have one main form called "frmSearchMain" that holds two subforms called "frmSearchNavigation" and "frmSearch". Before I put the subforms onto the main form I created a filter for the form called "frmSearch", and it works perfectly on that form. But when I put that form as a subform on "frmSearchMain" the filter no longer worked. The filter is done by a separate form called "frmFilter". Anyone know why the filter doesn't work when I just make it a subform?
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Filter on SubForm Doesn't Work Now?
- Thread starter Ciralia
- Start date
- Thread starter
- #3
Here is the coding for my filter, it filters various attributes of a person:
temp = "" 'reset value of global string variable
If Not IsNull(cmbGender.Value) And (cmbGender.Value) <> "Any" Then
If temp = "" Then
temp = "Gender=""" + cmbGender.Value + """"
Else
temp = temp + "and Gender=""" + cmbGender.Value + """"
End If
End If
If Not IsNull(cmbHairColor.Value) And (cmbHairColor.Value) <> "Any" Then
If temp = "" Then
temp = "HairColor=""" + cmbHairColor.Value + """"
Else
temp = temp + "and HairColor=""" + cmbHairColor.Value + """"
End If
End If
If Not IsNull(cmbHairType.Value) And (cmbHairType.Value) <> "Any" Then
If temp = "" Then
temp = "HairType=""" + cmbHairType.Value + """"
Else
temp = temp + "and HairType=""" + cmbHairType.Value + """"
End If
End If
If Not IsNull(cmbEyeColor.Value) And (cmbEyeColor.Value) <> "Any" Then
If temp = "" Then
temp = "EyeColor=""" + cmbEyeColor.Value + """"
Else
temp = temp + "and EyeColor=""" + cmbEyeColor.Value + """"
End If
End If
If Not IsNull(cmbEthnicity.Value) And (cmbEthnicity.Value) <> "Any" Then
If temp = "" Then
temp = "Ethnicity=""" + cmbEthnicity.Value + """"
Else
temp = temp + "and Ethnicity=""" + cmbEthnicity.Value + """"
End If
End If
DoCmd.Close
DoCmd.OpenForm "frmSearchMain", acNormal, , temp 'open search form
All the filter button on my "frmSearchMain" form does is open the filter form again.
temp = "" 'reset value of global string variable
If Not IsNull(cmbGender.Value) And (cmbGender.Value) <> "Any" Then
If temp = "" Then
temp = "Gender=""" + cmbGender.Value + """"
Else
temp = temp + "and Gender=""" + cmbGender.Value + """"
End If
End If
If Not IsNull(cmbHairColor.Value) And (cmbHairColor.Value) <> "Any" Then
If temp = "" Then
temp = "HairColor=""" + cmbHairColor.Value + """"
Else
temp = temp + "and HairColor=""" + cmbHairColor.Value + """"
End If
End If
If Not IsNull(cmbHairType.Value) And (cmbHairType.Value) <> "Any" Then
If temp = "" Then
temp = "HairType=""" + cmbHairType.Value + """"
Else
temp = temp + "and HairType=""" + cmbHairType.Value + """"
End If
End If
If Not IsNull(cmbEyeColor.Value) And (cmbEyeColor.Value) <> "Any" Then
If temp = "" Then
temp = "EyeColor=""" + cmbEyeColor.Value + """"
Else
temp = temp + "and EyeColor=""" + cmbEyeColor.Value + """"
End If
End If
If Not IsNull(cmbEthnicity.Value) And (cmbEthnicity.Value) <> "Any" Then
If temp = "" Then
temp = "Ethnicity=""" + cmbEthnicity.Value + """"
Else
temp = temp + "and Ethnicity=""" + cmbEthnicity.Value + """"
End If
End If
DoCmd.Close
DoCmd.OpenForm "frmSearchMain", acNormal, , temp 'open search form
All the filter button on my "frmSearchMain" form does is open the filter form again.
Ciralia,
check your temp with a
msgbox temp
It may be that closing the control with DoCmd.close
loses the temp as the scope of the control ends. If that is the case, try moving temp into a DIM variable and putting that in the criterion field.
rollie@bwsys.net
check your temp with a
msgbox temp
It may be that closing the control with DoCmd.close
loses the temp as the scope of the control ends. If that is the case, try moving temp into a DIM variable and putting that in the criterion field.
rollie@bwsys.net
- Status
Similar threads
- Locked
- Question
