Форма авторизации

[Santosh]

Здравствуйте! Прошу помощи со своим проектом.
Access 2010.
1.Нужно сделать форму авторизации в базе типа Логин - пароль.
Логин - фамилия менеджера из таблицы со списком пользователей.


2. Нужно чтобы при создании новой записи в таблице фамилия залогинившегося менеджера по умолчанию подставлялась в одном из столбцов:
Пример
Код Дата Организация Что_сделано Менеджер


Спасибо.

[gluk_fm]

Добрый день.
Ели я правильно понял суть вопроса то сделайте 2 глобальных переменные и вставляйте их куда Вам удобно.

[Emmelman]

да,сделайте две переменные - MyLog и MyPass, например, присвойте им значения MyLog=Dima, MyPass=12345 и проверяйте с помощью " if " правильность ввода данных в поля,если введено правильно - далее
открывается форма

упс,то, что описал выше - это самое простое и для одного пользователя. Ежели у вас таблица с логином и паролем,то нужно открывать RecordSet и, используя метод Find сравнивать значения того,что будет введено в текстовое поле с значением из таблицы,если совпадение есть - то пускает дальше

[Emmelman]

Сообщение от Santosh

2. Нужно чтобы при создании новой записи в таблице фамилия залогинившегося менеджера по умолчанию подставлялась в одном из столбцов:
Пример
Код Дата Организация Что_сделано Менеджер

для этого также нужно использовать код, который будет знать какой именно менеджер сейчас активен,для этого в таблице с логинами и паролями нужно добавить поле с именем,допустим, Use с типом данных Yes/no
и вставить такую функцию

Public Function Active_Close() As Boolean
    Active_Close = False
    Dim My_Open As AccessObject
    For Each My_Open In Application.CurrentProject.AllForms
        If My_Open.IsLoaded = True Then
            If Not (My_Open.Name = "ваша форма,на которой будет устанавливаться активный юзер, я так понимаю - это самая первая ваша будет,где вводится логин и пароль") Then
                DoCmd.Close acForm, My_Open.Name, acSaveNo
            End If
        End If
    Next My_Open
    For Each My_Open In Application.CurrentProject.AllReports
        If My_Open.IsLoaded = True Then
            DoCmd.Close acReport, My_Open.Name, acSaveNo
        End If
    Next My_Open
    Active_Close = True
End Function

чтобы использовать функцию - вставьте следующий код на кнопку,при нажатии которой будет проверяться логин и пароль, не забудьте, все делается внутри RecordSet'a

Private Sub Command0_Click()
Dim MyL As ADODB.Recordset
    Set MyL = New ADODB.Recordset
    Dim MySQL As String
    MyL.Open "empl_undercontrol", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With MyL
        .MoveLast
        .MoveFirst
        Dim I As Integer
        I = 0
        For I = 1 To .RecordCount
            .Find ("[Use]=True")
            If Not .EOF() Then
                MyL("Use").Value = False
                .MoveNext
            End If
        Next I
        .MoveLast
        .MoveFirst
       .Find ("[ПОЛЕ С ЛОГИНОМ] = '" & MyJ  & "'")' MyJ - переменная куда заносится логин
        If .EOF Then
            .AddNew
        End If
        ![ПОЛЕ С ЛОГИНОМ] = MyJ
        MyL("Use") = True
        .Update
       MyS = Trim$(DLookup("[ПОЛЕ С ЛОГИНОМ]", "ТАБЛИЦА С ЛОГИНОМ И ПАРОЛЕМ", "[Use]=True")) ' тут введенному логину присвоится значение True в базе, он станет активным,остальные нет, MyS - переменная,где хранится АКТИВНЫЙ логин
End With
MyL.Close
Set MyL = Nothing
end sub

для вызова активного логина используйте такую строчку кода

.Find ("[Use]=True")
MyS = Trim$(MyL![ПОЛЕ С ЛОГИНОМ]) ' MyL имя рекордсета