Работает, но не очень надёжно: если курсор мыши при клике находится
перед первой буквой, то этот код:
Private Sub Поле20_DblClick(Cancel As Integer)
Me![Поле22] = Mid(Поле20, Поле20.SelStart, 3)
End Sub
вместо ААА, может вернуть "<пробел>AA", а если курсор окажется
после последней буквы, то вернётся "АА,".
Можно конечно первую ошибку отслеживать, пропустив возвращаемое значение через Trim и проверяя длину результата на >3, а во втором случае проверять на совпадение с Chr(44), но может есть и другой какой вариант?