Skrivning af lister i eet felt

Lav en forespørsgsel hvor der søges efter :
-1 = False
0 = True
Det skal stå i kreterier.

Du kan derefter oprette 2 listeboxe i din formular , der viser true i den ene box, og false i den anden.
Vh Henrik13

Som henrik13 nævner lav forespørgsler med kriterier samt lister. Derefter kan du i en kommandoknap indsætte flg:

Dim itm As Variant
Dim txt As String
If Me!Liste4.ItemsSelected.Count > 0 Then
For Each itm In Me!Liste4.ItemsSelected
txt = txt & Me!Liste4.ItemData(itm) & ", "
Next itm
txt = Left(txt, Len(txt) - 2)
End If
Me!felt4 = txt

Hvor Liste4 indeholder værdierne med True eller False. felt4 modtasger alle felterne.

Du kan udvide koden lidt, så du automatisk vælger alle poster i listen, overfører dem til et tekstfelt og fjerner markeringen igen:

Dim intList As Integer
Dim itm As Variant
Dim txt As String
For intList = 0 To Me.Liste4.ListCount - 1
Me.Liste4.Selected(intList) = True
Next intList
If Me!Liste4.ItemsSelected.Count > 0 Then
For Each itm In Me!Liste4.ItemsSelected
txt = txt & Me!Liste4.ItemData(itm) & ", "
Next itm
txt = Left(txt, Len(txt) - 2)
End If
Me!felt4 = txt
For intList = 0 To Me.Liste4.ListCount - 1
Me.Liste4.Selected(intList) = False
Next intList

I begge eksempåler skal du selvfølgelig ændre feltnavnet felt4 til det aktuelle samt navnet på din liste.

Kan sende en testdb der viser hvordan. Blot læg din e-mail.

Hej Begge,
Tak for jeres grundige svar og fine tilbud.
Jeg er bange for at jeg har udtrykt mig forkert.

Det jeg gerne vil er at skrive flere værdier i et felt i en tabel udfra nogle valg i afkrydsningsbokse - altså:

AFK-BOX1 = TRUE
AFK-BOX2 = FALSE
AFK-BOX3 = TRUE

Giver følgende list i feltet i tabellen:

AFK-BOX1.VÆRDI ; AFK-BOX3.VÆRDI

eller

If AFK-BOX1 = TRUE Then
  Streng = "box1-checket"

Håber det gav et løft til mit problem

mvh
Rene

Det skal bruges til at hente data til en COMBO udfra en QR