25. maj 2003 - 12:28Der er
11 kommentarer og 1 løsning
Gemme markeret værdier på en liste i en tekstboks
Hej Eksperter
Jeg en formular "kontaktpersoner" i denne formular er der indsat en listbox "Liste2" denne listbox er sat til Simpel markering, hvilket betyder at man kan markere flere værdier på listen. Listen har kun en kolonne.
På formen "Kontaktpersoner" har jeg indsat en tekstbox "ValgtKontakt", samt en kommandoknap "Ok".
Spørgsmålet er nu: Kan jeg gemme en eller flere af de markeret værdier på "Liste2" i min tekstbox "ValgtKontakt", når jeg klikker på min knap "Ok", hvis jeg vælger at markere mere en en værdi, kan de så også adskilles med et tegn feks. ; i tekstboksen "ValgtKontakt"
Efter ti år i London, Madrid, Paris og Utrecht kommer Sabios AI-fokuserede program af arrangementer om kundeoplevelser, ‘Disrupt’, for første gang til Danmark.
Dim itm as Variant Dim txt as String If Me!Liste2.ItemsSelected.Count > 0 Then For Each itm In Me!Liste2.ItemsSelected txt = txt & Me!Liste2.ItemData(itm) & "; " Next itm txt = Left(txt , Len(txt ) - 2) & "))" End If Me!ValgtKontakt = txt
Sorry...det var fordi jeg havde taget koden fra en anden funktion. Sådan skal den se ud: Dim itm as Variant Dim txt as String If Me!Liste2.ItemsSelected.Count > 0 Then For Each itm In Me!Liste2.ItemsSelected txt = txt & Me!Liste2.ItemData(itm) & "; " Next itm txt = Left(txt , Len(txt ) - 2) End If Me!ValgtKontakt = txt
Ja så er det testet, og det virker perfekt, det var det med variablerne jeg ikke lige havde styr på, mange tak for hjælpen points er på vej til thomasjepsen, forsat god søndag.
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.
