brug af transactions på flere recordset

Du bruger noget i stil med:
----

On Error Goto Err_

BeginsTrans

'her kører din kode din kode med de 3 recordset

CommitTrans



Err_:
  Rollback
  msgbox "Der skete en fejl og handlingen blev annulleret."

Brug af transactions speeder også eksekveringen af koden op.

Jeg fik nedenstående til at virke tak for hjælpen

Dim con As New Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset

On Error GoTo Err_Kommandoknap8_Click

Set con = CurrentProject.Connection


rs.Open "Tabel1", con, adOpenDynamic, adLockPessimistic, adCmdTable
rs1.Open "Tabel2", con, adOpenDynamic, adLockPessimistic, adCmdTable



con.BeginTrans


With rs

.AddNew
rs![navn] = "Test"
rs.Update
End With



With rs1

.AddNew
rs1![navn] = "Test"
rs1.Update
End With


con.CommitTrans


Exit_Kommandoknap8_Click:
    Exit Sub

Err_Kommandoknap8_Click:
con.RollbackTrans

    MsgBox ("fejl")
    Resume Exit_Kommandoknap8_Click

Mange tak, jeg var ikke klar over at du bruge ADO.
Godt det virker :-)