FormRefresh

RstSpisok.MoveFirst

End Sub

FormRefresh

RstSpisok.MoveFirst

End Sub

FormRefresh

If rstSpisok.BOF Then rstSpisok.MoveNext

RstSpisok.MovePrevious

End Sub

FormRefresh

If rstSpisok.EOF Then rstSpisok.MovePrevious

RstSpisok.MoveNext

End Sub

FormRefresh

RstSpisok.MoveLast

End Sub

FormRefresh

RstSpisok.MoveFirst

End Sub

End If

Exit Sub

If rstSpisok.EOF Or rstSpisok.BOF Then

End Sub

Public rstSpisok As Recordset

Public dbsData As Database

Private Sub Form_Load()

Set dbsData = OpenDatabase("dbLaba.mdb")

Set rstSpisok = dbsData.OpenRecordset("Spisok", dbOpenDynaset)

В инструкции OpenDatabase может потребоваться указать полный путь к открываемой БД, по умолчанию указанный файл открывается из текущей директории. В инструкции OpenRecordset указано имя открываемой таблицы, здесь можно разместить и SQL-запрос. Результатом выполнения данной инструкции, в любом случае, будет являться формирование некоторого набора записей в памяти компьютера и установление связи с ним через переменную rstSpisok.

Для отображения данных на форме создадим процедуру пользователя, которую будем вызывать каждый раз, когда необходимо будет обновить содержание полей формы.

Public Sub FormRefresh()

txtFam.Text = ""

txtName.Text = ""

txtOtch.Text = ""

txtGrup.Text = ""

txtFam.Text = rstSpisok.Fields("Familie").Value

txtName.Text = rstSpisok.Fields("Imja").Value

txtOtch.Text = rstSpisok.Fields("Otch").Value

txtGrup.Text = rstSpisok.Fields("Grup").Value

Теперь запрограммируем работу навигатора. Создайте следующий программный код.

Private Sub cmbFirst_Click()

Private Sub cmbLast_Click()

Private Sub cmbNext_Click()

Private Sub cmbPrew_Click()

Кнопки будут отвечать за переход по записям таблицы. Чтобы при запуске формы отображалась первая по порядку запись, введите программный код.

Private Sub Form_Activate()

Сохраните проект. Запустите приложение и проверьте работу навигатора.

Теперь запрограммируем работу с записями таблицы. Реализуем на примере данной лабораторной работы функции защиты приложения от неправильных действий пользователя. Как правило, для этого приложение программируют так, чтобы пользователь в каждый конкретный момент работы программы мог нажимать кнопки и редактировать данные только доступные в данный момент. Измените предыдущую процедуру и добавьте новые.

Private Sub Form_Activate()

fl = False

cmbAdd.Enabled = True

cmbEdit.Enabled = True

cmbDel.Enabled = True

cmbSave.Enabled = False

cmbCancel.Enabled = False

txtFam.Locked = True

txtName.Locked = True

txtOtch.Locked = True

txtGrup.Locked = True

Дата добавления: 2014-12-27