ms-access - 如何在 VBA 中使用字符串获取对变量的引用？

Question

我有一个变量 strFunction ，那么我还有另一个字符串 strName = "strFunction" ，我想知道的是如何通过使用strName来获取strFunction的值。

例如，像 getValue(strName) 这样的东西给了我 strFunction 的值。是否可以在 Access VBA 中使用？

谢谢!

编辑:

我有一个 strFunction字符串，它是一个常量字符串。
在我的代码中，我想使用 Len("strFunction")测试它的长度，但我得到的是长度“strFunction”。所以我需要一个 get-value-out-of-variable-name 函数。我试过 Eval()，但它不能做到这一点，即使我写了 get_strFunction() , eval("get_strFunction()")给我错误，告诉我它找不到它。

Private Const strFunction as String = "FilterByType_1"
Private Function get_strFunction()
    get_strFunction = strFunction
End Function

Answer 1

“我有一个变量 strFunction，然后我有另一个字符串 strName = "strFunction"，我想知道如何使用 strName 获取 strFunction 的值。

strFunction 可以不是变量，而是 VBA 集合中项目的键。

Public Sub darkjh()
    Dim strName As String
    Dim col As Collection
    Set col = New Collection
    col.Add "FilterByType_1", "strFunction"
    strName = "strFunction"
    Debug.Print col(strName)
    Set col = Nothing
End Sub

编辑 :您可以使用 Scripting.Dictionary 代替 VBA 集合。

Dim strName As String
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
dict.Add "strFunction", "FilterByType_1"
strName = "strFunction"
Debug.Print dict(strName)
Set dict = Nothing