impossible de faire fonctionner la requete parametrée depuis vba [Résolu]

[sabinaS]

Bonjour,
J'ai crée la requete parametrée en VBA qui utilise comme parametre la valeur entrée dans la textebox d'un formulaire. Le code est suivant:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command15_Click()
Dim qdf As DAO.QueryDef
Dim strSQL As String
DoCmd.Close acQuery, ("Query5"), acSaveNo
 
strSQL = "PARAMETERS [Forms]![Form2]![Text1] Text ( 255 ); " & _
"SELECT CompEconData.ObjectType, CompEconData.CompKEY, CompEconData.RefYear, CompEconData.RefQ, CompEconData.Unit, CompEconData.Data, CompEconData.FeatSz, CompEconData.AdjNode, CompEconData.WafSz , CompEconData.Details, CompEconData.Comments,CompEconData.Area , CompEconData.UploadDate, CompEconData.Source FROM CompEconData " & _
 "WHERE (((CompEconData.ObjectType) Like " & Chr(34) & "*" & Chr(34) & " &[Forms]![Form2]![Text1] &" & Chr(34) & " * " & Chr(34) & "));"
 
CurrentDb.QueryDefs.Delete ("Query5")
Set qdf = CurrentDb.CreateQueryDef("Query5", strSQL)
DoCmd.OpenQuery ("Query5")
End Sub

Le pbm c'est qu'elle fonctionne seulement quand il y espace " " qui est rentré dans le textbox, quand je rentre un mot normal comme "Revenue" (qui existe dans la table source) la requete ne trouve rien. J'ai recree une autre requete à la main avec le meme parametre et ca marche sans probleme. Du coup, le souci doit etre dans le code, mais je n'arrive pas à le retrouver. Est-ce qu'il y a qn qui peut m'aider, svp?

[fbtsra]

Bonjour,

Et avec

Code :

1
2
3
strSQL = "PARAMETERS [Forms]![Form2]![Text1] Text ( 255 ); " & _
"SELECT CompEconData.ObjectType, CompEconData.CompKEY, CompEconData.RefYear, CompEconData.RefQ, CompEconData.Unit, CompEconData.Data, CompEconData.FeatSz, CompEconData.AdjNode, CompEconData.WafSz , CompEconData.Details, CompEconData.Comments,CompEconData.Area , CompEconData.UploadDate, CompEconData.Source FROM CompEconData " & _
 "WHERE (((CompEconData.ObjectType) Like '*" & [Forms]![Form2]![Text1] & "*'));"

... ca marche pas ?

Bcdt

[sabinaS]

Bonjour fbtsra!!!
Si CA MARCHE!!!! Je savais que j'allais foutre le bordele avec ces guillemets
Merci bcp pour ta réponse rapide