Private Sub _Change() Dim a As String If IsNull(Me.) Then Exit Sub a = Me. Me. = a End Sub
http://www.sql.ru/forum/1207916/sobytie-izmenenie-v-pole-formy