Курсовая работа: Успеваемость студентов

End If

Cursor = Cursor + 1

LoadObject (Cursor)

End If

End Sub

Private Sub NewItem_Click()

Cursor = Count

ClearObject

ItemCount.Caption = "Новый элемент"

End Sub

Private Sub Objects_Change()

Autumn.Value = ObjectList(Objects.ListIndex, 0)

Spring.Value = ObjectList(Objects.ListIndex, 1)

AutumnCtrl.Value = Autumn.Value

SpringCtrl.Value = Spring.Value

End Sub

Private Sub SpringCtrl_Change()

Spring.Value = SpringCtrl.Value

ObjectList(Objects.ListIndex, 1) = Spring.Value

End Sub

Private Sub Update_Click()

With ActiveWorkbook.Sheets("Storage")

If (Len(Group.Value) = 0) Then

MsgBox "Необходимо ввести номер группы!"

Exit Sub

End If

If (Len(Last.Value) = 0) Then

MsgBox "Необходимо ввести фамилию студента!"

Exit Sub