I mocked up your situation:
tblStudent
studentID |
Studentname |
StudentGender |
1 |
Bob |
male |
2 |
Sam |
male |
3 |
Jo |
female |
4 |
Joe |
male |
5 |
Josh |
male |
6 |
Tara |
female |
7 |
Sara |
female |
tblSport
sportID |
sportName |
sportGender |
1 |
BasketballF |
female |
2 |
GymnasticsF |
female |
3 |
GymnasticsM |
male |
4 |
GymnasticsU |
unisex |
5 |
BasketballM |
male |
6 |
SwimmingU |
unisex |
7 |
CricketU |
unisex |
8 |
CricketM |
male |
On the form there is a textbox txtGender and a combo cboSport
The AfterUpdate event of the txtGender is
Code:
Option Compare Database
Option Explicit
Private Sub txtGender_AfterUpdate()
Me.cboSport.RowSource = "Select * from tblSport where sportGender = 'unisex' or sportGender ='" _
& Me.txtGender & "'"
Me.Requery
End Sub