将变量传递给.Value函数

时间:2018-01-12 00:04:10

标签: ms-access access-vba

我正在尝试使用.Value在表中设置字段值,但是使用字段名称的变量(rs3!variable.Value=anothervariable),但它一直给我一个运行时错误(3265 - Item not found in collection )。我尝试在变量周围放置{}(),但它没有帮助。有人知道我如何使用变量作为字段名称? 相关代码:

Private Sub GetCMLData_Click()
    Dim IPinfo1 As String
    Dim rs3 As Recordset
    Set rs3 = db.OpenRecordset("CMLData", dbOpenDynaset)
    Dim AIP2 as string
    AIP2="SomeValue"
    rs3.AddNew
    rs3!IPinfo1.Value = AIP2(i)
    rs3.Update
End Sub

2 个答案:

答案 0 :(得分:0)

而不是使用:

rs3!variableName.Value = ...
你会用:

rs3.Fields(variableName) = ...

答案 1 :(得分:0)

或者只是 - 因为字段的 Value 属性是它所拥有的值:

rs(IPinfo1).Value = AIP2