Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Комбинированный(Combobox) / 9 сообщений из 9, страница 1 из 1
12.06.2016, 19:11
    #39255021
Kovala
Kovala
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Комбинированный(Combobox)
Всем привет, имеется такой вопрос. Надо в access в форме в комбинированный, он же combobox в excel, добавить текст, однако в excel справлялся с помощью строчки vba, а тут не знаю. Читал, что нужно написать процедуру, а потом..., а потом куда её прописать не знаю.Может кто-то знает, как с помощью vba записать данные в "комбинированный"
код в экселе:
Код: vbnet
1.
Combobox1.AddItem "TEXT"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.06.2016, 20:02
    #39255032
_гурД
_гурД
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Комбинированный(Combobox)
Kovala,

так же, за исключением, м. б. того, что св-во Источник строк надо предварит задать как Список значений
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.06.2016, 21:02
    #39255043
Kovala
Kovala
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Комбинированный(Combobox)
_гурД,
Он так и задан
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.06.2016, 21:13
    #39255046
гурД
гурД
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Комбинированный(Combobox)
Kovala,

а в Экселе, разве, не процедурой это было у вас оформлено?
К примеру на событие Получение фокуса этим контролом:
Код: vbnet
1.
2.
3.
private sub Combo_setfocus()
  if чего-нибудь там = "ляля" then me.combo.additem "ляляля"
end sub


Это рамещаете в модуле формы, на которой у вас расположен комбо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.06.2016, 21:15
    #39255047
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Комбинированный(Combobox)
Kovala,
Этот источник строк создаст список: первая строка " текст" и далее значения поля ctl2 не равные NULL и отсортированные по возрастанию
Код: vbnet
1.
Me.ComboBox.RowSource ="SELECT top 1 ' text' FROM Таблица1 UNION SELECT ctl2 FROM Таблица1  WHERE not ctl2 is null GROUP BY ctl2"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.06.2016, 21:55
    #39255065
Kovala
Kovala
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Комбинированный(Combobox)
sdku,
Но мне не надо брать данные из таблицы. Я буду забивать текст через Vba сам, как я приводил пример в моем первом письме
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.06.2016, 21:56
    #39255066
Kovala
Kovala
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Комбинированный(Combobox)
гурД,
Нет в экселе я обычным sub писал, причём sub userformunitialize
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.06.2016, 22:04
    #39255071
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Комбинированный(Combobox)
Kovala,
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.06.2016, 23:15
    #39255104
гурД
гурД
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Комбинированный(Combobox)
Kovalaв экселе я обычным sub писал
Ну, считайте, что здесь тем же обычным, только
Код: plaintext
private sub
(это один из множества вариантов, попроще...)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Комбинированный(Combobox) / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 144ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1613484]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 36ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 12ms
total:  144ms
x
x
Закрыть


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