Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Проблема с поиском записи / 9 сообщений из 9, страница 1 из 1
03.09.2017, 17:46
    #39514717
ВасилийСамара
ВасилийСамара
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с поиском записи
Здравствуйте. Прошу помочь в решении проблемы

А2000

В форме есть поле для поиска, при вводе значения в которое и нажатии кнопки отбираются записи.

Поиск основан на запросе, результаты которого подставляются в RecordSourse формы.

Если запрос не пустой (т.е. есть записи), все нормально, если же пустой, например ввели некорректное значение для поиска, то на форме пропадают все контролы.

Как это исправить, подскажите пожалуйста
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.09.2017, 21:05
    #39514772
guest_rusimport
guest_rusimport
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с поиском записи
ВасилийСамара,
не ваш случай?
10490605
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.09.2017, 21:10
    #39514775
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с поиском записи
ВасилийСамара,
видимо у вас нередактируемый запрос(в качестве исходного)
--или в форме стоит запрет добавления данных
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.09.2017, 12:08
    #39514967
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с поиском записи
поиск по мере ввода символов (запрос при этом не нужен):
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Private Sub поиск_GotFocus()
Me.поиск.SelStart = Len(Me.поиск.Text)
End Sub

Private Sub поиск_KeyUp(KeyCode As Integer, Shift As Integer)
DoCmd.ApplyFilter , "Фамилия like'" & Me.поиск.Text & "*'"
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.10.2017, 10:19
    #39535207
Stang
Stang
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с поиском записи
sdku,
а почему на попытку искать текста в любой части у меня выпадает ошибка, не подскажите?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.10.2017, 17:35
    #39535568
Quiet333
Quiet333
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с поиском записи
Stangsdku,
а почему на попытку искать текста в любой части у меня выпадает ошибка, не подскажите?

Поставил * куда надо - все работает

DoCmd.ApplyFilter , "Фамилия like ' * " & Me.поиск.Text & "*'"

Столкнулся с другой проблемой: если по введенным символам ничего нет возникает ошибка 2185.
Наверное еще обработчик ошибок надо добавить...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2017, 12:13
    #39535923
Stang
Stang
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с поиском записи
Quiet333,

это называется руки или глаза не оттуда, не тот символ ввел, понятно что работать не будет. Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2017, 13:33
    #39535985
Анатолий ( Киев )
Анатолий ( Киев )
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с поиском записи
Quiet333ввели некорректное значение для поиска, то на форме пропадают все контролы

ПЕНСИОНЕРКА: видимо у вас нередактируемый запрос(в качестве исходного)
--или в форме стоит запрет добавления данных

если по введенным символам ничего нет возникает ошибка 2185.

Читайте выше ответ ПЕНСИОНЕРКА . Если ПЕНСИОНЕРКА угадала, то в вашем случае лучше сначала проверить наличие записи по условию (например - DLookup), а по результату либо применить фильтр, либо сообщить юзеру, что он промахнулся.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2017, 17:03
    #39536128
vixxa
vixxa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема с поиском записи
sdkuпоиск по мере ввода символов (запрос при этом не нужен):
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Private Sub поиск_GotFocus()
Me.поиск.SelStart = Len(Me.поиск.Text)
End Sub

Private Sub поиск_KeyUp(KeyCode As Integer, Shift As Integer)
DoCmd.ApplyFilter , "Фамилия like'" & Me.поиск.Text & "*'"
End Sub


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


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