Дипломная работа: Автошкола "Кадиллак"

Else

erin:

x = MsgBox("Проверьте правильность введеных значений", vbCritical + vbOKOnly, "Автошкола")

End If

End Sub

Кнопка “Закрыть ”:

Private Sub bt_exit_Click()

AddClientForm.Hide

ClientForm.Show (0)

End Sub

Список “Автомобиль ”:

Private Sub cb_car_Change()

Sheets("Данные").Activate

cb_teacher.Clear

For i = 2 To 10

If Sheets("Данные").Cells(i, 4) = cb_car.Value Then cb_teacher.AddItem Sheets("Данные").Cells(i, 3)

Next i

cb_teacher.ListIndex = 0

End Sub

Поле “Дом ”:

Private Sub ed_home_Change()

ed_home.Text = Val(ed_home.Text)

End Sub

Поле “Сотовый ”:

Private Sub ed_mobile_Change()

ed_mobile.Text = Val(ed_mobile.Text)

End Sub

Поле “Номер ”:

Private Sub ed_num_Change()