Microsoft Access Ajout Querydef pour le champ Mémo

Question

Je reçois une erreur vba 3271; Valeur de propriété incorrecte Cela se produit lorsque vous essayez d'ajouter un champ Mémo dans un querydef. Des idées sur la façon de contourner cela?

Exemple:

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

Merci à l'avance.

Answer 1

Apparemment, vous ne pouvez pas avoir un paramètre supérieur à 255 caractères (http://support.microsoft.com/kb/275116).

Il est possible d'utiliser un jeu d'enregistrements ou d'utiliser:

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

Answer 2

Um, qu'est-ce que vous essayez de faire? Pourquoi utilisez-vous des paramètres? Pourquoi ne pas simplement exécuter SQL dans le code, comme ceci:

Public Sub TestMemoField 
    Dim strSQL As String 

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

Je ne pas utiliser les paramètres dans les requêtes enregistrées sauf quand je dois tirer une valeur d'un contrôle sur un formulaire à utiliser dans une requête enregistrée . Maintenant, ma réponse ne sera peut-être pas bonne si votre back-end n'est pas Jet ou s'il y a quelque chose sur les critères et la structure de votre requête sauvegardée qui rend important l'utilisation d'une requête sauvegardée au lieu d'utiliser simplement la fonction -le- voler SQL. Mais vous n'avez fourni pratiquement aucune information (y compris en omettant le SQL du querydef que vous exécutez), il est donc plutôt difficile de fournir une réponse utile.