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

End If

Next i

End Sub

Активация формы :

Private Sub UserForm_Activate()

ed_date.Text = Date

ed_enddate.Text = Date + 90

cb_teacher.ListIndex = 0

ListBox1.Clear

ListBox2.Clear

Sheets("База").Activate

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

all = Selection.CurrentRegion.Rows.Count

For i = 2 To all

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

Nexti

EndSub

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

Private Sub UserForm_Terminate()

GroupForm.Show (0)

End Sub

5.5 Форма “Клиенты”

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

Private Sub bt_exitclient_Click()

ClientForm.Hide

MainForm.Show (0)

End Sub

Кнопка “Внести оплату ”:

Private Sub bt_makeblank_Click()

ClientForm.Hide