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

Завершение работы формы:

Private Sub UserForm_Terminate()

MainForm.Show (0)

End Sub

5.4 Форма “Формирование группы”

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

Private Sub bt_exit_Click()

CreateGroupForm.Hide

GroupForm.Show (0)

End Sub

Кнопка “Сформировать ”:

Private Sub bt_save_Click()

On Error GoTo erin:

If ed_date.Text = CDate(ed_date.Text) And ed_enddate.Text = CDate(ed_enddate.Text) And CDate(ed_enddate.Text) > CDate(ed_date.Text) And ListBox1.ListCount <> 0 Then

answ = MsgBox("Вы действительно хотите сформировать группу в таком составе? Она будет зафиксирована до конца обучения.", vbYesNo + vbQuestion, "Автошкола")

If (answ = 6) Then

Sheets("База").Activate

Sheets("База").Cells(1, 1).Select

all = Selection.CurrentRegion.Rows.Count

s = ListBox1.ListCount

For i = 2 To all

For k = 0 To s - 1

If Sheets("База").Cells(i, 29) = "Ожидает" And (Sheets("База").Cells(i, 2) & " " & Sheets("База").Cells(i, 3) & " " & Sheets("База").Cells(i, 4)) = ListBox1.List(k) Then

Sheets("База").Cells(i, 29) = "Обучаемый"

End If

Next k

Next i

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

Sheets("Данные").Range("I2") = ed_date

Sheets("Данные").Range("J2") = ed_enddate