ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Автоматическое заполнение полей на форме при выборе значения в поле со списком
16 сообщений из 16, страница 1 из 1
Автоматическое заполнение полей на форме при выборе значения в поле со списком
    #39325029
Akama_mama
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akama_mama
Гость
Доброго времени суток.
Много листал форум на эту тему, были похожие вопросы. В языке SQL и VBA я первобытный дуб, но эль-генерал требует рабочую БД, премия плачет))
СУБД Access, единственная таблица, единственная форма. На форме - все поля таблицы.
----------------
Задача: ткнули в список, нашли там значение (пусть список отражает все имеющиеся в БД значения "поле1"), AfterUpdate поля заполняет все остальные поля сразу на форме (именно на форме после выбора, а не в создаваемом при этом отчете).
----------------
Для точности, создал наглядную БД, повторяющую поля и их типы.
...
Рейтинг: 0 / 0
12.10.2016, 09:48
| Ответить | Цитировать | Написать  
Автоматическое заполнение полей на форме при выборе значения в поле со списком
    #39325033
Akama_mama
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akama_mama
Гость
UPD: Если кому не сложно, в двух словах, на пальцах, что именно должно происходить (в формате Select FROM (blablabla) - тут мы выбрали то, то и то, записали сюда, чтобы потом сделать вот это).
...
Рейтинг: 0 / 0
12.10.2016, 09:54
| Ответить | Цитировать | Написать  
Автоматическое заполнение полей на форме при выборе значения в поле со списком
    #39325035
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лапух
Участник
Akama_mama...пусть список отражает все имеющиеся в БД значения "поле1"...
Зачем чего то искать, если там всего одна запись?
И без поиска можно обойтись, и так всЕ имеющиеся записи видно сразу. .
...
Рейтинг: 0 / 0
12.10.2016, 09:57
| Ответить | Цитировать | Написать  
Автоматическое заполнение полей на форме при выборе значения в поле со списком
    #39325038
Akama_mama
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akama_mama
Гость
Лапух, ну я уж не стал сто строк для наглядности там делать :) Смысл в том, что листать контролами внизу 1000 записей в поисках нужной - геморрой, а вот выбрал нужную запись из списка по номеру, например, 843-ю, и бах - сразу в форму вбились все значения, соответствующие 834-й записи. Там сразу и редактируешь, на печать выводишь...
...
Рейтинг: 0 / 0
12.10.2016, 10:01
| Ответить | Цитировать | Написать  
Автоматическое заполнение полей на форме при выборе значения в поле со списком
    #39325042
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лапух
Участник
Akama_mama...а вот выбрал нужную запись из списка по номеру, например, 843-ю, и бах - ......
Так что ли?
...
Рейтинг: 0 / 0
12.10.2016, 10:07
| Ответить | Цитировать | Написать  
Автоматическое заполнение полей на форме при выборе значения в поле со списком
    #39325044
Аллюр Д.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Аллюр Д.
Участник
Например, так
Код: vbnet
1.
2.
3.
4.
Private Sub ÏîëåÑîÑïèñêîì20_AfterUpdate()
    Me.Filter = "Êîä = " & ÏîëåÑîÑïèñêîì20.Value
    Me.FilterOn = True
End Sub
...
Рейтинг: 0 / 0
12.10.2016, 10:08
| Ответить | Цитировать | Написать  
Автоматическое заполнение полей на форме при выборе значения в поле со списком
    #39325046
Аллюр Д.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Аллюр Д.
Участник
или так

Код: vbnet
1.
2.
3.
4.
Private Sub ПолеСоСписком20_AfterUpdate()
    Me.Filter = "Код = " & ПолеСоСписком20.Value
    Me.FilterOn = True
End Sub
...
Рейтинг: 0 / 0
12.10.2016, 10:08
| Ответить | Цитировать | Написать  
Автоматическое заполнение полей на форме при выборе значения в поле со списком
    #39325050
Akama_mama
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akama_mama
Гость
Лапух, гениально! спасибо огромное! Есть минутка рассказать, что именно код делает?
...
Рейтинг: 0 / 0
12.10.2016, 10:12
| Ответить | Цитировать | Написать  
Автоматическое заполнение полей на форме при выборе значения в поле со списком
    #39325052
Akama_mama
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akama_mama
Гость
Аллюр Д.,
работает код Лапуха:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub ПолеСоСписком20_AfterUpdate()
      
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Код] = " & Str(Nz(Me![ПолеСоСписком20], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    
    Me![ПолеСоСписком20] = Null

End Sub


Спасибо, что отозвался)
...
Рейтинг: 0 / 0
12.10.2016, 10:13
| Ответить | Цитировать | Написать  
Автоматическое заполнение полей на форме при выборе значения в поле со списком
    #39325064
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лапух
Участник
Akama_mama... рассказать, что именно код делает?...
Ищет код записи, соответствующий значению в ПолеСоСписком20.

Код - Аллюр Д., тоже по идее должен сработать, но это не поиск а фильтр.

т. к. значение для фильтра может быть не только числовым, а и текстовым или датой, а я обычно по своей невнимательности и неопытности забываю ставить - Апострофы или - Решоточки, то обычно применяю фильтр типа такого

DoCmd.ApplyFilter "", "[ПолеДляФильтра]=[Forms]![ИмяФормы]![ПолеОбразец]"

Кабы ссылаюсь на поле формы.
...
Рейтинг: 0 / 0
12.10.2016, 10:26
| Ответить | Цитировать | Написать  
Автоматическое заполнение полей на форме при выборе значения в поле со списком
    #39325069
Akama_mama
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akama_mama
Гость
Лапух, огромное спасибо! уже прикрутил к своей БД, работает аки часовой механизм.
...
Рейтинг: 0 / 0
12.10.2016, 10:31
| Ответить | Цитировать | Написать  
Автоматическое заполнение полей на форме при выборе значения в поле со списком
    #39325075
Аллюр Д.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Аллюр Д.
Участник
ЛапухКод - Аллюр Д., тоже по идее должен сработать, но это не поиск а фильтр.
Не только должен, но и работает

Я же не в окне ответа эти строки набирал, а скопипастил из базы, а перед этим проверил
...
Рейтинг: 0 / 0
12.10.2016, 10:38
| Ответить | Цитировать | Написать  
Автоматическое заполнение полей на форме при выборе значения в поле со списком
    #39325094
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лапух
Участник
Аллюр Д....Не только должен, но и работает
Я же не в окне ответа эти строки набирал, а скопипастил из базы, а перед этим проверил...
А я заленился так набирать, хотя и так тоже иногда делаю, по этому так и выразился, типа на свою память не особо понадеялся, может где какая запятая не там или не так.
...
Рейтинг: 0 / 0
12.10.2016, 10:53
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Автоматическое заполнение полей на форме при выборе значения в поле со списком
    #39543704
Nevill
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nevill
Гость
Подскажите пожалуйста как это реализовать для данных которые хранятся в совсем другой таблице. Что бы было наглядно вот ссылка на БД (делал в версии Microsoft Access 2010/2013). В форме "Доставка" для поля "Адрес подписчика".
З.Ы. как добавить условие что бы ФИО подписчиков выводимых в списке повторялись с теми, что уже внесены в таблице доставка. Там уже есть условия проверки, но как добавить еще вышеописанное не знаю, обычное сравнение типа <> не работает(проверял на Иванове).
...
Рейтинг: 0 / 0
28.10.2017, 16:42
| Ответить | Цитировать | Написать  
Автоматическое заполнение полей на форме при выборе значения в поле со списком
    #39543899
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лапух
Участник
Nevill...Подскажите пожалуйста как это реализовать... (делал в версии Microsoft Access 2010/2013)....
Если вопрос ко мне, то лично я, на примере подсказать не могу, т. к. у меня ещё до сих пор Акс 2000.
Ставить Access 2010/2013 не охота.
Может лучше вы к нам?
...
Рейтинг: 0 / 0
29.10.2017, 09:31
| Ответить | Цитировать | Написать  
Автоматическое заполнение полей на форме при выборе значения в поле со списком
    #39543990
Nevill
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nevill
Гость
Лапух,
Перенес вручную все в Microsoft Access 2000 (мою сохранить как более раннюю версию Access не позволил), на первый взгляд все работает как и в моей версии.
Ссылка на базу
Уточню в оригинале вопроса опечатка "З.Ы. как добавить условие что бы ФИО подписчиков выводимых в списке не повторялись с теми, что уже внесены в таблицу доставка".
...
Рейтинг: 0 / 0
29.10.2017, 14:26
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Автоматическое заполнение полей на форме при выборе значения в поле со списком
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39325069&tid=1611959]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 49ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 12ms
total:  160ms
созд. / загр.: 160ms
x
x
Закрыть


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