sql - 如何在 ms-access VBA 中引用不同子中的变量？

Question

我拥有的是一个单独的 Private Sub，它获取一个值并将其设置为 Double 类型的变量“Record”。

现在我需要能够引用该值，即使它在另一个子中？

例如：

Private Sub GetValue()

Dim Record as Double

Record = (Code to find Record)

End Sub

如何在另一个 Sub 中引用该“记录”？

在此先感谢，鲍勃 P

Answer 1

答案是你不能。它对那个子私有

您需要做的是，拥有

Dim Record as Double 

在通用代码中，或者，将其转换为函数并返回它以便您可以执行

Myrecord = GetValue()

Answer 2

我更喜欢 SQL Server 和 Excel，如果我必须解决您的问题，我会以两种方式之一来解决。那不可能真的是你的函数的主体，是吗 - 因为记录被设置为本地，然后......消失了！

1. 使用全局变量。只需将Dim Record as Double任何子的外部。这也意味着只要你最后一次调用这个 Sub，它就会被设置，假设所有其他代码只从它读取。
2. 改用 a Function。下面的例子

---

Private Function GetRecord() as Double
    Dim Record as Double
    Record = ....
    GetRecord = Record
End Function