Requête avec VBA

**egg3774** · 24/08/2007, 14h49

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é · 24/08/2007, 14h54

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** · 24/08/2007, 14h55

salut,

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

bonne continuation

**Philippe PONS** · 24/08/2007, 14h55

Utilise des guillemets simples ' à la place des doubles "

Philippe

**egg3774** · 24/08/2007, 15h17

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é · 24/08/2007, 15h24

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** · 24/08/2007, 16h10

Envoyé par Starec

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** · 24/08/2007, 20h37

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 ?

**Pierre Fauconnier** · 24/08/2007, 21h14

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?

**egg3774** · 24/08/2007, 22h13

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 :

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

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

**Pierre Fauconnier** · 25/08/2007, 07h10

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

Code :

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

1
2
 
Me!lstSearch.RowSource = strSQL

Peux-tu donner la valeur de cette chaine?

**egg3774** · 28/08/2007, 02h06

Envoyé par Pierre Fauconnier

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

Code :

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

1
2
 
Me!lstSearch.RowSource = strSQL

Peux-tu donner la valeur de cette chaine?

Je crois que ca donne ceci

Expression: strSQL
Valeur

Code :

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

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

Type: string

Invité · 28/08/2007, 03h44

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

**egg3774** · 28/08/2007, 12h51

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.

Invité · 28/08/2007, 13h42

Bonjour

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

Code :

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

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

Starec

**egg3774** · 28/08/2007, 15h38

Envoyé par Starec

Bonjour

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

Code :

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

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

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.

**egg3774** · 28/08/2007, 16h32

Peu important, je vais écrire comme tu me l'as dit. merci Starec

**egg3774** · 29/08/2007, 02h38

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 :

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

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.

Requête avec VBA

VBA Access

Discussions similaires

Partager

Partager