ник: Lukas
Если только изменения в TextBox-ах интересуют, то можно так:
Private blnChange As Boolean
Private Function funChange()
blnChange = True
Me.Caption = "Изменено !!!"
End Function
Private Sub Form_Open(Cancel As Integer)
Dim ctrl As Control
For Each ctrl In Me.Controls
If ctrl.ControlType = acTextBox Then
ctrl.OnChange = "=funChange()"
End If
Next ctrl
End Sub
|