Legge verdier som ligger i en listbox inn i en tabell

i eet felt eller skal
server1 ind i felt1
server2 ind i felt2

Det skal stå server1 i felt 1, server2 i felt2, server3 i felt3...

terry
har givet en god løsning her
http://www.eksperten.dk/spm/352472

Jeg er nybegynner...Så hvis listboxen heter liste, tabellen heter oversikt og kollonnen i tabellen heter servere; hva blir koden da ?

dim sSQL as string


sSQL = "INSERT INTO tabelnavn ( felt1, felt2 ) VALUES ('" & Forms![formnavn]![liste]
sSQL = sSQL  & "', " &  lliste.ItemData(lstPref.ListIndex) & ")"

CurrentDb.Execute ( sSQL)

docmd.runsql sSQL

lstPref skal erstattes med listenavnet

Så det blir :

dim sSQL as string

sSQL = "INSERT INTO oversikt(server)VALUES('" & Forms![tester2]![liste]
sSQL = sSQL & '"," & liste.ItemData(liste.ListIndex)&")"

CurrentDb.Execute(sSQL)

Blir dette riktig ???
(formen heter tester2)

Skal det være VALUES('"  ??? Synes det ser litt rart ut...

husk lige
docmd.runsql sSql

Finnes det noen webside hvor de forskjellige kommendoene som f.eks. "INSERT INTO" blir forklart ? Jeg tror jeg trenger å sette meg litt mer inn i stoffet...

dont know

Jeg får det ikke til å fungere...

nej det er klar... sorry
troede du havde dine records stående
server1;server2;server3
du har dem stående
server1
server2
server3
ikke?

Ja, det stemmer !

Dim intList As Integer
Dim itm As Variant
Dim txt, ssql As String

For intList = 0 To Me.Liste.ListCount - 1
Me.Liste.Selected(intList) = True
ssql = "INSERT INTO oversikt(server)VALUES('" & Me!Liste.ItemData(itm) & "')"

DoCmd.RunSQL ssql
Next intList
If Me!Liste.ItemsSelected.Count > 0 Then
For Each itm In Me!Liste.ItemsSelected


Next itm

End If

End Sub

ikke helt testet men prøv lige denne

men ret lige 
"itm" i ('" & Me!Liste.ItemData(itm) & "')"  Til "intList"