ReSQL.ru
     
powered by simpleCommunicator - 2.0.41     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Динамический поиск в ленточной форме. (ошибка 2185)
14 сообщений из 14, страница 1 из 1
Динамический поиск в ленточной форме. (ошибка 2185)
    #35559933
TpaBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TpaBka
Участник
Прилагаю пример динамического поиска в ленточной форме. Проблема состоит в том, что если в поисковом поле набрать запись не соответствующую набору записей в форме, то есть в форме отобразится 0 записей.
Структура:
Me.Поле.SetFocus
Me.Поле.SelStart = Me.Поле.SelLength
НЕ ФИГА НЕ РАБОТАЕТ!!!
Кто поможет заранее спасибо
...
Рейтинг: 0 / 0
25.09.2008, 15:47
| Ответить | Цитировать | Написать  
Динамический поиск в ленточной форме. (ошибка 2185)
    #35559953
Grayscale
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Grayscale
Участник
Me.Поле.SelStart = Me.Поле.SelLength
так а посмотрите на цифры там... непонятная конструкция какая-то....
...
Рейтинг: 0 / 0
25.09.2008, 15:50
| Ответить | Цитировать | Написать  
Динамический поиск в ленточной форме. (ошибка 2185)
    #35559979
TpaBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TpaBka
Участник
В смысле, что непонятно Me.Поле.SelStart = Me.Поле.SelLength – переводит курсор в конец набранного текста
VB ругается, что он не может выполнить данную операцию потому что в поле неустановлен фокус, но я его устанавливаю: Me.Поле.SetFocus
...
Рейтинг: 0 / 0
25.09.2008, 15:55
| Ответить | Цитировать | Написать  
Динамический поиск в ленточной форме. (ошибка 2185)
    #35559993
SomeNeeder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SomeNeeder
Гость
После фокуса:
Код: plaintext
SendKeys "{end}"
Всё.
...
Рейтинг: 0 / 0
25.09.2008, 15:58
| Ответить | Цитировать | Написать  
Динамический поиск в ленточной форме. (ошибка 2185)
    #35559997
TpaBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TpaBka
Участник
32 - это пробел, чтоб юзер набрать несколько слов в поиске
...
Рейтинг: 0 / 0
25.09.2008, 15:58
| Ответить | Цитировать | Написать  
Динамический поиск в ленточной форме. (ошибка 2185)
    #35560006
TpaBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TpaBka
Участник
Ну и шо в поиске можно набрать только одну букву
...
Рейтинг: 0 / 0
25.09.2008, 16:01
| Ответить | Цитировать | Написать  
Динамический поиск в ленточной форме. (ошибка 2185)
    #35560027
SomeNeeder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SomeNeeder
Гость
TpaBkaНу и шо в поиске можно набрать только одну букву
Не понял.
Всё работает!
Убрать вычисления позиция курсора напрочь
Поставить вместо неё
Код: plaintext
SendKeys "{end}"
И всё.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Sub Поле_Change()
If KeyCode_my <>  32  Then
    Me.Refresh
    MyVar = Nz(Me.Поле)
    If Not IsNull(Me.Поле) Then
    myFilter = "[Текст] Like '" & MyVar & "*" & "'"
    DoCmd.ApplyFilter , myFilter
    Me.Поле.SetFocus
    SendKeys "{end}"
    'Me.Поле.SelStart = Me.Поле.SelLength
    Else
    DoCmd.ShowAllRecords
    Me.Поле.SetFocus
    End If
End If
End Sub
...
Рейтинг: 0 / 0
25.09.2008, 16:06
| Ответить | Цитировать | Написать  
Динамический поиск в ленточной форме. (ошибка 2185)
    #35560051
TpaBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TpaBka
Участник
Ну у меня в поиске можно набрать только одну букву и затем она выделяется.
Какой у тебя офис?
...
Рейтинг: 0 / 0
25.09.2008, 16:13
| Ответить | Цитировать | Написать  
Динамический поиск в ленточной форме. (ошибка 2185)
    #35560153
SomeNeeder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SomeNeeder
Гость
Понятно.
Аксес 2002
Как вариант попробуй f2 в той же команде
...
Рейтинг: 0 / 0
25.09.2008, 16:34
| Ответить | Цитировать | Написать  
Динамический поиск в ленточной форме. (ошибка 2185)
    #35560178
TpaBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TpaBka
Участник
SomeNeeder огромное спасибо все gooooooooooooooooooooooooooooooooood
...
Рейтинг: 0 / 0
25.09.2008, 16:38
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Динамический поиск в ленточной форме. (ошибка 2185)
    #39182252
luchlex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
luchlex
Гость
Пожалуйста помогите!!!!!
Хочу реализовать поиск в ленточной форме

Private Sub Поиск_Change()
Dim PStr As String
PStr = Me.Поиск.Text
Me.Filter = "ФИО Like '*" & PStr & "*'"
Me.FilterOn = True
Me.Поиск.SelStart = Len(PStr)
End Sub

При вводе в строку поиска несуществующей в форме записи выдается ошибка 2195. Как это исправить?
...
Рейтинг: 0 / 0
01.03.2016, 11:27
| Ответить | Цитировать | Написать  
Динамический поиск в ленточной форме. (ошибка 2185)
    #39182505
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
luchlex,
поле7-образец поиска,расположенное в заголовке формы
(при отсутствии записей соответствующих критерию форма пустая, или выведите сообщение)
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Private Sub Поле7_Change()
DoCmd.ApplyFilter , "Фамилия like '" & Me.Поле7.Text & "*'"
End Sub

Private Sub Поле7_GotFocus()
Me.Поле7.SelStart = Len(Me.Поле7.Text)
End Sub
...
Рейтинг: 0 / 0
01.03.2016, 13:40
| Ответить | Цитировать | Написать  
Динамический поиск в ленточной форме. (ошибка 2185)
    #39182527
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Вдогонку: в заголовке формы разместить кнопку "показать все"
Код: vbnet
1.
2.
3.
4.
Private Sub ПоказатьВсе_Click()
Me.RecordSource = "ИмяТаблицыИсточника"
Me.Поле7 = ""
End Sub
...
Рейтинг: 0 / 0
01.03.2016, 13:53
| Ответить | Цитировать | Написать  
Динамический поиск в ленточной форме. (ошибка 2185)
    #39182538
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
или:
Код: vbnet
1.
DoCmd.ShowAllRecords

Кажись всё
...
Рейтинг: 0 / 0
01.03.2016, 14:00
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Динамический поиск в ленточной форме. (ошибка 2185)
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=35560178&tid=1613863]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 35ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 259ms
total:  389ms
созд. / загр.: 389ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]