Opdatere tabel efter aktiv form (flere poster (records) fra en forespørgelse)

Du kan loope gennem det recordset kopi du henter data fra således:
    Set rec = db.OpenRecordset(.....
    Dim index
    Set index = Me.RecordsetClone
    Do While Not index.EOF
        rec.AddNew
        rec("Batch") = index.Fields("Batch")
        ...
        rec.update
        index.MoveNext
    Loop

Bemærk
1. kilde til poster hvorfra data hentes gennemløbes (movenext)
2. data hentes derfra - ikke fra formens nuværende (i brugerinterfacet) valgte posts felter

Hej Bvirk, tak for dit svar.

Min kode ser nu sådan ud. Den gemmer den samme post flere gange, i stedet for at gemme den næste, dvs hvis der er 2 poster på formular, gemmer den kun den første post men 2 gange. Hvordan får jeg den til at gemme, de forskellige poster i den åbne formular (med fortløbende poster).

Private Sub Opdater_Click()

Dim db As Database
Dim rec As Recordset


Set db = CurrentDb
Set rec = db.OpenRecordset("Select * from DailyReportSub")

Dim index

Set index = Me.RecordsetClone

Do While Not index.EOF

  rec.AddNew

  rec("Batchnr") = Me.Batch
  rec("Initial") = Me.Initial
  rec("ProduktId") = Me.ProduktId
  rec("VarenrId") = Me.KapselId
  rec("Antal") = Me.Antal

  rec.Update

  index.MoveNext

Loop

Set rec = Nothing
Set db = Nothing
Set index = Nothing

End Sub

Hej Bvirk.

Jeg fik den til at virke ved at sætte, DoCmd.GoToRecord , , acNext , ind i mellem
rec.Update og Index.Movenext.


  rec.Update
  DoCmd.GoToRecord , , acNext
  index.MoveNext

Tak for hjælpen