[Доступ] как я могу вставить глобальную переменную в поле?

---

Здравствуйте, прежде всего я объясню, что у меня в руках.
Две маски, в маска а есть "пользователь" поле и другие поля (что меня интересует, так это "пользователь"). Находясь в Маска Б это был бы тот самый авторизоваться, с именем пользователя и паролем.

Когда я вхожу в Пользователь в Маска А, Я автоматически открываю форму входа в систему, с помощью которой я определяю, кто получает доступ. Таким образом, я хотел бы взять (когда учетные данные введены правильно) имя пользователя человека, который входит в систему, и поместить его с "Пользователь" в Маска А.

Я создал глобальную переменную "Имя пользователя 1".
Это код, который я тестировал, и сообщение, которое я использовал, чтобы понять, работает. Но я не могу использовать его, положив его в коробку, которую я хотел бы.

Private Sub Employee_AfterUpdate()

DoCmd.OpenForm FormName:="login", WindowMode:=acDialog
MsgBox username1

End Sub

Это глобальная переменная.

Option Compare Database
Option Explicit

Public username1 As String

Надеюсь, я все объяснил. Спасибо




Код входа в систему

Private Sub Command0_Click()
DoCmd.CloseDatabase
End Sub

Private Sub Command1_Click()

    If IsNull(Me.tb_ID) Or IsNull(Me.tb_pwd) Then
      MsgBox "You must enter password or login ID.", vbOKOnly + vbInformation, "Required Data"
      Me.tb_ID.SetFocus
        Exit Sub
    End If
    
    If Me.tb_pwd.Value = DLookup("[psw]", "Utenti", "[User]='" & Me.tb_ID.Value & "'") Then
      username1 = Me.tb_ID.Value
      DoCmd.Close acForm, "login", acSaveNo
      DoCmd.OpenForm "Work Hours List"
    Else
      MsgBox "Password or login ID incorrect. Please Try Again", vbOKOnly + vbExclamation, "Invalid Entry!"
      Me.tb_pwd.SetFocus
    End If
    
End Sub

Код того, что я пробовал с полевым сотрудником

Private Sub Employee_AfterUpdate()

DoCmd.OpenForm FormName:="login", WindowMode:=acDialog
MsgBox username1

End Sub


Private Sub Form_Close()

DoCmd.OpenForm "login"

End Sub

Что я уже пробовал:

Private Sub Employee_AfterUpdate()

DoCmd.OpenForm FormName:="login", WindowMode:=acDialog
MsgBox username1

End Sub

Private Sub Form_Close()

DoCmd.OpenForm "login"

End Sub

Private Sub EmployeeText_AfterUpdate()

DoCmd.OpenForm FormName:="login", WindowMode:=acDialog
MsgBox username1
Me.EmployeeText.Value = username1

End Sub

---