7. Кнопки для перегляду записів бд

Програмний код уведений у вигляді окремих процедур.

Кнопка "Наступний запис"

Private Sub nasup_Click()

“Умова існування наступного запису”

If ActiveCell.Offset(1, 0).Value <> "" Then

“Перехід на наступний запис”

ActiveCell.Offset(l, 0).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

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

persh.Enabled = True

popered.Enabled = True

Else

nastup.Enabled = False

ostan.Enabled = False

MsgBox "Останній запис"

End If

End Sub

Кнопка "Останній запис"

Private Sub ostan_Click()

“Перехід на останній запис”

Do While ActiveCell.Offset(1, 0).Value <> ""

ActiveCell.Offset(1, 0).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

Loop

End Sub

Кнопка "Перший запис"

Private Sub persh_Click()

“Адреса першого запису”

Range("L4").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

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

persh.Enabled = False

End Sub

Кнопка "Попередній запис"

Private Sub popered_Click()

“Умова існування попереднього запису”

If ActiveCell.row > 4 Then

'Перехід на попередній запис

ActiveCell.Offset(-l, 0).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 = True

“Виведення повідомлення”

Else

MsgBox ("Перший запис")

nastup.SetFocus

popered.Enabled = False

End If

End Sub

8. Кнопки для редагування записів бд

Спочатку записуємо програмний код у загальній області, потім створюємо процедури для списків, полів і кнопок.

“Загальна область”

“Змінні”

“Оголошення змінних різних типів”

Dim zf As String

Dim i As Integer

Dim a3 As String

Dim a4 As String

Dim w As Double

Dim kf As Double

Dim tf As Double

Dim a1 As Integer

Dim a2 As Integer

Dim n As String

Dim a5 As String

Dim ff As Double