Курсовая работа: Документация базы данных "Список владельцев гаражного кооператива"

Dim d As Integer

Dim b As Integer

Private Sub Command1_Click(){Процедурадлякнопки «Выход»}

End

End Sub

Private Sub Command2_Click(){Процедурадлякнопки «Добавить»]

d = MsgBox("Добавить запись?", 1, " Сообщение")

If d = 1 Then

Data1.Recordset.AddNew

Else

Exit Sub

End If

End Sub

PrivateSubCommand3_Click(){Процедура для кнопки «Удалить»]

b = MsgBox("Вы действительно хотите удалить запись?", 1, " Сообщение")

If b = 1 Then

Data1.Recordset.Delete

Data1.Recordset.MoveNext

Else

Exit Sub

End If

End Sub

Private Sub Command4_Click() {Переходнавторуюформу}

Form2.Show

Form1.Hide

End Su

Private Sub Data1_Reposition() {Процедурадляподсчетазаписей}

Data1.Caption = Data1.Recordset.AbsolutePosition

Data1.Caption = "Запись " & (Data1.Recordset.AbsolutePosition + 1) & " из " & Data1.Recordset.RecordCount