Создание Групп пользователей в Microsoft Access

[Александр Пасюков]

Требуется создать 3 группы пользователей через форму. при вводе определенной комбинации (логин+пароль) должна открываться нужная форма, если комбинация не верна то выдается ошибка.

Подскажите пожалуйста как можно это сделать!! Спасибо

[foxter1989]

Видел в Борее вот такой вот макрос:

Option Compare Database
Option Explicit

Public Enum PrivilegeEnum
    Administrator_Privilege = 1
    PurchaseApprovals_Privilege = 2
End Enum

Private Function EmployeeHas(EmployeeID As Long, PrivilegeID As PrivilegeEnum) As Boolean
    EmployeeHas = DCountWrapper("*", "Роли сотрудников", "[ИД сотрудника]=" & EmployeeID & " AND [ИД роли]=" & PrivilegeID) > 0
End Function

Public Function CanApprovePurchases() As Boolean
    
    CanApprovePurchases = EmployeeHas(GetCurrentUserID(), PurchaseApprovals_Privilege)

End Function

Public Function IsAdministrator() As Boolean

    IsAdministrator = EmployeeHas(GetCurrentUserID(), Administrator_Privilege)
    
End Function

Public Function GetCurrentUserID() As Long
    GetCurrentUserID = Nz(TempVars![ИД_текущего_пользователя], 0)
End Function

Думаю если подмодифицировать и задать соответствующие таблицы, то должно подойти