Private Sub Кнопка0_Click()

DoCmd.OpenForm "Товары" ‘Открываем форму «Товары»

DoCmd.Close acForm, "Форма2" ‘Закрываем первую форму

End Sub

После нажатия кнопки с подписью “Открыть форму “ на экране появится форма «Товары», а форма2 будет закрыта.

Пример:

Закрыть все открытые формы:

Private Sub Кнопка0_Click()

Dim frm As Form

Set frm = Forms!Форма6

DoCmd.OpenForm "Форма1"

DoCmd.OpenForm "Форма2"

DoCmd.OpenForm "Редактор"

For Each frm In Forms

DoCmd.Close acForm, frm.name, acSaveYes

Next

End Sub

Глава 17. Объект Recordset

Объект Recordset нужен всегда, когда необходим доступ к записям таблицы.

Свойства объекта Recordset

RecordCount - возвращает число записей в объекте Recordset типа Table или число обработанных записей в объекте Recordset типа Dynaset

Snapshot.

Bookmark - сохраняет текущую позицию указателя в объекте Recordset.

DateCreated - возвращает дату и время создания набора данных.

Index - устанавливает или возвращает имя существующего объекта Index, являющегося текущим индексом для объекта Recordset типа Table.

Type - возвращает тип объекта Recordset.

Updatable - указывает, можно ли вносить изменения в объект Recordset.

PercentPosition – указывает приблизительно положение указателя текущей записи в процентах от начала набора данных

Name – возвращает имя объекта.

Sort - выполняет сортировку по возрастанию или убыванию.

NoMatch – определяет была ли найдена запись в ходе выполнения метода Find или Seek. Если да – то возвращает False.

Fields - возвращает одноимённую коллекцию, представляющую поля текущей записи набора.

AbsolutePosition - устанавливает указатель текущей записи, нумерация начинается с нуля.