Filtered and Multiple Lookups

[JacqStar]

I'm really not very good at access, so this will probably be a sinch for most of you

I have a form with one of the inputs as a lookup. For the sake of an explanation I'll call this lookup the "Department" field

I would then like the next two lookups to look to a table which contains Employee first and last names, for example and the departments which they belong to. I would like the lookup to only show the fields of people who belong to the department which has already been chosen by the first lookup, and then by making only one selection, put two different values (first and last name) in two different columns.

If anyone can help a beginner it would be great!!!

[puppydogbuddy]

I'm really not very good at access, so this will probably be a sinch for most of you

I have a form with one of the inputs as a lookup. For the sake of an explanation I'll call this lookup the "Department" field

I would then like the next two lookups to look to a table which contains Employee first and last names, for example and the departments which they belong to. I would like the lookup to only show the fields of people who belong to the department which has already been chosen by the first lookup, and then by making only one selection, put two different values (first and last name) in two different columns.

If anyone can help a beginner it would be great!!!

See if this is what you wanted.

Tables>Dept, Employee
Lookups are comboboxes >cboDept, cboEmployee

Assumes that DeptNo and EmployeeNo are both text data types

cboDept>DeptAutonumber(Bound Column(0)-Hidden), DeptNo, DeptName

cboDept.RowSource = "Select * From Dept"

cboEmployee>EmplAutonumber(Bound Column(0) Hidden), EmployeeID, FirstName, LastName, DeptNo

cboEmployee.RowSource = "Select * From Employee Where DeptNo = '" & Me!cboDept.Column(1) & "'"

Private Sub cboEmployee_AfterUpdate()
cboEmployee.RowSource = "Select * From Employee Where  EmployeeID = '" & Me!cboEmployee.Column(1) & "'"
Me!txtFirstName.Value = cboEmployee.Column(2)
Me!txtLastName.Value =  cboEmployee.Column(3)
End Sub