ms-access - Microsoft Access 为备注字段附加 Querydef

Question

我收到 vba 错误 3271；属性值无效。当尝试在 querydef 中附加备注字段时会发生这种情况。关于如何解决这个问题有什么想法吗？

示例:

public sub TestMemoField
    Dim qdf As QueryDef
    Set qdf = CurrentDb.QueryDefs("AppendRecord")
    qdf.Parameters("@SomeBigText").value = string(1000,"A")
    qdf.Execute
end sub  

提前致谢。

Answer 1

显然参数的长度不能超过 255 个字符 ( http://support.microsoft.com/kb/275116 )。

可以使用记录集，或者使用:

qdf.SQL="INSERT INTO Sometable (SomeField) Values('" & String(1000, "A") & "')"