макрос на открытие базы

[ruavia3]

Как сделать, чтобы при открытии базы оператором из определенной группы появлялась одна форма, а при открытии оператором из другой группы - то другая форма.

[b00s]

насколько я знаю так не получится сделать.

[ECrazy]

все не так страшно.
1. настраиваем многопользовательский доступ в аксесс. для начала - просто присвоим пароль пользователю Admin. Заводим дополнительных пользователей+их пароли.
2. для автозапуска можно использовать, например, макрос autoexec. в нем решаем, соответствует ли ИМЯ (логин) пользователя или его группа определенным критериям и запускаем нужныую форму.
самое интересное)
как получить имя пользователя:

Public Function ReadUserName() As String
'объявили переменные
Dim Dbs As Database, Doc As Document
'это - текущая бд 
Set Dbs = CurrentDb
Set Doc = Dbs.Containers("Databases")!UserDefined
 
ReadUserName = Doc.UserName
End Function

[ECrazy]

если есть желание узнать группу пользователя, вот вариант:

Public Function IsUserAdmin(AName As String) As Boolean
Dim Wsp As Workspace, Usr As User, Grp As Group

  Set Wsp = DBEngine.Workspaces(0)
  
  IsUserAdmin = False
  
  For Each Usr In Wsp.Users
    
   If (Usr.Name = AName) Then     'поиск пользователя
     For Each Grp In Usr.Groups 'поиск по группе
       'успешный поиск
       If (Grp.Name = "Admins") Then IsUserAdmin = True: GoTo IsUserAdminExit
     Next Grp
   End If
    
  Next Usr
IsUserAdminExit:
  Exit Function  
End Function

строка:

Set Wsp = DBEngine.Workspaces(0)

аналогично присвоению переменной значения функции CurrentDB().
вместо группы Admins можно проверять любую или переписать функцию так, чтобы она тупо возвращала Название группы пользователя.
в Аксессе все просто!