将标签值从一种形式传递到另一种形式

Question

我在MS ACCESS 2007中有一个表单及其子表单。表单有一个标签，其值传递给子表单。为了实现这一点，我已经这样做了：在主窗体中，

Form_Current()

strQueryID=Me.ID.Value

然后我创建了一个新模块来创建这样的函数：

Option Compare database
Option explicit
Public strQueryID As String
Public Function ValueSpareQuery() As String
ValueSpareQuery=strQueryID
End Function

在运行表单并应用时，我发现变量strQueryID能够从主表单中获取值，即。 strQueryID="-2143367"但ValueSpareQuery=""为空字符串

我想解决这个问题。这种行为背后可能有什么原因？

Answer 1

如果您在子窗体中并且只想从其父窗体中获取某些值，则可以执行以下操作：

Dim SomeVariable as String

SomeVariable = Me.Parent.ID.Value

...或更好，如果ID可能为NULL：

SomeVariable = Nz(Me.Parent.ID.Value)