Option Explicit
Private bChanged As Boolean

' Datensatz anzeigen (aus Recordset lesen)
Text1.Text = ...
Text2.Text = ...
 
' Änderungsflag auf False setzen
bChanged = False

Private Sub Text1_Change()
  ' Änderungsflag auf True setzen
  bChanged = True
End Sub
 
Private Sub Text2_Change()
  ' Änderungsflag auf True setzen
  bChanged = True
End Sub

If bChanged Then
  ' hier der Code zum Speichern der Änderungen
  ...
 
  bChanged = False
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de