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

Sheets("База").Cells(all + 1, 2) = AddClientForm.ed_surname.Text

Sheets("База").Cells(all + 1, 3) = AddClientForm.ed_name.Text

Sheets("База").Cells(all + 1, 4) = AddClientForm.ed_patron.Text

Sheets("База").Cells(all + 1, 5) = CDate(AddClientForm.ed_birth.Text)

Sheets("База").Cells(all + 1, 6) = AddClientForm.ed_who.Text

Sheets("База").Cells(all + 1, 7) = CDate(AddClientForm.ed_date.Text)

Sheets("База").Cells(all + 1, 8) = AddClientForm.ed_ser.Text

Sheets("База").Cells(all + 1, 9) = AddClientForm.ed_num.Text

Sheets("База").Cells(all + 1, 10) = AddClientForm.ed_str.Text

Sheets("База").Cells(all + 1, 11) = AddClientForm.ed_home.Text

Sheets("База").Cells(all + 1, 12) = AddClientForm.ed_room.Text

Sheets("База").Cells(all + 1, 13) = AddClientForm.ed_phone.Text

Sheets("База").Cells(all + 1, 14) = AddClientForm.ed_mobile.Text

Sheets("База").Cells(all + 1, 15) = "Нет"

Sheets("База").Cells(all + 1, 16) = "Нет"

Sheets("База").Cells(all + 1, 17) = "Нет"

Sheets("База").Cells(all + 1, 18) = AddClientForm.cb_car.Value

Sheets("База").Cells(all + 1, 19) = AddClientForm.cb_teacher.Value

Sheets("База").Cells(all + 1, 20) = 0

Sheets("База").Cells(all + 1, 21) = 0

Sheets("База").Cells(all + 1, 23) = "Нет"

Sheets("База").Cells(all + 1, 24) = "Нет"

Sheets("База").Cells(all + 1, 25) = "Нет"

Sheets("База").Cells(all + 1, 26) = "Нет"

Sheets("База").Cells(all + 1, 27) = "Нет"

Sheets("База").Cells(all + 1, 28) = "Нет"

Sheets("База").Cells(all + 1, 29) = "Ожидает"

x = MsgBox("Клиент успешно занесен в базу данных", vbInformation + vbOKOnly, "Автошкола")

AddClientForm.Hide