25. oktober 2005 - 22:55Der er
10 kommentarer og 1 løsning
Tilføje poster i tabel via multiselect i listbox
Hej eksperter
Jeg er gået stå på nedenstående, jeg forsøger at tilføjer nye poster i en tabel ved at vælge en eller flere items på en liste med multiselect, den finder alle værdierne jeg markere, men de sættes ind som en post i tabellen (værdierne står på en lang række i en post), meningen var at hver markeret værdi skulle oprette hver sin post i tabellen, nogen der har et bud på det :o)
'Kode start' Dim Itm As Variant Dim txt As String Dim rs As ADODB.Recordset For Each Itm In Me!lstprogrammer.ItemsSelected txt = txt & Me!lstprogrammer.ItemData(Itm) Set rs = New ADODB.Recordset rs.Open "Tabel1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic rs.AddNew rs!Program = txt Next Itm rs.Update rs.Close Set rs = Nothing 'Koden slut' Hilsen Anders.
Denne side indeholder artikler med forskellige perspektiver på Identity & Access Management i private og offentlige organisationer. Artiklerne behandler aktuelle IAM-emner og leveres af producenter, rådgivere og implementeringspartnere.
Dim Itm As Variant Dim txt As String Dim rs As ADODB.Recordset For Each Itm In Me!lstprogrammer.ItemsSelected txt = txt & Me!lstprogrammer.ItemData(Itm) Set rs = New ADODB.Recordset rs.Open "Tabel1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic rs.AddNew rs!Program = txt
rs.Update rs.Close Next Itm ' NEXT Flyttet Set rs = Nothing
Hej igen, så har jeg testet, der er lidt problemer, når jeg markere mere end en værdi opretter den godt nok posterne som den skal, men i post nr 2 kommer den foregående markeret værdi med. et eks.
Jeg hilder shift nede, markere Handelssystem, og Nigem, i første post står der så handelssystem, men i den anden post står der så HandelssystemNigem e.t.c.
Dim Itm As Variant Dim txt As String Dim rs As ADODB.Recordset For Each Itm In Me!lstprogrammer.ItemsSelected txt = Me!lstprogrammer.ItemData(Itm) Set rs = New ADODB.Recordset rs.Open "Tabel1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic rs.AddNew rs!Program = txt
rs.Update rs.Close Next Itm ' NEXT Flyttet Set rs = Nothing
Bingo så var den, dette indlæg virker 25/10-2005 23:11:34, jeg havede nok på fornemmelsen at det var Next der stod forkert, psot et svar så er der point på vej
Ja, jeg kunne se med det samme på dit sidste indlæg, den havede jeg nok opdaget, men det var next der drillede, jeg trode ikke man kunne bruge next før .Close og .Update, men så lærte jeg noget nyt igen igen :O)
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.
