Gemme entries fra en liste i en access tabel
Hej,Jeg har et lille problem med at få gemt en række entries i en listbox i en accesstabel. Opgaven er som følger:
Jeg vil typisk have 5-10 entries i en listbox disse skal gemmes som hver deres record i en accesstabel. Selve det at få gemt noget i access har jeg styr på men jeg kan kun gemme den øverste/første entry i listboxen i access, jeg kan altså ikke flytte ned i listboxen og på den måde lave en løkke-løsning.
Her er lidt kode:
Private Sub cmdGem_Click()
Dim recUpload As Recordset
Dim selSQL As String
Dim count As Integer
Dim felt As String
Set datDB = DBEngine.Workspaces(0).OpenDatabase(\"F:\\VB\\tom\\dbieweb.mdb\")
selSQL = \"SELECT * FROM tblWebUpload\"
Set recUpload = datDB.OpenRecordset(selSQL)
For count = 0 To lstValgtFelter.ListCount
felt = lstValgtFelter.Text
recUpload.AddNew
recUpload(\"Tabel\") = txtValgtTabel.Text
recUpload(\"Felt\") = felt
recUpload.Update
Next
Håber der er nogen der kan hjælpe.
