2 Combo Box Filter for a Form

[kr]

I have 2 combo boxes on FormA - Combo151 and Combo 143. I would like users
to choose from combo151 and furhter filter records with combo 143. How do i
get combo143 to correspond to combo151. this is what i have in both.
Private Sub Combo143_AfterUpdate()
If IsNull(Me.Combo143) Then 'Remove the filter
Me.Filter = vbNullString
Me.FilterOn = False
Else
Me.Filter = "[Time Zone] = '" & Me.Combo143 & "'"
Me.FilterOn = True
End If

End Sub




Private Sub Combo151_AfterUpdate()
If IsNull(Me.Combo151) Then 'Remove the filter
Me.Filter = vbNullString
Me.FilterOn = False
Else
Me.Filter = "[Segment Type] = '" & Me.Combo151 & "'"
Me.FilterOn = True
End If

End Sub

Thank you!!!

 

[golfinray]

Martin Greene at www.fontstuff.com and Allen Browne at www.allenbrowne.com
both have excellent tutorials and examples on that.