Кнопка "Доповнити"

Private Sub dopovnyty_Click()

“Змінна вибору режиму”

i = 1

“Змінні для полів БД”

a1 = nastup.Enabled

a2 = popered.Enabled

“Поля”

nomerpp.Text = ""

datazam.Text = ""

prizv.Text = ""

nazvmist.Text = ""

kld.Text = ""

sezon.Text = ""

klp.Text = ""

vidput.Text = ""

vart.Text = ""

ostvart.Text = ""

zina1d.Text = ""

zinapr.Text = ""

coef.Text = ""

“Доступ до полів для доповнення”

nomerpp.Locked = False

datazam.Locked = False

prizv.Locked = False

nazvmist.Locked = False

kld.Locked = False

sezon.Locked = False

klp.Locked = False

vidput.Locked = False

vart.Locked = False

ostvart.Locked = False

“Активність кнопок ”

persh.Enabled = True

popered.Enabled = True

nastup.Enabled = True

ostan.Enabled = True

vidminyty.Enabled = True

vidal.Enabled = True

zminmov.Enabled = True

sort.Enabled = True

vihid.Enabled = True

dopovnyty.Enabled = True

zberegty.Enabled = True

redag.Enabled = True

End Sub

Кнопка "Редагувати"

Private Sub redag_Click()

“Змінна вибору режиму”

i = 2

“Змінні для полів БД”

a1 = nastup.Enabled

a2 = popered.Enabled

“Доступ до полів для редагування ”

nomerpp.Locked = False

datazam.Locked = False

prizv.Locked = False

nazvmist.Locked = False

kld.Locked = False

sezon.Locked = False

klp.Locked = False

vidput.Locked = False

vart.Locked = False

ostvart.Locked = False

“Активність кнопок ”

persh.Enabled = True

popered.Enabled = True

nastup.Enabled = True

ostan.Enabled = True

vidminyty.Enabled = True

vidal.Enabled = True

zminmov.Enabled = True

sort.Enabled = True

vihid.Enabled = True

dopovnyty.Enabled = True

zberegty.Enabled = True

redag.Enabled = False

End Sub

Кнопка "Зберегти"

Private Sub zberegty_Click()

“Доповнення”

If i = 1 Then

“Виділення запису”

Range("L4:Z4").Select

“Копіювання запису”

Selection.Copy

“Цикл з умовою”

Do While ActiveCell.Value <> ""

ActiveCell.Offset(1, 0).Select

Loop

“Вставка нового запису БД”

ActiveSheetPaste

“Поля”

ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1

ActiveCell.Offset(0, 2).Value = prizv.Text

ActiveCell.Offset(0, 3).Value = nazvmist.Text

ActiveCell.Offset(0, 4).Value = kld.Text

ActiveCell.Offset(0, 5).Value = sezon.Text

ActiveCell.Offset(0, 6).Value = klp.Text

ActiveCell.Offset(0, 7).Value = vidput.Text

ActiveCell.Offset(0, 8).Value = vart.Text

ActiveCell.Offset(0, 9).Value = ostvart.Text

a4 = ActiveCell.Address

w = 0

Range("X4").Select

Do While ActiveCell.Value <> ""

w = w + ActiveCell.Value

ActiveCell.Offset(1, 0).Select

Loop

Range(a4).Select

nomerpp.Text = ActiveCell.Value

datazam.Text = ActiveCell.Offset(0, 1).Value

prizv.Text = ActiveCell.Offset(0, 2).Value

nazvmist.Text = ActiveCell.Offset(0, 3).Value

kld.Text = ActiveCell.Offset(0, 4).Value

sezon.Text = ActiveCell.Offset(0, 5).Value

klp.Text = ActiveCell.Offset(0, 6).Value

vidput.Text = ActiveCell.Offset(0, 7).Value

vart.Text = ActiveCell.Offset(0, 8).Value

ostvart.Text = ActiveCell.Offset(0, 9).Value

nastup.Enabled = False

popered.Enabled = True

End If

“Редагування “

If i = 2 Then

“Поля”

ActiveCell.Offset(0, 2).Value = prizv.Text

ActiveCell.Offset(0, 3).Value = nazvmist.Text

ActiveCell.Offset(0, 4).Value = kld.Text

ActiveCell.Offset(0, 5).Value = sezon.Text

ActiveCell.Offset(0, 6).Value = klp.Text

ActiveCell.Offset(0, 7).Value = vidput.Text

ActiveCell.Offset(0, 8).Value = vart.Text

ActiveCell.Offset(0, 9).Value = ostvart.Text

a4 = ActiveCell.Address

w = 0

Range("X4").Select

Do While ActiveCell.Value <> ""

w = w + ActiveCell.Value

ActiveCell.Offset(1, 0).Select

Loop

Range(a4).Select

nomerpp.Text = ActiveCell.Value

datazam.Text = ActiveCell.Offset(0, 1).Value

prizv.Text = ActiveCell.Offset(0, 2).Value

nazvmist.Text = ActiveCell.Offset(0, 3).Value

kld.Text = ActiveCell.Offset(0, 4).Value

sezon.Text = ActiveCell.Offset(0, 5).Value

klp.Text = ActiveCell.Offset(0, 6).Value

vidput.Text = ActiveCell.Offset(0, 7).Value

vart.Text = ActiveCell.Offset(0, 8).Value

ostvart.Text = ActiveCell.Offset(0, 9).Value

nastup.Enabled = a1

popered.Enabled = a2

End If

prizv.Locked = True

kld.Locked = True

nazvmist.Locked = True

sezon.Locked = True

nomerpp.Locked = True

datazam.Locked = True

dopovnyty.Enabled = True

redag.Enabled = True

vihid.Enabled = True

dopovnyty.SetFocus

zberegty.Enabled = False

vidminyty.Enabled = False

End Sub