在表格A关闭时，从表格A保持表格B的信息

Question

我想知道是否有任何代码可以让您在表格A中输入的某些信息在表格A关闭时保留在表格B的文本框中。我希望将一些用户信息保存在第二个表单的第一个表单中，并且仍然关闭第一个表单。

谢谢！

Answer 1

关闭表单时，您无法从字段维护值。所以你可以创建一些Global vars来复制他的价值并保持记忆 有时我使用另一个选项：隐藏表格A同时使用表格B，然后当你需要关闭表格B时，只需检查A是否打开然后关闭它。

Function FIsLoaded(stFrmName$) As Integer
    Dim I As Integer
    For I% = 0 To Forms.Count - 1
        If (Forms(I%).FormName = stFrmName$) Then
            FIsLoaded = True
            Exit Function
        End If
    Next I%
    For I% = 0 To Reports.Count - 1
        If (Reports(I%).FormName = stFrmName$) Then
            FIsLoaded = True
            Exit Function
        End If
    Next I%

    FIsLoaded = False

End Function

使用此功能，您可以在关闭表单之前执行：

if fisloaded("formA") then 
  DoCmd.Close acForm ,"formA"
end if