Acces twee keuzelijsten

[van.gestel]

Hallo beste mensen

ik zit met een moeilijke vraag in access
ik heb een label met bv huis,boom,auto,tuin
ik kan met een keuzelijst een keuze maken bv. huis
maar aan dit huis zit gekoppelt bv ramen,kozijnen,deur, etc
dit laatse zou ik graag in keuzelijst twee willen zien.

maak ik de keuze boom , dan zou ik graag bv. appels, takken etc willen zien.

wie weet hier raad mee, ik begin pas met acces

groetjes Frans

 

[Foxy50]

Frans,

Maak 3 tabellen b.v. tbl_HoofdItem, tbl_SubItem_Boom, tbl_SubItem_Huis;
Maak 2 keuzevakken b.v. cbo_HoofdItem, cbo_SubItem
Zet rijbron cbo_HoofdItem = tbl_HoofdItem
Voer code in :
Private Sub Cbo_HoofdItem_AfterUpdate()
Select Case Me.Cbo_HoofdItem
Case Is = "Tuin"
Me.cbo_SubItem.RowSource = "tbl_SubItem_Boom"
Case Is = "Huis"
Me.cbo_SubItem.RowSource = "tbl_SubItem_Huis"
End Select
End Sub

Private Sub Cbo_HoofdItem_Enter()
Me.cbo_SubItem = ""
End Sub

groeten, Fred

 

[Tardis]

Maak 3 tabellen b.v. tbl_HoofdItem, tbl_SubItem_Boom, tbl_SubItem_Huis

2 tabellen is meer dan voldoende, eentje voor items en eentje voor subitems.

Groet,

Tardis

 

[Foxy50]

Tardis,

Aangezien Frans een beginner is heb ik gekozen voor 3 tabellen.
Het kan ook met een tabel maar dit leek me te moeilijk voor een beginner.
Neem hiervoor SubItem op in tbl_HoofdItem

Code:

Private Sub Cbo_HoofdItem_AfterUpdate()
Me.cbo_SubItem.RowSource = "Select SubItem from tbl_Hoofditem where HoofdItem = " _
& "'" & Me.Cbo_HoofdItem & "'"
End Sub

Private Sub Cbo_HoofdItem_Enter()
Me.cbo_SubItem = ""
End Sub

Private Sub Form_Load()
Me.Cbo_HoofdItem.RowSource = "SELECT DISTINCT tbl_HoofdItem.HoofdItem FROM _ tbl_HoofdItem"
End Sub

Ik heb dit net uitgeprobeert en het werkt perfect.

groeten Fred

 

[van.gestel]

van frans

Oke
alvast erg bedankt
Ik ga het uit proberen alle twee

groetjes Frans

 

[van.gestel]

keuze

Jammer het is mij niet gelukt.
Hij kan de Cbo_hoofdIten niet vinden

En waar moet ik de code Rijbron neer zetten.?

groetjes Frans

 

[Foxy50]

Frans,

cbo_HoofdItem is de naam van het eerste keuzevak, open het formulier in de ontwerpmode, klik op eigenschappen en onder de tab "Overige" vul je bij naam cbo_HoofdItem in.
Doe dit ook bij het tweede keuzevak en vul bij naam cbo_SubItem in.
Klik nu op programmacode hierdoor wordt de editor geopend.
Kopieer de 3 subroutines nu naar de editor.
Klik op Bestand=>Sluiten en terug naar MicroSoft Access

Mocht het je niet lukken stuur me dan maar een e-mail.
succes,
Fred

 

[van.gestel]

twee keuzelijsten

Hallo Fred
ik heb je een mail gestuurd
groetjes Frans