Предполагая, что ваш DLookup нашел существующее значение LoginID, вы можете использовать другое для получения LevelID этого пользователя.Затем включите / отключите административную командную кнопку на основании их LevelID.
Я предложу что-то подобное в форме загрузки:
Dim lngLevelID As Long
lngLevelID = DLookup("[LevelID]", "tblUsers", "[LoginID] = " & Me.txtLoginID)
Me.cmdAdmin.Enabled = (lngLevelID = 3)
Примечания. Это предполагает, что вы ранее загрузили пользователяНомер логина в текстовое поле с именем txtLoginID.txtLoginID может быть скрыт, если вы не хотите, чтобы пользователи видели его.Или вы можете получить значение LoginID другим способом.
Если у вас есть однозначное совпадение между Level и LevelID, вам не нужно хранить оба значения в tblUsers.Вы можете создать таблицу поиска UserLevels для хранения обоих и сохранить только LevelID в tblUsers в качестве внешнего ключа для соответствующей строки в UserLevels.
Наконец, используемая стратегия может работать, но безопасностьшаткий.В качестве «руководства» для пользователей, желающих следовать правилам, все нормально.Но это может быть легко обойдено даже неискушенными пользователями.Ищите другой подход, если ваши требования безопасности строгие.