gangstalaz
Gebruiker
- Lid geworden
- 13 sep 2010
- Berichten
- 131
Hallo,
Ik werk met access 2003.
Bedoeling van de database: Het bedrijf hoort met de database gereedschappen en materialen te kunnen bestellen voor gebruik op het werkvloer etc.
Ik heb twee brontabellen: tblLeveranciers en tblArtikelen. En ook een tabel waar de bestellingen in horen te komen: tblBestellingen.
De twee brontabellen hebben een relatie met elkaar. Dus er kunnen meerdere artikelen van 1 leverancier zijn.
Nu heb ik nog een oude leverancierslijst (object: formulieren) die gekoppelt is aan deze twee tabellen. Hier krijg ik alle artikelen met verschillende leveranciers mooi te zien.
Wanneer ik een artikel geselecteerd heb en op de opdrachtknop "Leverancier Form" klik, hoort deze te verschijnen in het formulier. Maar ik krijg een foutmelding.
De volgende code heb ik voor de opdrachtknop.
Private Sub Knop6_Click()
Dim frm As Form, ctl As Control
Dim varItem As Variant
Dim strSQL As String
Dim stDocName As String
Set frm = Forms!frm_leverancier_lijst
Set ctl = frm!lstLeverancier
For Each varItem In ctl.ItemsSelected
x = (ctl.ItemData(varItem))
'X = varItem
''MsgBox (strsql)
Next varItem
'DoCmd.OpenForm ("tblBestellingen")
strSQL = "tblLeveranciers.leverancier_ID in (" & x & ")"
'strsql = "tblLeveranciers.leverancier_ID in (20)"
DoCmd.OpenForm "tblBestellingen", , , strSQL
End Sub
Ik krijg een foutmelding bij de aller laatste stap.
Hoe kan ik dit oplossen?
Alvast bedankt!
Ik werk met access 2003.
Bedoeling van de database: Het bedrijf hoort met de database gereedschappen en materialen te kunnen bestellen voor gebruik op het werkvloer etc.
Ik heb twee brontabellen: tblLeveranciers en tblArtikelen. En ook een tabel waar de bestellingen in horen te komen: tblBestellingen.
De twee brontabellen hebben een relatie met elkaar. Dus er kunnen meerdere artikelen van 1 leverancier zijn.
Nu heb ik nog een oude leverancierslijst (object: formulieren) die gekoppelt is aan deze twee tabellen. Hier krijg ik alle artikelen met verschillende leveranciers mooi te zien.
Wanneer ik een artikel geselecteerd heb en op de opdrachtknop "Leverancier Form" klik, hoort deze te verschijnen in het formulier. Maar ik krijg een foutmelding.
De volgende code heb ik voor de opdrachtknop.
Private Sub Knop6_Click()
Dim frm As Form, ctl As Control
Dim varItem As Variant
Dim strSQL As String
Dim stDocName As String
Set frm = Forms!frm_leverancier_lijst
Set ctl = frm!lstLeverancier
For Each varItem In ctl.ItemsSelected
x = (ctl.ItemData(varItem))
'X = varItem
''MsgBox (strsql)
Next varItem
'DoCmd.OpenForm ("tblBestellingen")
strSQL = "tblLeveranciers.leverancier_ID in (" & x & ")"
'strsql = "tblLeveranciers.leverancier_ID in (20)"
DoCmd.OpenForm "tblBestellingen", , , strSQL
End Sub
Ik krijg een foutmelding bij de aller laatste stap.
Hoe kan ik dit oplossen?
Alvast bedankt!
Laatst bewerkt: