Discussion :

[JeanMimideNormandie]

Bonjour à tous,

J'ai un souci de syntaxe je pense dans un code qui sert à afficher le résultat d'une requête Access sur une feuille Excel.
L'utilisateur entre les données A et B grâce à des InputBox.

Ensuite, j'ai crée un champ String nommé SQL comme ci dessous:

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

SQL = "SELECT * FROM T_Journal WHERE Code_Article Like '" & A & "' AND nom_sousensemble = '" & B & "' ORDER BY Numero_OF"

J'ai pu constater que sur Excel il était nécessaire de mettre l'apostrophe pour dire que c'est une chaine de caractère, d'où les ' de chaque côté de mes variables A et B. Pour le Code Article (qui prend la valeur de A) pas de souci, le LIKE fonctionne bien. Par contre pour le nom_sousensemble, quand je rentre B je veux que ACCESS me prennent tous les enregistrements commençant par B et finissants par B sauf que je n'arrive pas à le faire depuis VBA aussi facilement que sur ACCESS, en ajoutant des * au début et à la fin... J'ai tout essayé, voilà quelques exemples:

• SQL = "SELECT * FROM T_Journal WHERE Code_Article Like '" & A & "' AND nom_sousensemble = *'" & B & "' * ORDER BY Numero_OF"
• En mettant les étoiles entre des apostrophes '*'
• Avec ou sans les & ...
• En essayant les doubles guillemets pour que ma chaine de caractère soit avec des guillemets ...

Globalement je bloque sur ça ! Je ne sais pas ce qu'ACCESS attend en terme de syntaxe... Je fais appel à votre aide.

Merci !!

[Invité]

Bonjour,
Like '%" & A & "%'

[micniv]

Bonjour à tous,
petite rectif, dans Access :

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

 Like '*" & A & "*'

Cordialement.

[Invité]

Oui effectivement j'ai l'habitude d'utiliser ado et pas dao!

[JeanMimideNormandie]

Bonjour,
Like '%" & A & "%'

Bonjour ! Merci à tous, c'est effectivement la syntaxe avec % qui fonctionne (j'avais essayé *).
Je ne connaissais pas cette différence DAO/ADO.

Merci !

[JeanMimideNormandie]

Bonjour,

J'ai un autre problème de syntaxe ... Je voudrais comparer mon champ Date sur Access à la date d'ajourd'hui moins deux mois.
J'ai noté:

"WHERE CDate([Date]) > (" & CDate(Now) & ") ...."

Merci !

[Invité]

Bonsoirs,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"Where [Date] > #" & format(DateAdd("M", -2, now),"yyyy-mm-dd") & "#"

Mais je penses que ça ça fonctionne à tester!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"Where [Date] > DateAdd('M', -2, now)"