如何在字段中插入全局变量?

时间:2019-01-03 10:37:41

标签: vba ms-access

你好,我首先解释一下我手中的东西。 蒙版A中有两个蒙版,其中有“用户”字段和其他字段(我最感兴趣的是“用户”)。在Mask B中,它将是登录名,并带有用户名和密码。

当我在“掩码A”中输入用户时,我会自动打开“登录表单”,我可以使用该表单识别谁进行访问。这样,我想获取(正确输入凭据后)登录用户的用户名,并将其与“用户”一起放在掩码A中。

我创建了一个全局变量“ Username1”。 这是我测试过的代码,也是我用来理解作品的消息。但是我不能通过将其放在我想要的框中来使用它。

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 Employee_AfterUpdate()
DoCmd.OpenForm FormName:="login", WindowMode:=acDialog
MsgBox username1
Me.Employee_Label = username1
End Sub

Private Sub Form_Close()
DoCmd.OpenForm "login"
End Sub

0 个答案:

没有答案