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

защита БД Microsoft Access с привязкой к реквизитам пользователя
защита БД и создание демонстрационной версии
• защита базы Access и с...
программы на Microsoft Access
access-program.ru/
пример кода (событие клик на кнопку):
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
поле "код" (тип счетчик в таблице "рек")