Не работает процедура. Хотя и имя поля определяется корректно.
ощибка "не удается найти поле fld1" - а я же указываю что это не поле, а переменная!

Private Sub дата_начала_процентов_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim fld1 As String
fld1 = Screen.ActiveControl.Name 'Me!дата_начала_процентов

If Me!fld1 = "" Then Me!fld1.SelStart = 0 Else Me!fld1.SelStart = Len(Me!fld1)

End Sub

http://www.sql.ru/forum/1124726/ne-ustanavlivetsya-kursor-v-nachalo-konec-polya