Archief - Q: waarden keuzelijst in Access

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
M

Menace

Legacy Member
wat ik dus zou willen bereiken is da je in een formulier een reeks keuzelijsten krijgt. als je de eerste kiest (in dit geval Dames of Heren) dan krijg je enkel de merken tezien van ofwel Dames of Heren. kies je dan een merk dan krijg je enkel de omschrijvingen te zien van Dames of Heren en van dat merk enzovoort...

ik ben zo begonnen maar het lukt niet echt. Misschien ben ik gewoon verkeerd aan het redeneren... could someone help me :(

Code: 
Private Sub cboDamesHeren_AfterUpdate()

Dim rstVerkocht As New ADODB.Recordset
Dim txtDamesHeren As String

txtDamesHeren = cboDamesHeren.Value
rstVerkocht.Open "SELECT tblStok.Merk From tblStok Where tblStok.[D/M]='" & txtDamesHeren & "'", CurrentProject.Connection

rstVerkocht.MoveFirst
Do While Not rstVerkocht.EOF
    cboMerk.RowSource = cboMerk.RowSource & ";" & rstVerkocht!Merk
    rstVerkocht.MoveNext
Loop
rstVerkocht.Close
End Sub

Dank bij voorbaat
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan