Загрузка данных

Public Function SetPermissions()
' Здесь будет код, который запускается при открытии главной формы
If TempVars!CurrentRole = "Администратор" Then
' Показываем все кнопки администрирования
Forms!frm_MainMenu.btn_Admin.Visible = True
ElseIf TempVars!CurrentRole = "Менеджер" Then
' Скрываем админские кнопки
Forms!frm_MainMenu.btn_Admin.Visible = False
' Применяем фильтр: показывать только свои заказы
DoCmd.ApplyFilter , "[КодМенеджера] = " & TempVars!CurrentMgrID
End If
End Func