[Access + VBA] Probleem keuzelijst en keuzevak

[ADH_ED]

Sorry, was in de haast de topictitel vergeten, nu wel gedaan

Ik ben op dit moment bezig met het ontwikkelen van een database voor mijn opleiding (HBO-BI)

Tot nu toe loopt het best wel goed, alleen zit ik vast op 1 onderdeel

In mijn formulier bevind zich een Keuzelijst met waarden en ook een keuzevak. Als ik op een knop klik dan wil ik de waarde van de keuzelijst wegschrijven in het keuzevak.

Ik heb al wat codes geprobeerd, maar tot nu toe zonder resultaat, wie geeft mij een hint in de goede richting?

Ik heb hier een boek van VBA, maar deze is vrij beperkt qua uitleg over dit fenomeen, en Google bied alleen maar onduidelijke websites met informatie

[ Voor 13% gewijzigd door ADH_ED op 23-03-2005 11:15 . Reden: Ook maar even erin gezet wat ik zelf heb geprobeerd ]

[Broken]

Zet je control die je wilt vullen met je waarden wel op fucossed, dus:

code:

control.setfocus

Dit kan namelijk een hoop problemen oplossen

[Verwijderd]

Hey,

Dit is even uit het blote hoofd ik kan het nu even niet testen:

code:

textbox1.text = list1.list(list1.listindex)

'listindex' geeft de index van het geselecteerde item in de listbox (keuzelijst)
en 'list(list1.listindex)' geeft de tekst van het item met de opgegeven index.

[Broken]

Verwijderd schreef op woensdag 23 maart 2005 @ 11:56:
Hey,

Dit is even uit het blote hoofd ik kan het nu even niet testen:

code:

textbox1.text = list1.list(list1.listindex)

'listindex' geeft de index van het geselecteerde item in de listbox (keuzelijst)
en 'list(list1.listindex)' geeft de tekst van het item met de opgegeven index.

Het moet denk ik een combo zijn tussen de 2 dingen die ik en logik2001.
Je moet eerst ff foucussen en dan het stukje van logik2001gebruiken

[ADH_ED]

Ik heb iig al dit geprobeerd (wat er op lijkt) en dat vreet ie niet

code:

Public Sub VoegDingIn_Click()

keuzelijst.value = keuzevak.value
vbNewline

[PaulZ]

me.keuzevak.value = me.keuzelijst.column(0).value geprobeerd?
Ook uit het blote hoofd....

[Lustucru]

Beetje summiere info, zo. Wat voor foutmelding krijg je? Wat zijn de rijbronnen voor je controls? Als de afhankelijke kolommen gelijkwaardig zijn is iets als:

code:

Me.controlX = Me.controlY

afdoende.

Voorlopig gok ik erop dat je verschillende waarden bindt, bv bij de een een string en bij de ander een numeriek ID.

[Broken]

code:

Public KNOP_Click()

Tekstveld.SetFocus
Tekstveld.text = list1.list(list1.listindex)

Zoiets geloof ik mischien was het list1.value

[ADH_ED]

BEdankt voor de reply's, heb wat dingen van jullie geprobeerd, maar ben compleet opnieuw begonnen met het form, ik heb het opgelost met een Child Form

iig bedankt