Question

我试图将循环中字段的名称分配给access vba中的特定变量。然后我需要这个变量来从数据库中读取特定的记录。下面你有一段代码：

For n = 0 To numfields - 1
        a = "!" & rst.Fields(n).Name
        If IsNull(!Field1) = False Then
            If n = 1 Then strOutput = strOutput & a
            If n <> 1 And n <> 0 Then strOutput = strOutput & ";" & "!Field" & n
        End If
    Next n

问题如下：变量中的存储值为＆＃34;！Field（n）＆＃34;在文本中，并且不会从条件语句中的数据库中获取值，因为它没有读取它。有没有办法将此文本转换为实际的！Field（n）变量，可以从数据库中读取？

感谢您的帮助。

Answer 1

以下是我的问题的答案。谢谢你的帮助。

For n = 0 To numfields - 1
        a = rst.Fields(n).Value
        If IsNull(!Field1) = False Then
            If n = 1 Then strOutput = strOutput & a
            If n <> 1 And n <> 0 Then strOutput = strOutput & ";" & a
        End If
Next n

将字符串分配给Access VBA中的变量

1 个答案: