Управление базами данных Access на VBA - eDrive

24
Screen.ActiveForm.Tag = имяЭтойФормы
End Function
Function ButtonCloseAndReturn ()
Dim имяПредыдущейФормы As String
If Screen.ActiveForm.Tag = "" Then
DoCmd.Close
Else
имяПредыдущейФормы = Screen.ActiveForm.Tag
DoCmd.Close
Forms (имяПредыдущейФормы).Visible = True
End If
End Function
Function КонецРаботыAccess ()
ответ = MsgBox ("Закончить работу", vbYesNoCancel + vbQuestion)
Select Case ответ
Case vbYes
DoCmd.Quit acPrompt
КонецРаботыAccess = True
Case vbNo
DoCmd.Close acForm, "Форма Таблицы1", acSaveYes
КонецРаботыAccess = False
Case vbCancel
КонецРаботыAccess = False
End Select
End Function
В следующей таблице приведены наиболее общие свойства объектов
Form и Report (обозначения: o — объект, i — целый, b — логический, s —
строковый, ro — только чтение):
Свойство Тип Описание
ActiveControl ro, o Активный элемент управления открытой формы
Count
ro, i Число открытых элементов семейства
CurrentRecord ro, i Номер текущей записи формы
Cycle i AllRecords, CurrentRecord или CurrentPage в форме
Dirty
ro, b Изменена ли текущая запись после сохранения
Form
ro, o Ссылка на форму
HasData ro, i В отчете есть данные (-1) или нет данных (0)
Me
ro, o Сама форма или отчет
MenuBar s Имя строки меню или стандартное меню («»)
Modal b Модальная ли форма
NewRecord ro, b Является ли текущая запись формы новой
OrderBy s Список полей, определящий порядок сортировки
Painting b Необходимо ли перерисовать форму