Goedenavond
Ik heb een veel op veel relatie tussen 2 tabellen (tblDiploma en tblVaardigheid) gemaakt dmv een tussentabel (beide dus 1 op veel gekoppeld met die tussentabel - tblDiplomaVaardigheid genaamd).
Op een formulier heb ik 2 keuzelijsten: 1 met alle beschikbare vaardigheden, en 1 met alle gekozen vaardighede voor het specifieke diploma. (in beide keuzelijsten staat meervoudige selectie op uitgebreid). Dmv een 2-tal knoppen koppel ik in VBA tblDiploma aan tblVaardigheid en maak een record aan in tblDiplomaVaardigheid
Daarna filter ik in keuzelijst kzlBeschikbareVaardigheden die vaardigheden die nog niet gekozen zijn.
Dit gaat prima.
Nu wil ik ook een mogelijkheid hebben om de geselecteerd vaardigheden waar los te koppelen, en dus een record uit die tussentabel te verwijderen.
Hoe doe ik dat in VBA ? Het gaat dus om de records die in de gekozenvaardigheden staan en die dus met DiplomaID en VaardigheidID opgezocht en verwijderd moeten worden.
alvast bedankt
John
Ik heb een veel op veel relatie tussen 2 tabellen (tblDiploma en tblVaardigheid) gemaakt dmv een tussentabel (beide dus 1 op veel gekoppeld met die tussentabel - tblDiplomaVaardigheid genaamd).
Op een formulier heb ik 2 keuzelijsten: 1 met alle beschikbare vaardigheden, en 1 met alle gekozen vaardighede voor het specifieke diploma. (in beide keuzelijsten staat meervoudige selectie op uitgebreid). Dmv een 2-tal knoppen koppel ik in VBA tblDiploma aan tblVaardigheid en maak een record aan in tblDiplomaVaardigheid
Code:
If Me!kzlBeschikbareVaardigheden.ItemsSelected.Count = 0 Then Exit Sub
' Open de DiplomaVaardigheid tabel
Set db = CurrentDb()
Set rst = db.OpenRecordset("tblDiplomaVaardigheid")
' Bepaal DiplomaID
lngBrevetID = Me.kzlDiploma
'Voeg geselecteerde vaardigheden toe aan diploma
For Each varItem In Me!kzlBeschikbareVaardigheden.ItemsSelected
lngVaardigheidID = Me!kzlBeschikbareVaardigheden.Column(0, varItem)
' Begin een nieuwe regel
rst.AddNew
rst!DiplomaID = lngDiplomaID
rst!VaardigheidID = lngVaardigheidID
' Sla de nieuwe regel op
rst.Update
Next varItem
Daarna filter ik in keuzelijst kzlBeschikbareVaardigheden die vaardigheden die nog niet gekozen zijn.
Dit gaat prima.
Nu wil ik ook een mogelijkheid hebben om de geselecteerd vaardigheden waar los te koppelen, en dus een record uit die tussentabel te verwijderen.
Hoe doe ik dat in VBA ? Het gaat dus om de records die in de gekozenvaardigheden staan en die dus met DiplomaID en VaardigheidID opgezocht en verwijderd moeten worden.
alvast bedankt
John
Laatst bewerkt: