ник: Анатолий (Киев)
Попробуйте так:
на Поле1_MouseDown - Me!Поле1.Tag = "!"
на Поле2_LostFocus и Поле3_LostFocus первой строкой - If Len(Me!Поле1.Tag)>0 Then Exit Sub
на Поле1_GotFocus - Me!Поле1.Tag = ""
Или обрабатывайте не LostFocus, а KeyDown. Если нажата Enter или Tab - передход на Поле2 или Поле3.