Archief - VBA listboxes vullen bij nieuw record

Goedemiddag,

Ik ben bezig aan een project voor school, hierbij heb ik al alle listboxes kunnen vullen dmv het toevoegen in een tussentabel, foreign keys, dan vul ik dus de listboxes met de keuzes die al gemaakt zijn door de gebruiker. Echter als ik het record verander moeten de listboxes ook gevuld worden, doordat ik werk met een embeded macro om naar volgende record, nieuwe record, etc te gaan, kan ik de code niet aanpassen en zou dus totaal niet weten welke instance ik moet gebruiken om de listboxes aan te passen.

Code die ik gebruik om items aan listbox toe te voegen:

Private Sub cmdGroepToevoegen_Click()
Dim Groep As Integer
Dim i As Integer
Dim bItemBestaatal As Boolean
Dim sql As String
Dim Groepnaam As String
Dim db As DAO.Database
Dim rst As DAO.Recordset

Groep = lstGroepen

Set db = CurrentDb()
sql = "SELECT naam FROM tblGroep WHERE ID_Groep = " & Groep
Set rst = db.OpenRecordset(sql)
If (rst.RecordCount > 0) Then
Naam = rst("naam")
End If

For i = 0 To lstLokalenOK.ListCount - 1
If (lstGroepenOK.ItemData(i) = Groepnaam) Then
bItemBestaatal = True
Exit For
End If
Next i
If (Not bItemBestaatal) Then
sql = "INSERT INTO tblAct_groep VALUES(" & ID_activiteit & "," & lstGroepen & ")"
db.Execute sql
lstGroepenOK.RowSource = "SELECT tblGroep.Naam FROM tblGroep INNER JOIN tblAct_groep ON tblGroep.ID_Groep = tblAct_groep.FK_ID_groep WHERE (([tblAct_groep]![FK_ID_activiteit]=[Forms]![frmActiviteit]![txtID])); "
End If
End Sub

op voorhand bedankt!

Opgelost,
heb de macro verandert door de simpele code te schrijven:
DoCmd.GoToRecord , , acNext
en de me.lstGroepenOK.requery command te gebruiken.

mvg,

Davy De Wulf