Private Sub Form_RecordExit(Cancel As Integer)
' При переходе между записями надпись errormsg скрывается,
' чтобы ненужного избежать мелькания.
ErrorMsg.Visible = False
End Sub

К бд Борей созданию мастер Йода приложился?