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

Question

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

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

例如：

Private Sub GetValue()

Dim Record as Double

Record = (Code to find Record)

End Sub

如何在另一个Sub？

中引用“Record”

提前致谢， Bob P

Answer 1

我更像是一个SQL Server和Excel家伙，如果我必须解决你的问题，请购买，我会用两种方式之一做。这不是你的功能的主体，是吗 - 因为Record被设置为local，然后....消失了！

1. 使用全局变量。只需将Dim Record as Double放在任何子项之外。这也意味着只要你上次调用这个Sub就会设置它，假设所有其他代码只从中读取。
2. 请改用Function。以下示例

---

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

Answer 2

答案是你不能。它是私人的那个

你需要做的是拥有

Dim Record as Double 

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

Myrecord = GetValue()