Private Sub ScaleText_Change()
Dim myScale As String
myScale = Nz(ScaleText.Text, "")
Call myFilter("[ScaleName]", "ScaleText", myScale)
currentrsrc = Me.tblTheme_Query_subform.Form.RecordSource
End Sub
Private Sub surveyText_Change()
Dim mySurvey As String
mySurvey =...