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），所以很难提供任何有用的答案。

Microsoft Access为备注字段附加Querydef

2 个答案: