защита БД Microsoft Access с привязкой к реквизитам пользователя

защита БД Microsoft Access с привязкой к реквизитам пользователя защита БД и создание демонстрационной версии    • защита базы Access и создание демонст...   программы на Microsoft Access
пример кода (событие клик на кнопку): Private Sub Кнопка38_Click() If DCount("[Код]", "[рек]", "[наи-ние организации] = 'Государственное бюджетное учреждение «Пример»'") = 1 And DCount("[Код]", "[рек]") = 1 Then DoCmd.OpenReport "табель3", acViewPreview, "", "", acNormal End End If MsgBox ("Наименование организации, обладающая правом на использование программы было изменено, дальнейшая работа будет не возможна!") End Sub проверка: в таблице "рек" должна быть одна запись и у этой одной записи в поле "наи-ние организации" должно быть нужное значение (нужное наименование) если "истина" то ( например открывается отчет) если "ложь" то "конец" и сообщение на экран в видео не было части кода: And DCount("[Код]", "[рек]") = 1 поле "код" (тип счетчик в таблице "рек")