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），所以提供任何有用的答案都是相當困難的。