Avatar of AlfaDB
AlfaDB
 asked on

Access 2013: Combo box in a form

Hello. I have a form to add some details for Mr.X (Mr_ID). The corresponding tables are Details_Table (Mr.X's data), Date_Table (visits of Mr. X to my office)  and Visit_Details_Table (what happened during the Visit). The tables are connected and working properly.

How can I create a combo box in a form which will contain the values from the Test_Date field, but ONLY the ones connected to the specified Mr_ID, so I can add details to a subform (Visit_Details_Table) and connect them to the Test_date?

Thanks
Microsoft AccessMicrosoft OfficeVisual Basic ClassicVBAProgramming

Avatar of undefined
Last Comment
Martin Liss

8/22/2022 - Mon
Jim Dettman (EE MVE)

Simplest is to:

1. Base the combo's rowsource on a query.

2. In that query, add a reference to the Mr_ID control on the form.


=Forms![<my form name>]![txtMr_ID]

On the Mr_ID field

3. In the Got Focus event of the combo, do a requery of the combo so it's updated.   Note that you may be able to use the OnCurrent event of the form...not sure when the dates might change.   If no visits can be added while your viewing this form, then you can use the OnCurrent.

 But if new visits can be added while sitting on this form, then you'll need to use the GotFocus of the combo so it's always up to date.

Your combo will then only display dates associated with Mr_ID

Jim.
AlfaDB

ASKER
Hm..
1) Ok
2) ...but includes all the values and not only Mr_ID ones. I added the reference to the Criteria field in the query
3) Used something like  
Me!sfMySubform.Form!cboMyCombo.Requery, on Got Focus, even though new values cannot be added. Nothing happened :(
ASKER CERTIFIED SOLUTION
AlfaDB

THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
See Pricing Options
Start Free Trial
GET A PERSONALIZED SOLUTION
Ask your own question & get feedback from real experts
Find out why thousands trust the EE community with their toughest problems.
Martin Liss

This question has been classified as abandoned and is closed as part of the Cleanup Program. See the recommendation for more details.
Experts Exchange has (a) saved my job multiple times, (b) saved me hours, days, and even weeks of work, and often (c) makes me look like a superhero! This place is MAGIC!
Walt Forbes