Работа с ComboBox(ами)

[DAN1L]

Здравствуйте, делаю базу данных "продажа жд билетов", ни как не могу понять как сделать одну штучку. Придумал дурак мудрено, теперь мучаюсь.
Необходимо что бы при добавлении пассажира, учитывались ComboBox4 и ComboBox5, последовательно, т.е. пока не будет выбран из ComboBox4- "Название маршрута" - маршрут, выбрать ComboBox5-"тип вагона" не должно быть доступно.
[IMG][/IMG]
Значения для "Название маршрута" берутся с таблицы "Расписание_поездов"

Так вот, как сделать чтобы в TextBox3 - Цена, вносились значения по условиям двух ComboBox(ов) из таблицы "Расписание поездов"

[IMG][/IMG]

Вот сама база данных.

[eikhner]

при открытии юсер формы сделаите ненужный вам комбобокс5 визибл фальсе , после выбора значения в комбоксе4 комбобокс5 визибл труе
либо с переменными
пока комбобокс4 не выбрано значение комбобокс 5 визибл фальсе
выбрали значение в комбобоксе4 - комбобокс5 визибл труе

так можно все комбобоксы друг за другом открывать в нужной вам последвательности

[DAN1L]

Сообщение от eikhner

при открытии юсер формы сделаите ненужный вам комбобокс5 визибл фальсе , после выбора значения в комбоксе4 комбобокс5 визибл труе
либо с переменными
пока комбобокс4 не выбрано значение комбобокс 5 визибл фальсе
выбрали значение в комбобоксе4 - комбобокс5 визибл труе

так можно все комбобоксы друг за другом открывать в нужной вам последвательности

Спасибо, а как указать на выбор данных из строки с соответствующими столбцами? т.е что бы цена выводилась по результатам 2х комбобоксов?

[eikhner]

самый простои вариант для этого - номер строки на листе - номер строки выбранного маршрута , и номер столбца - номер столбца выбранного типа вагона

TextBox3.Text = Лист1.Cells(номер строки выбранного в комбобоксе4 маршрута , номер столбца выбранного в комбобоксе5 типа вагона )

[DAN1L]

Сообщение от eikhner

самый простои вариант для этого - номер строки на листе - номер строки выбранного маршрута , и номер столбца - номер столбца выбранного типа вагона

TextBox3.Text = Лист1.Cells(номер строки выбранного в комбобоксе4 маршрута , номер столбца выбранного в комбобоксе5 типа вагона )

Извините за глупость мою) но я не пойму как определить номер строки выбранного в комбобоксе4 маршрута? Для комбобокса 5 я написал:

If ComboBox5 = "Плацкарт" Then
TextBox3 = Cells(????, 8)
ElseIf ComboBox5 = "Купе" Then
TextBox3 = Cells(????, 10)
ElseIf ComboBox5 = "СВ" Then
TextBox3 = Cells(????, 12)
Else
TextBox3 = Cells(????, 14)
End If

текстбокс3 выдает цену правильно, но только первой строки по этому коду:

i = 4
If ComboBox5 = "Плацкарт" Then
TextBox3 = Cells(i + 1, 8)
ElseIf ComboBox5 = "Купе" Then
TextBox3 = Cells(i + 1, 10)
ElseIf ComboBox5 = "СВ" Then
TextBox3 = Cells(i + 1, 12)
Else
TextBox3 = Cells(i + 1, 14)
End If
i = i + 1

Как и где задать условие для выбора строки в первом коде по названию строки в комбобоксе4?

[eikhner]

DAN1L , перерыл все своиства комбобокса4 так и не нашел где отображается выбранная в нем строка , тут надо уже спрашивать у гуру .....

[DAN1L]

Сообщение от eikhner

DAN1L , перерыл все своиства комбобокса4 так и не нашел где отображается выбранная в нем строка , тут надо уже спрашивать у гуру .....

Ну ладно спрошу у преподавателя( спасибо вам

[doober]

Меня насторожили два момента.
Первый

   Dim i As String
    i = 5

Второй: название кнопки Конец.

Как вы яхту назовёте, так она и поплывёт

Реализовал выбор цены.

[eikhner]

Сергей , расшифруй плиз

TextBox3.Text = ComboBox4.List(ComboBox4.ListIndex, ComboBox5.ListIndex + 1)

[doober]

Добавь эту строку и увидишь как хранятся данные в ComboBox4

Private Sub UserForm_Activate()
    
    ComboBox4.ColumnCount = 5