Code:
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim ctrl As Control
If Me.Dirty Then
For Each ctrl In Me.Controls
With ctrl
If .ControlType = acTextBox Then
Debug.Print .Name