S
Sue R via AccessMonster.com
I've read through and tried numerous ideas posted here and other sites for
Cascading combos but still must be doing something wrong so any help is
appreciated.
I have a simple database with 2 tables
tblMain ( all employee fields)
tbl Unit (Department, Unit)
this is my latest attempt from postings I've found -
I have a form (frmEmployeeInfo) with two combo boxes.
cbxDepartment
Row Source Type - Table/Query
Row Source - SELECT DISTINCT tblUnit.Department FROM tblUnit ORDER BY tblUnit.
Department;
Column Count - 1
Bound column - 2
After Update - Private Sub cbxDepartment_AfterUpdate()
On Error Resume Next
cbxUnit.RowSource = "Select tblUnit.Unit " & _
"FROM tblUnit " & _
"WHERE tblUnit.Department = '" & cbxDepartment.Value & "' " & _
"ORDER BY tblUnit.Unit;"
End Sub
cbxUnit
Row Source Type - Table/Query
Row Source -
Column Count - 1
Bound Column - 1
After Update - none
Thank you for any help, it is greatly appreciated.
Sue
Cascading combos but still must be doing something wrong so any help is
appreciated.
I have a simple database with 2 tables
tblMain ( all employee fields)
tbl Unit (Department, Unit)
this is my latest attempt from postings I've found -
I have a form (frmEmployeeInfo) with two combo boxes.
cbxDepartment
Row Source Type - Table/Query
Row Source - SELECT DISTINCT tblUnit.Department FROM tblUnit ORDER BY tblUnit.
Department;
Column Count - 1
Bound column - 2
After Update - Private Sub cbxDepartment_AfterUpdate()
On Error Resume Next
cbxUnit.RowSource = "Select tblUnit.Unit " & _
"FROM tblUnit " & _
"WHERE tblUnit.Department = '" & cbxDepartment.Value & "' " & _
"ORDER BY tblUnit.Unit;"
End Sub
cbxUnit
Row Source Type - Table/Query
Row Source -
Column Count - 1
Bound Column - 1
After Update - none
Thank you for any help, it is greatly appreciated.
Sue