Access 2007 - получить логин пользователя VB и запись для последней измененной формы

Question

Я создал одну из баз данных Microsoft Access 2007. который создан двумя формами. 1. Форма работника. Название таблицы "сотрудник TBL": ID, IC NO, Имя, Отделение офиса. 2. Ложная форма. : Имя таблицы «Пользователь tble»: UID, Имя пользователя, Пароль, Включить, Полное имя.

Как обычно, когда я вхожу в систему, используя имя пользователя (используя поле со списком) и пароль (используя текстовое поле), форма входа работает правильно, так как я использую VB, как показано ниже: -

Private Sub cbo_User_AfterUpdate()
 Me.txt_Password = Empty
    Me.txt_Password.Enabled = True
    Me.txt_Password.SetFocus
End Sub

Private Sub cmd_OK_Click()
'test the stored password is = to the manually entered password
    If Me.cbo_User.Column(2) = Me.txt_Password Then
        DoCmd.OpenForm "fm_employee", acNormal
        DoCmd.Close acForm, "frm_Login"
        DoCmd.Close acForm, "fm_switchboard"
    Else 'wrong match
        MsgBox "Wrong password entered." & _
            vbCrLf & "Please re-enter password.", _
            vbExclamation, "Invalid Password"
        Me.txt_Password.SetFocus 'places the cursor in password control
    End If
    'If User Enters incorrect password 3 times database will shutdown

    intLogonAttempts = intLogonAttempts + 1
    If intLogonAttempts > 3 Then
      MsgBox "You do not have access to this database.Please contact admin.", _
               vbCritical, "Restricted Access!"
        Application.Quit
    End If
End Sub

Теперь мне нужна помощь. Как получить полное имя или имя пользователя из формы входа в систему и сделать запись в поле, когда после ИЗМЕНЕНИЯ клиента клиента СОХРАНИТЬ и сохранить каждую запись из формы сотрудника.

Примечание: логин пользователя более 1

Answer 1

Если я правильно понимаю, вы хотите записать, кто вносит изменения в запись, основываясь на том, кто вошел в базу данных. В этом случае скрывайте, а не закрывайте frmLogin. Вы можете сделать это с Me.Visible = false. Затем вы можете создать процедуру события для события BeforeUpdate в форме fm_employee. В этой процедуре события установите поле для тех, кто изменил запись, равным Forms! FrmLogin! Cbo_User.