访问DAO记录集值

时间:2017-11-01 15:11:09

标签: vba access-vba ms-access-2013

我将字段名存储在变量中 - 我想通过DAO Recordset访问存储在该字段中的值。

我的语法设置如下,但我的Debug.Print语句返回

idea.Value

而不是字段中保存的实际值。例如,我们假设我有一个名为Test的表,其中包含一个名为idea的短文本字段,其中包含值

  

红色
绿色
蓝色

在下面的语法中,我希望idea.Value显示这3个值,但不是打印实际值,而是打印字段名称。我为此设置的错误是什么?

Public fieldname As String

fieldname = "ides"

Do While Not rsSelect.EOF
    rsInsert.AddNew
    Debug.Print ""& fieldnamea & ".Value"
Loop

2 个答案:

答案 0 :(得分:2)

你的语法错了。

Do While Not rsSelect.EOF
    Debug.Print rsInsert.Fields(fieldname).Value
    rsInsert.MoveNext
Loop

请注意,您最好在网络上查找有关记录集如何工作的教程,而不是试错,并在出现错误时向Stack Overflow提问。

答案 1 :(得分:0)

您可以使用以下内容:

Public fieldname As String

fieldname = "idea"

Do While Not rsSelect.EOF
    Debug.Print rsSelect(fieldname).Value
    rsSelect.MoveNext
Loop

或者,您可以在不使用任何变量的情况下执行此操作:

Do While Not rsSelect.EOF
    Debug.Print rsSelect!idea
    rsSelect.MoveNext
Loop