Форум программистов, компьютерный форум, киберфорум
Наши страницы

MS Access

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 11, средняя оценка - 4.91
Mary-Salta
1 / 1 / 0
Регистрация: 31.03.2009
Сообщений: 62
#1

Как написать поиск по list в форме - MS Access

15.04.2009, 09:00. Просмотров 1403. Ответов 11
Метки нет (Все метки)

Есть форма. Есть элемент list. Скажите пожалуйста, как мне написать или сделать кнопку поиска записей по list? чтобы эта запись стала текущей
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.04.2009, 09:00
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Как написать поиск по list в форме (MS Access):

Как произвести поиск через родительскую форму в записях элемента управления List - MS Access
Есть данные в list элементе. По форме располпожена кнопка. Необходимо произвести поиск по list. Помогите пожалуйста?

Как настроить поиск в Форме - MS Access
Добрый день! Сейчас занимаюсь созданием базы данных. Мне нужно осуществлять поиск (бинокль) в форме, но форма открывается макросом в режиме...

Поиск записей в подчиненной форме по различным параметрам полей в главной форме - MS Access
Доброго времени суток уважаемые Форумчане! Пожалуй, заключительный вопрос. Суть вопроса: на форме Водители имеем подчиненную форму...

Поиск записей в подчиненной форме по значению поля со списком в главной форме - MS Access
Доброго времени суток уважаемые Форумчане! Очередной раз необходима Ваша помощь!!! Суть вопроса: на форме Водители имеем подчиненную...

Поиск в основной форме по записи в подчиненной форме - MS Access
Не могли бы подсказать как из подчиненной формы можно перейти в основую форму, на определенную запись. Т.е. в подчиненной форме есть...

Как организовать поиск по всей форме (по всем столбцам) на событие? - MS Access
как организовать поиск по всей форме (по всем столбцам) на событие Change из form1 из поля Text9 выложите файл используя этот...

11
unick12345
1333 / 1024 / 65
Регистрация: 27.03.2009
Сообщений: 3,819
15.04.2009, 14:54 #2
в листе как и комбо при вводе первых символов записи, автоматически идет переход к записи. не нужно делать никакого поиска.
0
Mary-Salta
1 / 1 / 0
Регистрация: 31.03.2009
Сообщений: 62
17.04.2009, 12:55  [ТС] #3
Мне нужно было сделать кнопку по которой можно найти ту запись в list. Это команды vb
0
БурундукЪ
9555 / 2555 / 67
Регистрация: 17.02.2009
Сообщений: 10,364
17.04.2009, 13:01 #4
откуда Вы берете данные для того чтобы выбрать в листе запись?:
1. из какого-то поля
2. из диалога (InputBox)
3. это константа какая-то
4. из выборки (типа, DlookUp(...))
0
Mary-Salta
1 / 1 / 0
Регистрация: 31.03.2009
Сообщений: 62
17.04.2009, 13:04  [ТС] #5
из диалога(InputBox)
0
БурундукЪ
9555 / 2555 / 67
Регистрация: 17.02.2009
Сообщений: 10,364
17.04.2009, 13:15 #6
Visual Basic
1
list.Value = InputBox("Введите значение")
0
Mary-Salta
1 / 1 / 0
Регистрация: 31.03.2009
Сообщений: 62
17.04.2009, 13:20  [ТС] #7
А если нет такой записи, то мне нужно вывести сообщение "записи нет"

мне где-то в этом плане нужно:

Visual Basic
1
2
3
4
5
6
7
8
E = InputBox("lklkjldjlkdjld", "title")
    
'For i = 0 To propcodelist.ListCount - 1
'b = propcodelist.ItemData(i)
'If b = E Then
 '   propcodelist.ItemData(i).ListIndex = i
 ' End If
 'Next i
0
БурундукЪ
9555 / 2555 / 67
Регистрация: 17.02.2009
Сообщений: 10,364
17.04.2009, 13:25 #8
а это уже по обработке событий
Visual Basic
1
2
3
On Error Goto metka
 
metka:
1
Mary-Salta
1 / 1 / 0
Регистрация: 31.03.2009
Сообщений: 62
17.04.2009, 13:31  [ТС] #9
У меня нашла,но после нахождения выводит ошибочную метку
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ГЉГ*îïêГ*74_Click()
 
 On Error GoTo metka
   
    Me.propcodelist.Value = InputBox("Ââåäèòå Г§Г*Г*Г·ГҐГ*ГЁГҐ")
 
metka:
    
a = MsgBox("Г*ГҐГІ êîäГ* Г…ГЌГ€", vbCritical)
 
 
    
End Sub
0
БурундукЪ
9555 / 2555 / 67
Регистрация: 17.02.2009
Сообщений: 10,364
17.04.2009, 13:33 #10
д.б. так

Visual Basic
1
2
3
4
5
6
7
8
On Error GoTo metka
   
    Me.propcodelist.Value = InputBox("Введите значение")
 
exit sub
metka:
    
a = MsgBox("нет кода ЕНИ", vbCritical)
т.е. добавить exit sub перед меткой
1
Mary-Salta
1 / 1 / 0
Регистрация: 31.03.2009
Сообщений: 62
17.04.2009, 14:06  [ТС] #11
Молодец! Целую!

Добавлено через 28 минут 23 секунды
Бурундук, У меня же данные в list отображается по фильтру. Когда я произвожу поиск по этой команде, то та запись которая была в другом фльтре не отображается, но другая подчиненная форма которая зависима от list отображает данные искомой записи. Эта не правильно. Помогите!
1
БурундукЪ
9555 / 2555 / 67
Регистрация: 17.02.2009
Сообщений: 10,364
17.04.2009, 14:14 #12
Цитата Сообщение от Mary-Salta Посмотреть сообщение
У меня же данные в list отображается по фильтру. Когда я произвожу поиск по этой команде, то та запись которая была в другом фльтре не отображается, но другая подчиненная форма которая зависима от list отображает данные искомой записи.
можно скрин, или код, или еще лучше обработчик в студию
1
17.04.2009, 14:14
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.04.2009, 14:14
Привет! Вот еще темы с ответами:

Как организовать поиск по всей форме (по всем столбцам) на событие Change - MS Access
Помогите мне пожалуйста.... как организовать поиск по всей форме (по всем столбцам) на событие Change "Text15" и самое главное...

Как написать условие на отображение в одной форме данных из отдельных таблиц? - MS Access
Есть 5 таблиц: Таб1, Таб2 ... Таб5 (с подчин. таблицами). Все таблицы (подчиненные тоже) одинаковы по кол-ву и названию полей, формату...

Поиск в форме - MS Access
Всем доброго дня, ещё 3 дня назад я впервые открыл программу MS ACCESS. Абсолютно ничего в ней не понимая решил сделать базу для...

Поиск на форме - MS Access
Возможно сделать на форме поиск даних? В поле ввожу значение. Нажимаю поиск... Возможно такое сделать. Что-то типа параметрического...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru