Via onderstaande link heb ik een beschrijving opgehaald en een voorbeelddatabase gedownload met daarin een voorbeeld van gekoppelde keuzelijsten. Dit werkt goed.
http://access.xps350.com/GekoppeldeKeuzelijsten.html
Wat echter niet goed werkt is het ophalen van de niet-afhankelijke velden op het formulier. Wanneer het formulier wordt geopend worden de niet-afhankelijke velden van de bestaande records niet getoond, ook niet bij het doorlopen van de records. Ook in het voorbeeld van de database werkt dit niet goed.
Iemand een suggestie wat hier mogelijk het probleem is en een eventuele oplossing om dit te verhelpen?
Hieronder de code:
Private Sub Form_Current()
Me.Leverancier = Me.Artikel.Column(2)
Me.Artikel.RowSource = "SELECT ArtikelID, Artikel, LeverancierID FROM Artikel" & _
" WHERE LeverancierID=" & Me.Leverancier & " ORDER BY Artikel"
Me.Artikel.Requery
End Sub
Private Sub Leverancier_AfterUpdate()
Me.Artikel.RowSource = "SELECT ArtikelID, Artikel, LeverancierID FROM Artikel" & _
" WHERE LeverancierID=" & Me.Leverancier & " ORDER BY Artikel"
Me.Artikel.SetFocus
Select Case Me.Artikel.ListCount
Case 0
Me.Artikel = Null
Case 1
Me.Artikel = Me.Artikel.ItemData(0)
Case Else
Me.Artikel = Null
Me.Artikel.Dropdown
End Select
End Sub
http://access.xps350.com/GekoppeldeKeuzelijsten.html
Wat echter niet goed werkt is het ophalen van de niet-afhankelijke velden op het formulier. Wanneer het formulier wordt geopend worden de niet-afhankelijke velden van de bestaande records niet getoond, ook niet bij het doorlopen van de records. Ook in het voorbeeld van de database werkt dit niet goed.
Iemand een suggestie wat hier mogelijk het probleem is en een eventuele oplossing om dit te verhelpen?
Hieronder de code:
Private Sub Form_Current()
Me.Leverancier = Me.Artikel.Column(2)
Me.Artikel.RowSource = "SELECT ArtikelID, Artikel, LeverancierID FROM Artikel" & _
" WHERE LeverancierID=" & Me.Leverancier & " ORDER BY Artikel"
Me.Artikel.Requery
End Sub
Private Sub Leverancier_AfterUpdate()
Me.Artikel.RowSource = "SELECT ArtikelID, Artikel, LeverancierID FROM Artikel" & _
" WHERE LeverancierID=" & Me.Leverancier & " ORDER BY Artikel"
Me.Artikel.SetFocus
Select Case Me.Artikel.ListCount
Case 0
Me.Artikel = Null
Case 1
Me.Artikel = Me.Artikel.ItemData(0)
Case Else
Me.Artikel = Null
Me.Artikel.Dropdown
End Select
End Sub