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") & "')" 

Answer 2

嗯，你想干什么？你为什么使用参数？为什么不直接执行SQL代码，就像这样：

Public Sub TestMemoField 
    Dim strSQL As String 

    strSQL = "UPDATE MyTable SET MyField='" & String(1000,"A") & "'" 
    CurrentDb.Execute strSQL, dbFailOnError 
End Sub 

，当我需要拉一个形式从控制值在保存的查询中使用我不只是保存的查询使用参数。

现在，如果您的后端不是Jet，或者您的保存查询的实际条件和结构存在某些问题，那么使用保存的查询而不是简单地使用即时贴，飞SQL。但是你几乎没有提供任何信息（包括省略你正在执行的querydef的SQL），所以提供任何有用的答案都是相当困难的。