i had try this out to undo subform transactions, but i still got many bugs:

i have 3 tables:, Terminalfault, TerminalFaultDetail, Componetused
i had created form by using the above 3 tables:
the mainform is call FrmFault:
   FaultDate:
   SerialNUmber:
  FaultNUmber:

*** subform call subform1
     FaultNUmber:
     Fault:

***** subform call Component
      Component Number:
    Component Quantity

** for subform1 one faultNumber can have many fault , eg
  FaultNUmber = 111 Fault = 22
   faultnumber = 111 Fault = 23 and so on

** similiar to the Component subform
  Component Number = 1111 Component Quantity = 2
 Component NUmber = 1111 component Quantity = 3

i tried to apply the code of subforms transactions from microosoft access 2000 but i don't really understand it

this is my undo module:
Option Compare Database
Option Explicit

Private mwks As DAO.Workspace
Private mfIntrans As Boolean
Const adhcSource As String = "subform1"

*** but unfortunately i didn't create the query , so can i admit this line "Const adhcSource As String = "subform1"


Private Sub resetdata()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim rst As DAO.Recordset
Dim prm As DAO.Parameter
Dim strsource As String


If mfIntrans Then
mwks.CommitTrans
End If

Set mwks = DBEngine.CreateWorkspace("mwks", "Admin", "")
Set db = mwks.OpenDatabase(CurrentDb.Name)
Set qdf = db.QueryDefs(mstrsource)

For Each prm In qdf.Parameters
 prm.Value = Eval(prm.Name)
 Next prm
 Me.Painting = False
 Set rst = qdf.OpenRecordset
 rst.LockEdits = False
 Set Form_subform1.Form.recorset = rst
 Me.Painting = True

 mwks.BeginTrans
 mfIntrans = True

End Sub

** similiar to these code, i didn't create the query so it is not working, so do i modify it as i didn't create a query???

Me.undo
If mfIntrans Then
mwks.Rollback
mfIntrans = False
FaultDate.SetFocus
Call resetdata
End If


Could you please help me , thank you very much!!!