| |
|
|
| | Запускаю команду поиска в мемо-поле(в форме).Команда находит текст и выделяет найденное
Forms!форма!текст.SetFocus
dim критерий
критерий="слово"
DoCmd.FindRecord критерий, acAnywhere, False, , True
Как программно продолжить поиск в этом поле и выделить найденное?
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70- в этом варианте не могу автоматически загнать образец поиска | |
| |
| |
| |
|
|
| | На уровне идеи.
После того как нашли строку (не важно каким способом), для продолжения поиска в этом же поле найденной строки попробуйте получить тескт поля, потом искать с помощью inStr и выделять найденное слово свойствами поля selectionStart и SelectionLength. | |
| |
| |
| |
|
|
| | Спасибо osmor за идею!!
вопрос решается:
a = InStr(aa, Forms!форма!КрСодержание.Value, strFindWhat)
If a Then
Forms!форма!КрСодержание.SetFocus
Forms!форма!КрСодержание.SelStart = a - 1
Forms!форма!КрСодержание.SelLength = Len(strFindWhat)
End If
aa = a - 1 + Len(strFindWhat) | |
| |
| |
| |
|
|
| | что-то подобное и имелось ввиду. Только я напутал с названием свойств. (забыл уже все  )
Рад что подошло.  | |
| |
| |
| |
|
|
| | Прошу прощения! А что такое strFindWhat ? | |
| |
| |
| |
|
|
| | strFindWhat - это переменная в которой строка поиска | |
| |
| |
| |
 15 Кб. |
|
| | Я так и думал. Тогда у меня не работает :( (Access 2003) | |
| |
| |
| |
16 Кб. |
|
| | а теперь? | |
| |
| |
| |
|
|
| | Теперь работает  | |
| |
| |
