在当前之后运行脚本

Question

我相信这真的很简单，但我就是做不到。我有一个包含三个子表单的表单。主窗体加载并找到请求的记录，如果我从主窗体上的按钮运行下面的命令，它工作正常。我想要做的是让它在表单加载请求的记录后运行，并且没有用户交互。我已经尝试加载和当前，但由于表单尚未显示在屏幕上，因此没有可填充变量的值，并且消息框为空白。但就像我说的那样，它可以正常工作。

如有任何帮助，我们将不胜感激。

actCount = [ActMovDelete].Form![Text93].Value
PlaCount = [PalnMovDelete].Form![Text91].Value
noCount = [NotesDelete].Form![Text50].Value

MsgBox actCount
MsgBox PlaCount
MsgBox noCount

Answer 1

我不确定我是否理解你的问题，但如果你想在初始化时激活代码，那么只需

Private Sub UserForm_Initialize()

    [your code here...]

End Sub

但是，如果您尝试填充未加载的表单变量，则更好的方法可能是将变量存储为表单中的 public 变量。这应该使您能够访问变量，即使它们未加载也是如此。举个例子说明它是如何工作的：

在要从中获取变量的表单中（名为 UserForm1）：

Public strFromTheForm As String


Private Sub UserForm_Activate()

    TextBox1.Value = strFromTheForm

End Sub

从另一个表单或模块，您可以包含代码：

Public Sub Test2()

    Dim strTest As String
    strTest = UserForm1.strFromTheForm

    If strTest = "" Then

        UserForm1.strFromTheForm = "Test"

    End If

    UserForm1.Show

End Sub

在当前之后运行脚本

Run Script After On Current

ms-access

vba

ms-access-2010