afhankelijke keuzelijsten

[jo geuens]

hoi ik heb een formulier met 3 afhankelijke keuzelijsten in de eerste kies ik een categorie in de 2 de een subcategorie en uiteindelijk in de 3 de het product nu waneer ik in de 2 de record de sub categorie verander dan verdwijnen de gegevens van mijn eerst record in het veld producten dit is de procedure die ik nu heb

iemand die mij kan helpen ?

Private Sub Category_AfterUpdate()

Dim StrSql As String



StrSql = "SELECT [tblSubCategorie].[ID], [tblSubCategorie].[SubCategorie] "
StrSql = StrSql & "FROM [tblSubCategorie] "
StrSql = StrSql & "WHERE IDCategorie = " & CStr(Me![Category]) & " "




Me.SubCategory.RowSource = StrSql
Me.SubCategory.Requery
End Sub





Private Sub SubCategory_AfterUpdate()

Dim StrSql As String



StrSql = "SELECT Products0.Product_id,Products0.Code, Products0.ProductName, Products0.Category_id, Products0.SubCategory_id, Products0.Verpakking "
StrSql = StrSql & "FROM Products0 "
StrSql = StrSql & "WHERE(Products0.SubCategory_id)=" & Me.SubCategory


Me.ProductName.RowSource = StrSql
ProductName.Requery
End Sub



Private Sub ProductName_AfterUpdate()
'Dim StrSql As String

Code = ProductName.Column(1)
Verpakking = ProductName.Column(5)
'StrSql = "SELECT Products1.Product_id,Products1.Code, Products1.ProductName, Products1.Category_id, Products1.SubCategory_id, Products1.Verpakking "
'StrSql = StrSql & "FROM Products1 "
'Me.ProductName.RowSource = StrSql

 

[Guus2005]

cboCategory stuurt de cboSubCategory aan
cboSubCategory stuurt de cboProduct aan
cboProduct stuurt niets aan. Dus daar moet ook geen query staan.