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

Private Sub AutumnCtrl_Change()

Autumn.Value = AutumnCtrl.Value

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

End Sub

Private Sub Backward_Click()

If Cursor - 1 >= 0 Then

Cursor = Cursor - 1

LoadObject (Cursor)

End If

End Sub

Private Sub Begin_Click()

Cursor = 0

LoadObject (Cursor)

End Sub

Private Sub Cancel_Click()

Me.Hide

End Sub

Private Sub Delete_Click()

If Cursor <> Count Then

ActiveWorkbook.Sheets("Storage").Rows(Cursor + 2).Delete Shift:=xlUp

If Cursor = Count - 1 Then Cursor = Cursor - 1

Count = Count - 1

LoadObject (Cursor)

End If

End Sub

Private Sub Forward_Click()

If Cursor + 1 <= Count Then

If Cursor + 1 = Count Then

NewItem_Click