hoe record te save na vba code

[allard1977]

Hallo,
ik heb een vba code en dat werkt super.

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim intComboItem As Integer


    Set db = CurrentDb
    Set rs = Recordset
    
    
    For intComboItem = 0 To alledays.ListCount - 1
       alledays.SetFocus
   If alledays.ListIndex <> alledays.ListCount - 1 Then
        alledays.ListIndex = alledays.ListIndex + 1
    Else
        alledays.ListIndex = 0
    End If
        'MsgBox alledays.ItemData(intComboItem)
         rs.AddNew
         Me.Trail_txt = Me.alledays
         Trail_txt_AfterUpdate
    
   
    Next

alleen wat er gebeurd is dat de records niet worden opgeslagen in de tabel.
velden op het veld zijn bound met formulier.

Allard

 

[OctaFish]

Wat ben je precies aan het doen? Aan de ene kant zeg je dat de code goed werkt (super zelfs), en aan de andere kant dat-ie niks doet... Dat is niet bepaald mijn definitie van 'super' :d.
Ik snap best dat-ie niks doet overigens, want je maakt een virtuele recordset aan (volkomen onbedoeld, vermoed ik) waar je, na het vullen, vervolgens niks mee doet. Tja, dan moet je niet gek opkijken als er niets gebeurt. In essentie zou je zoiets moeten hebben:

Dim rs As DAO.Recordset
Dim intComboItem As Integer

    Set rs = CurrentDb.OpenRecordset("jouw tabel")
    For intComboItem = 0 To alledays.ListCount - 1
        alledays.SetFocus
        If alledays.ListIndex <> alledays.ListCount - 1 Then
            alledays.ListIndex = alledays.ListIndex + 1
        Else
            alledays.ListIndex = 0
        End If
        'MsgBox alledays.ItemData(intComboItem)
        With rs
            .AddNew
            .Fields("Trail").value = Me.alledays.value
            .Update
        End With
    Next

 

[allard1977]

Hallo dankjewel,

Ik zie inderdaad dat ik geen update heb gebruikt.
enuw versie van de code is natuurlijk wel veel mooier geschreven dank u wel.

Groet Allard