powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите с комбо
26 сообщений из 26, показаны все 2 страниц
Помогите с комбо
    #32649785
Art11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
У меня в Combo1 > Properties > After Update > [Event Procedure], есть код (сам схимичил)

Private Sub Combo1_AfterUpdate()
Select Case Combo1
Case "B": Me.Combo3.RowSource = [Table1]![Name]
End Select
End Sub

где Table1 - таблица в той же базе, Name - колонка.

Хочу изменить содержимое Комбо в зависимости от Case. Я новичок программировании, под рукой нет хелпов. Прошу помочь написать правильный код!

Заранее спасибо
...
Рейтинг: 0 / 0
Помогите с комбо
    #32649793
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
RowSource - это свойство, которым задается тот список, который виден при открывании комбобокса. Нужно, чтобы этот список менялся? Или надо только перейти к другому значению в том же списке?
...
Рейтинг: 0 / 0
Помогите с комбо
    #32649795
Art11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Нужно чтобы список менялся. Например был список 1,2,3 стал списком 3,4,5
...
Рейтинг: 0 / 0
Помогите с комбо
    #32649796
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Me.Combo3.RowSource = "SELECT [Name] FROM [Table1]"
...

> под рукой нет хелпов.
А куда они делись?
...
Рейтинг: 0 / 0
Помогите с комбо
    #32649797
Арт11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Хелпы не установлены, нахожусь в Бусурмании, здесь за левый софт судят, а СД с офисом кучу денег стоит
...
Рейтинг: 0 / 0
Помогите с комбо
    #32649798
Арт11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
...
Me.Combo3.RowSource = "SELECT [Name] FROM [Table1]"

не работает. После Выбора пункта "B" в КОмбо1, в Комбо3 видно "SELECT [Name] FROM [Table1]"
...
Рейтинг: 0 / 0
Помогите с комбо
    #32649799
Фотография Лифчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А зачем Комбо, если нужна одна колонка? Вроде Listbox есть для этого
...
Рейтинг: 0 / 0
Помогите с комбо
    #32649800
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Арт11...
Me.Combo3.RowSource = "SELECT [Name] FROM [Table1]"

не работает. После Выбора пункта "B" в КОмбо1, в Комбо3 видно "SELECT [Name] FROM [Table1]"

А что в RowSourceType?
...
Рейтинг: 0 / 0
Помогите с комбо
    #32649802
Art11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
RowSource Type в Комбо3 = Value List
...
Рейтинг: 0 / 0
Помогите с комбо
    #32649803
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Art11RowSource Type в Комбо3 = Value List
А почему?
...
Рейтинг: 0 / 0
Помогите с комбо
    #32649805
Art11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Пробовал Table/Query, Field List - в комбо пустота, ничего нет
...
Рейтинг: 0 / 0
Помогите с комбо
    #32649806
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Table/Query - это то, что должно быть.
...
Рейтинг: 0 / 0
Помогите с комбо
    #32649807
Арт11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Люди добрые напишите правильный код плиз
...
Рейтинг: 0 / 0
Помогите с комбо
    #32649809
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Честно говоря, трудно понять, что вам надо.
Если вы действительно хотите просто числовой набор, то
Me.Combo3.RowSource = "3;4;5"
при RowSourceType = Value List
...
Рейтинг: 0 / 0
Помогите с комбо
    #32649810
Фотография Лифчик
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Попробуй
Me.Combo3.RowSource = "SELECT [Name] FROM [Table1]"
Me.Combo3.Requery
...
Рейтинг: 0 / 0
Помогите с комбо
    #32649813
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Art11Пробовал Table/Query, Field List - в комбо пустота, ничего нет

где пустота - в значении? так и быть должно, если значение по умолчанию не указывается.

а если мышом раскрыть комбо ( на кнопку со стрелкой аниз нажать) - то должен открыться список допустимых значений. Вот в этом списке (допустимых значений) - тоже пустота?

ПСЫ

Интересно, а за чтение книжек - в Басурмании - тоже под суд?
...
Рейтинг: 0 / 0
Помогите с комбо
    #32649817
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
возьми mdb(Acc97)
примитивный вариант связанных списков
Sp_R - посмотри запрос всё станет ясно
...
Рейтинг: 0 / 0
Помогите с комбо
    #32649954
Art11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
To Victosha - xорошо, что сказали, что надо на кнопочку нажать, а то я не знал............
говорю же там пустота, и в комбо и в списке. А книжки то надо достать. Просто я в бейсике давно не работал, лет 10 и синтаксис вообще не помню. Если бы был С++ с синтаксисом по крайней мере не было бы проблем. Так, что если можете помогите. И про дефолт значение тоже знаю.
...
Рейтинг: 0 / 0
Помогите с комбо
    #32649968
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Art11To Victosha - xорошо, что сказали, что надо на кнопочку нажать, а то я не знал............
говорю же там пустота, и в комбо и в списке. А книжки то надо достать. Просто я в бейсике давно не работал, лет 10 и синтаксис вообще не помню. Если бы был С++ с синтаксисом по крайней мере не было бы проблем. Так, что если можете помогите. И про дефолт значение тоже знаю.
пример смотреть религия не позволяет ?
...
Рейтинг: 0 / 0
Помогите с комбо
    #32650064
Фотография xax_nv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
Private Sub Combo1_AfterUpdate()
Select Case Combo1.Value
Case "A": Me!Combo3.RowSource = "SELECT [Table1]![Name]"
Case "B": Me!Combo3.RowSource = "SELECT [Table2]![Name]"
End Select
End Sub
По-моему это то, что Вы хотели получить. В зависимости от значения в Combo1
меняется RowSource для Me!Combo3.

Успехов!
...
Рейтинг: 0 / 0
Помогите с комбо
    #32650071
Фотография xax_nv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
Private Sub Combo1_AfterUpdate()
Select Case Combo1.Value
Case "A": Me!Combo3.RowSource = "SELECT [Table1]![Name] From [Table1]"
Case "B": Me!Combo3.RowSource = "SELECT [Table2]![Name] From [Table1]"
End Select
End Sub

Поторопился и не дописал. Теперь вроде все.
...
Рейтинг: 0 / 0
Помогите с комбо
    #32650074
Фотография xax_nv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Опять поторопился.
Код: plaintext
Case "B": Me!Combo3.RowSource = "SELECT [Table2]![Name] From [Table2]"

А вообще, если в таблице одно поле, то можно просто

Код: plaintext
Case "B": Me!Combo3.RowSource = "[Table2]"
...
Рейтинг: 0 / 0
Помогите с комбо
    #32650082
Alexey Sh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А чем не устраивает онлайн хелп на microsoft.com?
...
Рейтинг: 0 / 0
Помогите с комбо
    #32650085
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Помогите с комбо
    #32650143
Ukraina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shuhard http://www.msaccess.ru/Download.html

Спасибо за информацию-ссылку. Гениальная вещь!!!
...
Рейтинг: 0 / 0
Помогите с комбо
    #32652164
Art11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
С опозданием, но все таки: Спасибо Всем! на счет религии - христианин, да еще и православный, и не отвлекайтесь от темы. Спасибо еще раз.
...
Рейтинг: 0 / 0
26 сообщений из 26, показаны все 2 страниц
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите с комбо
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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