Access Как при получени Фокуса (setfocus) ост. выд

[Guest_]

Как при получении Фокуса (SetFocus) оставить выделенный фрагмент текста для применения SelText и опр. функции с выделенным текстом.

пример: Есть поле с произвольным тестом, в этом тесте выделяешь часть, нажимаешь кнопку (здесь и задаётся фокус на текстовое поле) при этом выделенный фрагмент в текстовом поле снимается и выделяется весь текст. Как бы сделать, чтобы франмент остался выделенным.

Надеюсь на ответ...

 

[????]

Option Compare Database
Dim selstart
Dim sellen

Private Sub test_GotFocus()

 Me.test.selstart = selstart
 Me.test.SelLength = sellen

End Sub

Private Sub test_LostFocus()

 selstart = Me.test.selstart
 sellen = Me.test.SelLength
 
End Sub

Private Sub Êíîïêà4_Click()

Dim start
 Me.test.SetFocus

End Sub

две глобальные переменный для хранения свойств поля selstart - начало и SelLength - длина выделенной области. При потере фокуса сохраняем значения, при восстановлении восстанавливаем.
З.Ы. При необходимости "обработать напильником" до необходимой формы