ACCESS + VB +ORACLE + TRANSACTION

[Axel Richter]

Hallo,

___codeschnipsel___start
Private Sub Form_Load()
    Set wrkODBC = CreateWorkspace("ODBCWorkspace", "cdb", _
        "usr", dbUseODBC)
    Workspaces.Append wrkODBC
    DefaultType = dbUseJet
    wrkODBC.BeginTrans
End Sub
___codeschnipsel___end

und beim betätigen des "undo"-buttons geschieht ein rollback

___codeschnipsel___start
Private Sub cmdUndo_Click()
  Set wrkODBC = CreateWorkspace("ODBCWorkspace", "cdb", _
      "usr", dbUseODBC)
  Workspaces.Append wrkODBC
  DefaultType = dbUseJet
  wrkODBC.Rollback
End Sub
___codeschnipsel___end

Hm, nicht, dass ich sowas schon mal gemacht hätte, aber sollte nicht bei Undo_Click der Wokspace wrkODBC noch existieren, den Du bei Form_Load erstellt hast, und sollte nicht _dieser_ zurückgerollt werden, statt eines völlig neuen, den Du bei Undo_Click erst erzeugst?

Private Sub cmdUndo_Click()
   wrkODBC.Rollback
End Sub

viele Grüße

Axel