Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Динамический поиск в ленточной форме. (ошибка 2185) / 14 сообщений из 14, страница 1 из 1
25.09.2008, 15:47
    #35559933
TpaBka
TpaBka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Динамический поиск в ленточной форме. (ошибка 2185)
Прилагаю пример динамического поиска в ленточной форме. Проблема состоит в том, что если в поисковом поле набрать запись не соответствующую набору записей в форме, то есть в форме отобразится 0 записей.
Структура:
Me.Поле.SetFocus
Me.Поле.SelStart = Me.Поле.SelLength
НЕ ФИГА НЕ РАБОТАЕТ!!!
Кто поможет заранее спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2008, 15:50
    #35559953
Grayscale
Grayscale
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Динамический поиск в ленточной форме. (ошибка 2185)
Me.Поле.SelStart = Me.Поле.SelLength
так а посмотрите на цифры там... непонятная конструкция какая-то....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2008, 15:55
    #35559979
TpaBka
TpaBka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Динамический поиск в ленточной форме. (ошибка 2185)
В смысле, что непонятно Me.Поле.SelStart = Me.Поле.SelLength – переводит курсор в конец набранного текста
VB ругается, что он не может выполнить данную операцию потому что в поле неустановлен фокус, но я его устанавливаю: Me.Поле.SetFocus
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2008, 15:58
    #35559993
SomeNeeder
SomeNeeder
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Динамический поиск в ленточной форме. (ошибка 2185)
После фокуса:
Код: plaintext
SendKeys "{end}"
Всё.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2008, 15:58
    #35559997
TpaBka
TpaBka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Динамический поиск в ленточной форме. (ошибка 2185)
32 - это пробел, чтоб юзер набрать несколько слов в поиске
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2008, 16:01
    #35560006
TpaBka
TpaBka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Динамический поиск в ленточной форме. (ошибка 2185)
Ну и шо в поиске можно набрать только одну букву
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2008, 16:06
    #35560027
SomeNeeder
SomeNeeder
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Динамический поиск в ленточной форме. (ошибка 2185)
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:13
    #35560051
TpaBka
TpaBka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Динамический поиск в ленточной форме. (ошибка 2185)
Ну у меня в поиске можно набрать только одну букву и затем она выделяется.
Какой у тебя офис?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2008, 16:34
    #35560153
SomeNeeder
SomeNeeder
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Динамический поиск в ленточной форме. (ошибка 2185)
Понятно.
Аксес 2002
Как вариант попробуй f2 в той же команде
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.09.2008, 16:38
    #35560178
TpaBka
TpaBka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Динамический поиск в ленточной форме. (ошибка 2185)
SomeNeeder огромное спасибо все gooooooooooooooooooooooooooooooooood
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
01.03.2016, 11:27
    #39182252
luchlex
luchlex
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Динамический поиск в ленточной форме. (ошибка 2185)
Пожалуйста помогите!!!!!
Хочу реализовать поиск в ленточной форме

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

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


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