Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.09.2017, 10:32   #1
superpsih
Пользователь
 
Регистрация: 14.11.2013
Сообщений: 74
По умолчанию Выбор значения combo box

Здравствуйте. Помогите, пожалуйста, решить следующую задачу (на VBA).
Есть combo box, при нажатии на кнопку надо чтобы в этом combo box выбралось заданное значение. Т.е. в примере после нажатия на кнопку в combo box должно высветиться, например, первое значение ("55"). Реализуемо ли это?
Вложения
Тип файла: zip question.zip (24.9 Кб, 17 просмотров)
superpsih вне форума Ответить с цитированием
Старый 27.09.2017, 11:16   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
Private Sub Command12_Click()
    Dim n As Integer, ind As Integer
    n = Combo14.ListCount - 1
    Combo14.SetFocus
    ind = Int((n + 1) * Rnd)
    Combo14.ListIndex = ind
    Command12.SetFocus
End Sub
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 27.09.2017, 13:06   #3
superpsih
Пользователь
 
Регистрация: 14.11.2013
Сообщений: 74
По умолчанию

Большое спасибо! Правда, мне достаточно кода:
Код:
Private Sub Command12_Click()
    Combo14.SetFocus
    Combo14.ListIndex = 0
    Command12.SetFocus
End Sub
superpsih вне форума Ответить с цитированием
Старый 27.09.2017, 15:04   #4
superpsih
Пользователь
 
Регистрация: 14.11.2013
Сообщений: 74
По умолчанию

Возникла проблема.
Пытаюсь этот код повесить на After_update другого комбо. Ругается и не работает. Почему? На кнопке работает на комбо не работает
Изображения
Тип файла: png 2017-09-27_16-03-19.png (5.0 Кб, 45 просмотров)
Вложения
Тип файла: zip question.zip (39.7 Кб, 16 просмотров)
superpsih вне форума Ответить с цитированием
Старый 27.09.2017, 15:12   #5
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

2ая ссылка гугла стаковерфлоу говорит что надо писать
Код:
Private Sub Combo26_AfterUpdate()
    Combo14.SetFocus
    'Combo14.ListIndex = 0
    Combo14 = Combo14.ItemData(0)
    Command12.SetFocus
End Sub
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 27.09.2017, 15:16   #6
superpsih
Пользователь
 
Регистрация: 14.11.2013
Сообщений: 74
По умолчанию

Работает! Спасибо большое, уже полчаса с этим вожусь никак с места не сдвинусь.
superpsih вне форума Ответить с цитированием
Старый 27.09.2017, 15:28   #7
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

уберите с события "После обновления" (AfterUpdate) и повесьте код на событие "Изменение" (Change):
Код:
Private Sub Combo26_Change()
    Combo14.SetFocus
    Combo14.ListIndex = 0
    Combo26.SetFocus
End Sub

ups... я опоздал...
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Фильтр для Combo box по текстовому полю superpsih Microsoft Office Access 2 23.12.2015 11:23
Combo box title serres Общие вопросы по Java, Java SE, Kotlin 0 02.10.2012 23:41
combo box titan2012 Visual C++ 4 02.03.2012 06:26
проблема с заполением многозначная (combo box) Александр__ Microsoft Office Access 2 01.06.2010 06:18
выбор значения Screame Microsoft Office Excel 2 01.11.2009 14:09