Requête avec VBA

Version imprimable

24/08/2007, 14h49
egg3774

Requête avec VBA

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:

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
24/08/2007, 14h54
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
24/08/2007, 14h55
moicats

salut,

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

bonne continuation
24/08/2007, 14h55
Philippe PONS

Utilise des guillemets simples ' à la place des doubles "

Philippe
24/08/2007, 15h17
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:

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:

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

Citation:

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

sauf bien sur les '00', mais je ne peux pas trouver de solution.
24/08/2007, 15h24
Invité
Re

Oui je n'ai pas tout vu
Code:

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
24/08/2007, 16h10
egg3774
Citation:
Envoyé par Starec

Re

Oui je n'ai pas tout vu

Code:

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:

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 ?
24/08/2007, 20h37
egg3774

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

Code:

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 ?
24/08/2007, 21h14
Pierre Fauconnier

Bonsoir

J'ai créé des tables avec ta structure, j'y ai mis quelques données et j'ai utilisé ta syntaxe de requête.

Le recordset renvoyé est correct et contient tous les enregistrements des deux tables.

Quel est le problème que tu rencontres?

Citation:

Envoyé par Pierre Fauconnier

Bonsoir

J'ai créé des tables avec ta structure, j'y ai mis quelques données et j'ai utilisé ta syntaxe de requête.

Le recordset renvoyé est correct et contient tous les enregistrements des deux tables.

Quel est le problème que tu rencontres?

Je rencontre un problème dans liste de recherche. Dans une requête normal en access tous fonctionne bien. Sauf que lorsque j'utilise le même code dans du VBA. La syntaxe semble être correct en partie. C'est au niveau du UNION SELECT que ca ne semble pas fonctionner. Lorsque j'ouvre le formualire qui comprend une zone de texte indépendante utiliser pour afficher un recordset, tous les informations y sont. Ce même code fonctionne bien dans "Row source" sous longlet "DATA" . Sauf qu'une fois insérer dans du VBA rien de fonctionne. Le code VBA est utiliser pour trier le contenu l'aide de boutons.

Voici mon fonction au complet:
Code:

1 2 3 4 5 6 7 8 9 10 Private Function basOrderby(col As String, xorder As String) As Integer Dim strSQL As String ClearCaptions strSQL = "SELECT DISTINCTROW (1 & Format(WO_Niveau1,'00')), DateCreation, Client, Description_1 FROM tbl_Niveau1 UNION SELECT (2 & Format(WO_Niveau2,'00')), DateCreation, Client, Description_1 FROM tbl_Niveau2" strSQL = strSQL & " ORDER BY " & col & " " & xorder Me!lstSearch.RowSource = strSQL Me!lstSearch.Requery End Function

25/08/2007, 07h10
Pierre Fauconnier
As-tu vérifié la chaine strsql en mettant un point d'arrêt sur la ligne
Code:

1 2 Me!lstSearch.RowSource = strSQL
Peux-tu donner la valeur de cette chaine?
28/08/2007, 02h06
egg3774
Citation:
Envoyé par Pierre Fauconnier

As-tu vérifié la chaine strsql en mettant un point d'arrêt sur la ligne

Code:

1 2 Me!lstSearch.RowSource = strSQL

Peux-tu donner la valeur de cette chaine?
Je crois que ca donne ceci

Expression: strSQL
Valeur

Code:

:"SELECT DISTINCTROW (1 & Format(WO_grand,'00')), DateCreation, Client, Description_1, Description_2 FROM tbl_grand ORDER BY WO_grand DESC"

Type: string
28/08/2007, 03h44
Invité

Bonjour

Je t'ai dit d'écrire par concaténation, la fonction format ne doit pas apparaitre.

Et puis c'est quoi ce "1", un nom de champ ne doit jamais commencer par une lettre.

Starec
28/08/2007, 12h51
egg3774

Citation:

Envoyé par Starec

Bonjour

Je t'ai dit d'écrire par concaténation, la fonction format ne doit pas apparaitre.

Et puis c'est quoi ce "1", un nom de champ ne doit jamais commencer par une lettre.

Starec

Le "1" sert identifier un niveau. 1 pour la table_A et 2 pour la table_B. Ensuite les numéros doivent envoir un minimum de trois chiffres. Exemple: les enregistrements auront cette suit-e: 100, 101... 199, 1100,1101...etc. Ca sera la même chose pour la Table_B: 200, 201... 299, 2100, ...
La fonction format est utile dans ce cas.
28/08/2007, 13h42
Invité

Bonjour

Excuse-moi, mais ce n'est pas clair du tout, tu dis que là

Code:

1 & Format(WO_grand,'00'

c'est pour le calcul d'une table, hors cela doit être le nom d'un champ de la table tbl_Grand qui doit apparaitre.

Pas clair ton truc :koi:

Starec
28/08/2007, 15h38
egg3774

Citation:

Envoyé par Starec

Bonjour

Excuse-moi, mais ce n'est pas clair du tout, tu dis que là

Code:

1 & Format(WO_grand,'00'

c'est pour le calcul d'une table, hors cela doit être le nom d'un champ de la table tbl_Grand qui doit apparaitre.

Pas clair ton truc :koi:

Starec

c'est plutôt un champ "WO_grand" (autonumber) dont je veux donner un format particulier. Je ne fait aucun calcul avec de champ, il est utilisé uniquement pour idenfier un enregistrement.
28/08/2007, 16h32
egg3774

Peu important, je vais écrire comme tu me l'as dit. merci Starec
29/08/2007, 02h38
egg3774
Comme je suis null en VBA, je n'ai pas été capable d'écrire correctement ce code comme tu me l'as dit. Quelqu'un peu me donner des idées ou suggestions ?

Je ce code qui fonctionne bien.
Code:

1 2 strSQL = "SELECT DISTINCTROW (1 & Format(WO_niveau1,'00')), DateCreation, Client, Description_1, Description_2 FROM tbl_niveau1"
Mais comment faire pour écrire une union entre la table_niveau2 et table_niveau2 ? Les structures sont identiques entre les deux tables.