Jibbadiah
James
- Local time
- Tomorrow, 08:09
- Joined
- May 19, 2005
- Messages
- 282
I can't look at your db - I only have Access 97 at work.
Ok. so you have the form bound to your table.
1. Create a query that selects all of the elements that you need from the table (obviously you have to keep the table to do this).
2. Go to the properties section of your form and change your datasource from your table to your new query. Check it, it should work in the same way that it did for the table (but instead it is using the query).
3. Go to the properties section of the description control and remove the entry in "control source". This will make the control unbound, i.e. it is no longer populated from the query.
4. Delete your existing role control and insert a new combobox in it's place. Use the wizard to make it work.
5. Insert an unbound text box called txtControl. On the "on Change" event of the combo box insert the following code (changing the names where necessary. This should autopopulate the description of the role
txtControl = DLookup("[Description]", "QueryName", "[Role] = '" & ComboBoxName & "'")
Me.Recalc
Ok. so you have the form bound to your table.
1. Create a query that selects all of the elements that you need from the table (obviously you have to keep the table to do this).
2. Go to the properties section of your form and change your datasource from your table to your new query. Check it, it should work in the same way that it did for the table (but instead it is using the query).
3. Go to the properties section of the description control and remove the entry in "control source". This will make the control unbound, i.e. it is no longer populated from the query.
4. Delete your existing role control and insert a new combobox in it's place. Use the wizard to make it work.
5. Insert an unbound text box called txtControl. On the "on Change" event of the combo box insert the following code (changing the names where necessary. This should autopopulate the description of the role
txtControl = DLookup("[Description]", "QueryName", "[Role] = '" & ComboBoxName & "'")
Me.Recalc