2 velden invullen door middel van 1 keuzelijst

[Guess Who]

Het volgende probleem stelt zich:
ik heb een tabel me daarin 3 velden: wegID, wegnr en wegnaam
nu heb ik via een querry in mijn formulier een keuzevak voor de wegnaam (werkt perfect)

maar nu wil ik ook een tweede veld waarin de wegnr automatisch verschijnt als ik een wegnaam gekozen heb. het veld wegnr zou bij voorkeur ook niet toegankelijk mogen zijn.

Kan iemand mij uitleggen hoe ik dat doe?

 

[Guus2005]

Op een of andere manier zie je hier steeds dezelfde vragen terugkomen. Jij wilt twee comboboxen met elkaar koppelen. Daar staan legio voorbeelden van op internet.
Bijvoorbeeld bij Helen Feddema
Als je zoekt hier op helpmij dan zal je ongetwijfeld ook wel een paar voorbeelden vinden.

 

[Guess Who]

ik denk niet (voor zover ik weet) dat ik 2 comboboxen wilcombineren.

Het is eigenlijk zo dat ik met 1 keuzevak een wegnaam kies. Elke wegnaam heeft ook een eigen nummer (niet uniek, maar wel ingevuld in dezelfde tabel).

vb tabel:

id wegnaam wegnummer
1 A N44
2 B N60
3 C N60

Als ik bevoorbeeld wegnaam "A" kies zou in het 2de vak de nummer van die weg "N44" moeten verschijnen.
kies ik voor wegnaam "B" dan zou in de nr van de weg "N60" moeten verschijnen.

 

[RIANXL]

maak een keuzelijst met rowsource van: wegnaam en wegnummer
controlsource: wegnaam

kolombreette op 2cm;0cm

bij keuzelijst afterupdate:

me.wegnummer = me.wegnaam.column(1)

 

[Guess Who]

hmm, hier geraak ik niet meer wijs uit.

Kan je dit even duidelijker uitleggen? worden hiermee 2 tekstvakken afgebeeld?

 

[RIANXL]

Ik neem aan dat je op een formulier 2 velden hebt staan. wegnummer en wegnaam.

1 - maak van het veld wegnaam een keuzelijst.
2 - geef voor de rijbron de velden wegnummer en wegnaam op uit de tabel met wegen.
3 - zet aantal kolommen van de keuzelijst op 2 en kolombreetten op 2cm;0cm
hiermee word alleen het veld wegnaam zichtbaar in de keuzelijst.
4 - maak een gebeurtenisprocedure van het veld wegnaam na bijwerken in VBA.
5 - daar zet je neer: me.wegnummer = me.wegnaam.column(1)

 

[Guess Who]

ok, bedankt!! :thumb: