powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Поле со списком
14 сообщений из 14, страница 1 из 1
Поле со списком
    #32646006
Alex_from_Spb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здравствуйте всем. Что-то совсем я забыл, как работать с элементом управления Поле со списком, а потому прошу напомниить мне это. А ситуация такова - в общем, строю это самое поле в форме ввода, задаю параметры, присоединяю его к таблице, в которой два поля, текстовое и идентификатор, который и должен использоваться далее при отборе значений, а текст для удобства юзера, чтоб на цифирки не пялиться. Но чего-то у меня не получается. Во-первых, не отображается выбранный элемент в самом поле списка (хотя, элементы для выбора есть, они выпадают при нажатии на стрелочку вниз). А во-вторых, где и каким образом мне писать VBA-скрипт, который и будет заниматься выбором значений и использовать их далее для необходимых обработок - его нужно прицеплять непосредственно к элементу или к самой форме, сославшись на элемент? И каким образом мне описывать Select Case - опять же, в самом элементе или же в форме?

Жду ваших советов и помощи, за что буду очень благодарен.
...
Рейтинг: 0 / 0
Поле со списком
    #32646141
v-metallic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Для того, чтобы в поле отображалось текстовое значение (а не идентификатор), необходимо
1. Открыть свойства этого контрола
2. Свойство "Число столбцов" установить 2
3. Свойство "Ширина столбцов" поставить "0;5"
(5 -это к примеру. Можно и 6 и 3)

Обработку целесообразно проводить в событии "После обновления" (AfterUpdate)
...
Рейтинг: 0 / 0
Поле со списком
    #32646186
Goza
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А вот как бы добавлять значения в поле со списком прямо из этого поля?
...
Рейтинг: 0 / 0
Поле со списком
    #32646195
Фотография kedzo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
по событию - отсутствие в списке (Not In List)
...
Рейтинг: 0 / 0
Поле со списком
    #32646200
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Был бы более конкретный пример, а то непонятно к чему Select Case относится.
Но мне думается, что на форме. Хотя это зависит от задач.
>его нужно прицеплять непосредственно к элементу
> или к самой форме, сославшись на элемент
В Вашем случае, наверно к элементу. Но не обязательно, смотря что надо.
>где и каким образом мне писать VBA-скрипт
Уже написали - на ПослеОбновления этого самого поля со списком.
...
Рейтинг: 0 / 0
Поле со списком
    #32646245
Goza
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А как? Ну выдаст он событие а дальше что? мне надо понять что ввели и добавить это в таблицу источника списка.. не знаю.
...
Рейтинг: 0 / 0
Поле со списком
    #32646259
Bely
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GozaА как? Ну выдаст он событие а дальше что? мне надо понять что ввели и добавить это в таблицу источника списка.. не знаю.
Правильно мыслишь... а теперь посмотри на передаваемые параметры в обработчик.
Код: plaintext
Private Sub edNG_NAME_dtl_NotInList(NewData As String, Response As Integer)
вот тебе и новое значение (NewData), вот тебе и реакция программы (Response).
Подробности есть в HELP-е
...
Рейтинг: 0 / 0
Поле со списком
    #32646323
sposad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
GozaА как? Ну выдаст он событие а дальше что? мне надо понять что ввели и добавить это в таблицу источника списка.. не знаю.

На тебе кусок рабочего кода, правда DAO

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private Sub запрЦена_NotInList(NewData As String, Response As Integer)
Dim baseru As Database, rsPrice As Recordset, strFind As String
Set baseru = CurrentDb
Set rsPrice = baseru.OpenRecordset("PriceLiter", dbOpenDynaset) ' источник данных для комбо 
With rsPrice
.AddNew
![price] = NewData
.Update
End With
Response = acDataErrAdded
rsPrice.Close
Set baseru = Nothing
me!запрЦена.Requery
End Sub

Единственное в конец кода надо
...
Рейтинг: 0 / 0
Поле со списком
    #32646329
sposad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторЕдинственное в конец кода надо

Пардон, ничего не надо
...
Рейтинг: 0 / 0
Поле со списком
    #32646966
Alex_from_Spb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Выкладываю проблемную форму...

Это как бы часть большой задачи, поэтому просьба не обращать на это внимания. На данный момент необходимо лишь разобраться с полем со списком, чтобы корректно осуществлялся выбор. А дальше мне нужно подставить результат этого выбора в запрос (я так понимаю, что подстановкой в инструкцию WHERE свойства [ПолеСоСписком].Value), который формировал бы файл на экспорт, и одновременно результаты отработки запроса отображались бы в белом поле справа. Но это я уже знаю, как сделать.

Заранее всем спасибо!
...
Рейтинг: 0 / 0
Поле со списком
    #32647091
ппп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Посмотрел твою форму .
Везде в свойствах данных стоит-нет т.е нельзя добовлять ,изменять. редактировать -посмотри свойства и поставь - да .Уверен ,что все пойдет!
...
Рейтинг: 0 / 0
Поле со списком
    #32647104
sposad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Версия аксесса какая -?
...
Рейтинг: 0 / 0
Поле со списком
    #32647123
ппп
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Посмотрел твою форму .
Везде в свойствах данных стоит-нет т.е нельзя добовлять ,изменять. редактировать -посмотри свойства и поставь - да .Уверен ,что все пойдет!
...
Рейтинг: 0 / 0
Поле со списком
    #32647170
Alex_from_Spb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо, ппп, все получилось! А я-то, блин, голову ломал, где собака порылась... А в свойства формы заглянуть не догадался, потому что лепил ее с другой похожей формы из этой же базы, для экономии, чтоб не создавать новую. Кто ж знал, что оно все там так запущено... Впредь буду умнее.

Версия - A2000, но полагаю, что это уже значения не имеет.
...
Рейтинг: 0 / 0
14 сообщений из 14, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Поле со списком
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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