Модуль входа в Access - PullRequest
Новая
       10

Модуль входа в Access

1 голос
/ 23 мая 2011

Я участвую в модуле входа в систему для моей программы Access.Но я не знаю много об этом.

Пользователи используют логин на своих компьютерах с логинами Windows, а в базе данных у меня есть таблица с описанием каждого логина и их ролей (работник, менеджер и т. Д.).

Что я хочу сделать, так это то, что когда моя программа запускается, она может автоматически определять вход в Windows и, согласно таблице, решает скрыть некоторые формы или отчеты.

Есть предложения?Спасибо ..

1 Ответ

4 голосов
/ 23 мая 2011

Попробуй это.Введите это вне процедуры: 

Private Declare Function GetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

И введите эту процедуру: 

Function GetUser() As String
    Dim cn As String, Userstr As String
    cn = String(1024, 0)
    If GetUserName(cn, 1024) <> 0 Then GetUser = Replace(cn, Chr(0), "")
End Function

Тогда GetUser () должен дать вам имя для входа в Windows.Я использую это в нескольких интерфейсах Access 2003, работающих на компьютерах с XP, и у меня не было проблем с этим.

(Примечание: я действительно получил этот код из Stack Overflow давным-давно, но понятия не имеюкто дал это мне, так что я не могу дать должный кредит)

...