Avatar billede jylle Nybegynder
16. september 2007 - 21:09 Der er 4 kommentarer

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..
Avatar billede mugs Novice
17. september 2007 - 13:25 #1
Prøv at lege lidt med denne:

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
Avatar billede jylle Nybegynder
17. september 2007 - 15:47 #2
ok, det prøver jeg
Avatar billede jylle Nybegynder
17. september 2007 - 22:05 #3
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
 
End Sub
Avatar billede nih Novice
24. september 2007 - 22:17 #4
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
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester