Hvordan gemmer jeg værdier fra en listbox når man vælger flere

Forresten arbejder jeg i Access 2003...

i den event du ønsker skal starte overførslen af valgte data fra list kontrollen, indsætter du følgende kode:

Private Sub Kommandoknap2_Click()
    Dim ctl As Control
    Dim varItm As Variant

    Set ctl = Me.Liste0
   
    For Each varItm In ctl.ItemsSelected
        DoCmd.RunSQL "insert into tblSelectedCompany VALUES ('" & ctl.ItemData(varItm) & "')"
    Next varItm
End Sub

koden løber gennem alle valgte data og indsætter de valgte i en tabel, som hedder tblSelectedCompany. I det valgte eksempel har jeg brugt en knap kontrol.

sætter de valgte ind efter hunanden i samme felt med ; imellem

Private Sub Kommandoknap2_Click()
For intCurrentRow = 0 To Liste0.ListCount - 1
        If Liste0.Selected(intCurrentRow) Then
            strItems = strItems & Liste0.Column(0, _
                intCurrentRow) & ";" ' ";" kan udskiftes med "," eller andet
        End If
    Next intCurrentRow
DoCmd.RunSQL "INSERT INTO COMPANY (SERVICES) VALUES ('" & Left(strItems, Len(strItems) - 1) & "')"

End Sub

Jeg er lidt dummy i det her access, så jeg ved ikke hvor jeg skal indsætte koden henne? Hvad skal jeg klikke på??? :-)

Jeg fandt ud af at sætte kabbak's kode ind, og det virker ikke helt efter hensigten, for hver gang jeg vælger noget, kommer der en dialogboks frem der spørger om jeg vil udføre det jeg har gang i, for så virker undo ikke mere... Derudover oprettes der en ny række i tabellen hver gang jeg laver en ændring, hvilket heller ikke er meningen....

Men det virker med at den indsætter flere værdier i samme felt :-)

Har I ideer til hvad en løsning kan være?

Hvordan ser din sql ud, den du brugte før, må jeg se den.?

hvis det er sq'en til at hente indholdet til listbox'en så er den

SELECT services.id, services.name FROM services ORDER BY [name];

nej det er den hvor du gemmer i COMPANY tabellen

hhmm...Den listbox før oprettede jeg via en guide, så jeg ved ikke hvor sql'en er?? Kan det forklares hvor jeg skal kigge?

Jeg har uploadet tabellen, hvis du orker at kigge. www.martinhass.dk/test/test.zip

Option Compare Database


Private Sub Form_Current()
Dim TempStr As Variant, I As Integer
For intCurrentRow = 0 To ServiceList.ListCount ' fravælger alle i listen
ServiceList.Selected(intCurrentRow) = False
Next

If Me.services <> "" Then
  TempStr = Split(Me.services, ";")
    For intCurrentRow = 0 To ServiceList.ListCount
        For I = 0 To UBound(TempStr)
          If ServiceList.Column(0, intCurrentRow) = Val(TempStr(I)) Then
            ServiceList.Selected(intCurrentRow) = True ' vælger dem der er brugt
          End If
      Next
  Next
End If
End Sub

Private Sub ServiceList_DblClick(Cancel As Integer)
For intCurrentRow = 0 To ServiceList.ListCount - 1
        If ServiceList.Selected(intCurrentRow) Then
          strItems = strItems & ServiceList.Column(0, intCurrentRow) & ";"
          ' ";" kan udskiftes med "," eller andet, men så skal den også skiftes i Form_Current()
        End If
Next intCurrentRow
   
If strItems <> "" Then
        Me.services.SetFocus
        Me.services.Text = Left(strItems, Len(strItems) - 1)
        Me.ServiceList.SetFocus
            Call Form_Current
        Me.Refresh
  End If
End Sub

Geg har omdøbt din Liste

nå det smuttede

Jeg har omdøbt din liste til ServiceList, og fjernet at den hænger på service feltet, det står  ud for Kontrolelementkilde i Properties

Sæt feltet service ned på formularen, du kan eventuelt skjule det, hvis du ikke vil se det, men det skal være der.

Kopier hele koden ind i din forms modul, så skulle det virke.

Angående opdatering, skal du dobbeltklikke for at opdatere, det skal gøres medens shift holdes nede ved flere makeringer.

http://holgerbak.frac.dk/access/test.mdb

din kopi ligger her

Det spiller kabbak. Det er super. Mange tak for hjælpen. Vil du ikke have nogle point som tak for hjælpen?

et svar ;))