Discussion :

[egg3774]

Bonjour,

Je suis un novice en VBA. Depuis quelques temps, je cherche un moyen de créer une requête en VBA et y intégrer du code SQL. J'ai créer un requête (Union joint) avec Access qui pige des informations dans deux tables. J'ai ensuite copier ce code dans du VBA. Voila la source de mon problème. La requête en VBA depuis l'intégration de code de la requête.

Il me donne un message d'erreur de compilation. Je crois que l'erreur est causé pas des " dans mon code. Je me demande s'il a une meilleur facon de l'écrire.

Voici mon code en question:

Code :

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

strSQL = "SELECT DISTINCTROW(1 & format(tbl_Niveau1.WO,"00")), tbl_Niveau1.DateCreation, tbl_Niveau1.Client, tbl_Niveau1.Description FROM tbl_Niveau1 UNION SELECT (2 & format(tbl_Niveau2.WO_,"00")), tbl_parent.DateCreation, tbl_parent.Client,tbl_parent.Description FROM tbl_Niveau2"

Le problème est au niveau des "00" utilisés pour donner un format précis dans les numéros WO (ou ID de l'enregistrement).

Est-ce qu'il a une facon de modifier ce code tous en gardant un résultat voulu ?

Merci,

Egg3774

[Invité]

Bonjour

Soit tu doubles les guillemets dans la chaine, soit tu mets des ' à la place (personnellement je mets des ').

Access interpréte mal, car pour lui tu veux mettre des string bout à bout, et elles ne sont pas séparés par des caractères de concaténation (&).

Starec

[moicats]

salut,

a tu essayé avec des cotes plutot : '00'

bonne continuation

[Philippe PONS]

Utilise des guillemets simples ' à la place des doubles "

Philippe

[egg3774]

Modifier mon code en insérant un ' au lieu du " a fait disparaitre l'erreur de compilation. Cependant, je n'obtiens plus rien a l'exécusion du code. Ma liste de rechercher est vide. Je crois que le code utiliser n'est pas bien adapté. Le seul façon pour moi d'avoir des informations dans ma liste de recherche est en modifiant de code de cette façon:

Avant

Code :

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

strSQL = "SELECT DISTINCTROW(1 & format(tbl_Niveau1.WO,'00')), tbl_Niveau1.DateCreation, tbl_Niveau1.Client, tbl_Niveau1.Description FROM tbl_Niveau1 UNION SELECT (2 & format(tbl_Niveau2.WO,'00')), tbl_parent.DateCreation, tbl_parent.Client,tbl_parent.Description FROM tbl_Niveau2"

Après

Code :

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

strSQL = "SELECT DISTINCTROW tbl_Niveau1.WO, tbl_Niveau1.DateCreation, tbl_Niveau1.Client, tbl_Niveau1.Description FROM tbl_Niveau1 UNION SELECT tbl_Niveau2.WO, tbl_parent.DateCreation, tbl_parent.Client,tbl_parent.Description FROM tbl_Niveau2

Je crois qu'il a quelques chose qui cloche avec cette parti de code

(2 & format(tbl_Niveau2.WO,'00'))

sauf bien sur les '00', mais je ne peux pas trouver de solution.

[Invité]

Re

Oui je n'ai pas tout vu

Code :

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

1
2
 
SELECT DISTINCTROW(1 "& format(tbl_Niveau1.WO,'00'))" & ,

Cela vient du fait du concaténage des chaines, car dans une string tu rajoutes des variables, il faut que tu les sortes.

A faire pour tout l'ensemble.

Starec

[egg3774]

Re

Oui je n'ai pas tout vu

Code :

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

1
2
 
SELECT DISTINCTROW(1 "& format(tbl_Niveau1.WO,'00'))" & ,

Cela vient du fait du concaténage des chaines, car dans une string tu rajoutes des variables, il faut que tu les sortes.

A faire pour tout l'ensemble.

Starec

Merci pour ton aide.

Mais ca ne fonctionne pas. j'ai plein d'erreur de compilation.

Code :

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

strSQL = "SELECT DISTINCTROW (1 "& format(tbl_Niveau1.WO,'00'))" & , tbl_Niveau1.DateCreation, tbl_Niveau1.Client, tbl_Niveau1.Description_1 UNION SELECT (2 "& format(tbl_Niveau2.WO,'00'))"& , tbl_Niveau2.DateCreation, tbl_Niveau2.Client,tbl_Niveau2.Description_1 FROM tbl_Niveau2"

j'obtiens un erreur de compilation "end of statment". la première ' simple semble est la cause de l'erreur. Désolé je suis null en VBA ! Quelqu'un peu m'aider ?

[egg3774]

Voici le code que j'utilise dans ma requête en VBA.

Code :

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

strSQL = "SELECT DISTINCTROW (1 & Format(WO_Niveau1,'00')), DateCreation, Client, Description FROM tbl_grand UNION SELECT (2 & Format(WO_Niveau2,'00')), DateCreation, Client, Description FROM tbl_Niveau2"

Tous fonctionne bien jusqu'au moment que j'insère la partie de code UNION SELECT (2 & Format ( Wo....

Qu'elle la syntaxe pour inclure le code ' UNION SELECT...' dans du VBA ?