vis kun de records som tilhører det der vælges i en listbox
Jeg har brug for lidt hjælp til min kursusDB, I min frmdeltagerliste har jeg 2 ubundne listbox'e ”lst_kursus og lst_sedeltager”, i lst_kursus bliver de kurser som er oprettet vist og i lst_sedeltager bliver de medarbejder som er tilmeldt et kursus vist. Det jeg mangler er at når jeg klikker på et kursus i lst_kursus, så skal der kun vises de medarbejder som er tilmedt det kursus som jeg klikkede på i lst_sedeltager. Som det er nu bliver alle tilmeldte medarbejder vist når frmdeltagerliste åbnes. Jeg har prøvet en masse ud fra nogle at de svar her på siden, men uden held Rækkekilde i lst_sedeltager er SELECT tbldeltagerliste.kursusID, tbldeltagerliste.medarbID, tblmedarb.medarb_navn FROM tblmedarb INNER JOIN tbldeltagerliste ON tblmedarb.medarbID = tbldeltagerliste.medarbID ORDER BY tbldeltagerliste.kursusID; jeg er novice i access og har ikke helt fattet at læse VBA/SQL koder endnu håber at der er noget hjælp at hente..
Dim itm As Variant Dim txt As String If Me!DIN LISTE.ItemsSelected.Count > 0 Then For Each itm In Me!DI LISTE.ItemsSelected txt = txt & Me!DIN LISTE.ItemData(itm) & " ; " Next itm txt = Left(txt, Len(txt) - 2) End If Me!DET FELT DR SKAL MODTAGE NAVNENE = txt
Det virker ikke, jeg er gået et par step tilbage for at få noget til at virke, med denne kode kommer msgbox frem ved klik på et kursus i listbox lst_kursus. så nu mangler jeg bare at få vist i listbox lst_sedeltager de medarbID som er tilmeldt det kursus jeg har klikket på,
Private Sub lst_kursuslist_Click()
Dim itm As Variant Dim txt As String If Me!lst_kursuslist.ItemsSelected.Count < 1 Then MsgBox "test" End If
Prøv at tilføje denne Where klausul: WHERE kursusID = [Forms]![frmdeltagerliste]![lst_kursus]
i lst_kursus klik event skal du så blot opdatere lst_sedeltager: Private Sub lst_kursuslist_Click()
lst_sedeltager.requery
End Sub
mvh Niels
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
