无法将值从一种形式传递到另一种形式 - 女士访问

Question

我有多个 VBA 表单，第一个表单从组合框中获取用户名并将其保存在全局变量中，代码如下：

Option Compare Database
Public emplID_global

Private Sub OKLogin_Click()


 If Not IsNull(Me.Combo_emplID) Then
  emplID_global = Me.Combo_emplID.Column(1)
  DoCmd.Close
  DoCmd.OpenForm "NavFrm", acNormal
 End If
End Sub

现在在我的其他表单中，我有一个组合框，我想在加载表单时自动填充该变量的值，我使用以前的表单保存，下面是代码：

Private Sub Form_Load()
 Me.AdvName = emplID_global
 Me.DataForm.Form.Recordset.MoveLast

End Sub

但它不起作用，它什么也没做。我想在所有表单中都使用这种代码。

有人可以建议我的代码中的错误是什么，我对 VBA 还很陌生。在此先感谢:)

Answer 1

为该特定记录的所有者在基础表中添加一个字段。 （我只是叫它Owner。）

将以下代码添加到您的表单中：

Private Sub Form_BeforeInsert(Cancel As Integer)
Owner = Environ("username")
End Sub

Private Sub Form_Current()
Dim editable As Boolean

if nz(Owner,"")="" then
    editable=true
else
    editable = (Environ("username") = Owner)
    End If

Form.AllowDeletions = editable
Form.AllowEdits = editable

End Sub

这是一个相当通用的解决方案，可以完成这项工作。 Environ("username") 返回用户的 windows 用户名。这不一定是所有 安全的。一个人可以转到命令提示符并编辑username 环境变量，使他们看起来像另一个人。这绝对不会将 NSA 或其他任何具有一点计算机知识和恶意的人拒之门外。但它将让诚实的人保持诚实。

说明： BeforeInsert 在保存新记录时运行。在这种情况下，它将记录的 Owner 字段设置为用户的 Windows 用户名。

OnCurrent 部分在每次显示新记录时运行。该代码将检查当前 Windows 用户名是否与存储在记录的 Owner 字段中的用户名匹配，并相应地设置表单 AllowEdits 和 AllowDeletions 标志。此外，如果Owner 字段为null（如在新记录的情况下），则editable 将设置为true。如果您想真的强调用户不应该更改内容这一事实，您还可以启用/禁用各个文本框...

TextBox1.Enabled=editable
ComboBox2.Enabled=editable
... etc.

简单的解决方案。防止诚实的人覆盖彼此的工作。我经常使用这种方法。