resette list boxe?

Nu ved jeg ikke hvordan du styrer listerne, men du kan altid skrive:

Me!Listboks1.Rowsource = "DinTabel"

eller

Me!Listboks1.Rowsource = "Select felt1, felt2 from DinTabel"

jeg er en total newbie og har inegn ide hvor jeg skal skrive dette. Skal jeg oprette en knap og sætte det ind i AfterAutoupdate??

Jeg bruger Rækkekilde (er det ikke Rowsource?) til at linke de to listboxe sammen.

Jeg skal bare kunne updatere eller genlæse min formular. Det er underordnet om den smider nyt data væk, er der nogen der ved om dette kan lade sig gøre. Jeg har ingen Sql server eller lignende så jeg ved ikke om det overhovedet er muligt at gøre.

Jeg er ikke helt klar over hvordan dit system er strikket sammen. Jeg troede at du styrede det vha VBA. Kan du forklarer detaljeret hvordan det virker indtil nu?

min afterupdate kode ser sådanne ud

Private Sub Kommandoknap52_Click()

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

End Sub

Sub List20_AfterUpdate()
Me.List22.RowSource = "SELECT [FirstName] FROM [Contacts] WHERE [LastName] = '" & Me.List20 & "'"
'Find the record that matches the control.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[LastName] = '" & Me![List20] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub
   
'Sub List22_AfterUpdate()

Sub List22_AfterUpdate()
Me.List20.RowSource = "SELECT [LastName] FROM [Contacts] WHERE [FirstName] = '" & Me.List22 & "'"
'End Sub

'Me.List20.RowSource = "SELECT [LastName] FROM [contacts] WHERE [FirstName] =" & Me.List22 & "'"
'Find the record that matches the control.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[FirstName] = '" & Me![List22] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

der er en resset knap og 2 list bokse der kører lidt i ring. Jeg har brug for at genindlæse listboksene som de så du da databasen blev åbmet. Eller kan man ikke foretage flere valgt ved hjælp af list boksene.

LUK MIG