Créer une requete sous vba Access

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,

J'essaie en vain de créer une requete sous vba access mais en vain .
J'ai un message d'erreur 3141 "dans l instruction select, un mot reservé ou un argument est mal orthographié, ou absent, ou la ponctuation est incorrecte"

Je vous joins ci dessous la requete

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub trafic_matin()
 
    Liste_nbre_colis_triés_matin.Value = 0 'initialisation de la liste box trafic matin
 
    Dim rst1 As DAO.Recordset
    Dim str1 As String
   str1 = ""
 
str1 = "SELECT Count(dbo_vwItemData.ItemID) AS [nbre net de colis traités], CVDate(Fix(([DischargeEventTime]-(5/24)))) AS jour"
 
str1 = str1 & "FROM (dbo_vwItemData INNER JOIN dbo_vwParts ON dbo_vwItemData.DischargePartID = dbo_vwParts.ID) INNER JOIN [table_Affich-general] ON dbo_vwParts.DisplayName = [table_Affich-general].[Chute (format access)]"
 
str1 = str1 & "WHERE ((([table_Affich-general].Type) <> RJT & ((dbo_vwItemData.DischargeEventTime) >= (CVDate(Fix(Now() - (5 / 24))) + (5 / 24)) And (dbo_vwItemData.DischargeEventTime) <= (CVDate(Fix(Now() - (5 / 24))) + ((25 / 2) / 24))))"
 
str1 = str1 & "GROUP BY CVDate(Fix(([DischargeEventTime]-(5/24))))"
 
str1 = str1 & "ORDER BY Count(dbo_vwItemData.ItemID) DESC;"
 
 
    Set rst1 = CurrentDb.OpenRecordset(str1, dbOpenDynaset)
    txt_trafic_matin.Value = rst1(0)
    rst1.Close
    Set rst1 = Nothing
 
End Sub

14/01/2013, 12h25
pc75

Bonjour,

Et en rajoutant un espace à la fin de chaque ligne de concaténation ?
14/01/2013, 13h00
facteur

cela ne change rien , j 'ai toujours l'erreur qui s'affiche
14/01/2013, 14h43
laznic23

Bonjour,

Vous avez essayé de mettre la totalité de la sélection en une ligne de commande?

Ou déclarer 5 str différentes:

str1 = SELECT ....
str2 = str1 & FROM ... INNER JOIN... ON...
str3 = str1 & str2 & ...

Ainsi de suite, ça expliquerais l'erreur.
16/01/2013, 22h15
facteur

cela ne marche toujours pas.
Il faut savoir j'ai cree cette requete en mode creation et je l ai affiche en mode sql.
Je pensais ensuite qu il suffisait de recopier ce code sql et de le coller simplement dans le Private Sub().
Mais non , je dois apparemment reprendre le code sql et l adapter en language vba.
Et la je suis coince car je suis pas tres fort en VBA Access.
Y aurait il quelqu un qui pouurait m aider a adapter cette requete sql en vba Access.
Merci
16/01/2013, 22h39
f-leb

salut,

ligne 13, à la fin de la clause WHERE, il manquerait pas une parenthèse fermante ?
17/01/2013, 07h29
Invité

Bonjour

Citation:

Je pensais ensuite qu il suffisait de recopier ce code sql et de le coller simplement dans le Private Sub().

Non, il faut souvent adapter, par exemple je vois que dans ta clause Where il y a RJT, si c'est une valeur fixe, il faut l'entourer de simples quotes (') car c'est du texte.

Si c'est une variable, il faut la sortir et la rajouter par concaténation, ce qui donnerait :

Code:

WHERE ((([table_Affich-general].Type) <> '" & RJT & "' ...

Philippe

Bonjour Philippe,

J'ai repris le code sql et j 'ai inséré la valeur "RJT" comme une variable.
Mais j'ai toujours le message d'erreur 3141 qui s'affiche lors de l'éxécution du code.

Citation:

"dans l instruction select, un mot reservé ou un argument est mal orthographié, ou absent, ou la ponctuation est incorrecte".

Le soucis, c'est que je ne sais pas quel est le mot ou l'argument qui pose problème.

Ci dessous le code avec la modification de la valeur "RJT"
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub trafic_matin() Dim rst1 As DAO.Recordset Dim str1 As String Dim strrejet As String strrejet = "RJT" str1 = "SELECT Count(dbo_vwItemData.ItemID) AS [nbre net de colis traités], CVDate(Fix(([DischargeEventTime]-(5/24)))) AS jour" str1 = str1 + "FROM (dbo_vwItemData INNER JOIN dbo_vwParts ON dbo_vwItemData.DischargePartID=dbo_vwParts.ID) INNER JOIN [table_Affich-general] ON dbo_vwParts.DisplayName=[table_Affich-general].[Chute (format access)]" str1 = str1 + "WHERE ((([table_Affich-general].Type)<>'" & RJT & "') AND ((dbo_vwItemData.DischargeEventTime)>=(CVDate(Fix(Now()-(5/24)))+(5/24)) And (dbo_vwItemData.DischargeEventTime)<=(CVDate(Fix(Now()-(5/24)))+((25/2)/24))))" str1 = str1 + "GROUP BY CVDate(Fix(([DischargeEventTime]-(5/24))))" str1 = str1 + "ORDER BY Count(dbo_vwItemData.ItemID) DESC;" Set rst1 = CurrentDb.OpenRecordset(str1, dbOpenDynaset) Texte_trafic_matin.Value = rst1(0) rst1.Close Set rst1 = Nothing

17/01/2013, 10h01
Invité

Re

Tu as oublié (comme dit plus haut) les espaces en fin de lignes.

Philippe

Bonjour,
Si je peux me permettre, voici un exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Sub Test(monParametre1 As String, monParametre2 As Integer)
    Dim strSQL As String
    Dim rst As DAO.Recordset
    Dim fld As DAO.Field
 
    strSQL = "SELECT COUNT(champs1) AS nbre, champs2 AS test " & _
             "FROM maTable " & _
             "WHERE champs3 = """ & monParametre1 & """ AND champs4 = " & monParametre2 & " " & _
             "GROUP BY champs2 " & _
             "ORDER BY champs2;"
 
    Set rst = CurrentDb.OpenRecordset(strSQL)
 
    Do While Not rst.EOF
        For Each fld In rst.Fields
            MsgBox fld.Name & " = " & fld.Value
        Next fld
        rst.MoveNext
    Loop
 
    rst.Close
End Sub

17/01/2013, 10h51
facteur

Philippe,
lorsque tu dis

Citation:

Tu as oublié (comme dit plus haut) les espaces en fin de lignes

dois comprendre qu' à la fin de chaque ligne je dois simplement appuyer sur la barre d'espace de mon clavier ou dois je inserer le "_" de la touche 8.

Paidge,
si je reprends ton exemple, je devrais donc ecrire ma requete en 1 seul ligne et en insérant à la fin de chaque ligne le & _
17/01/2013, 10h56
paidge
Le "_" est le caractère de continuité de ligne. C'est-à-dire que si ton instruction est trop longue pour être affichée sur l'écran, ça te permet d'écrire l'instruction sur plusieurs lignes sans être obligé de scroller horizontalement...

Techniquement ça revient à peu près au même que ce que tu as écrit ;)

Ce que Philippe veut dire, c'est que si tu écris :
Code:

1 2 3 maString= "Bonjour" maString = maString & "et bonne année." msgbox maString
ça t'écriras : Bonjouret bonne année.

Si tu regardes mon exemple, tu verras qu'il y a toujours un espace avant de refermer les guillemets.
En espérant que ça éclaire ta lanterne ;)
21/01/2013, 15h51
facteur

Merci Plaidge et Philippe.
ma requete vba fonctionne trés bien grace à vos conseils..:ccool:

Bonjour Messieurs,

Je reviens vers vous pour ces 3 requetes (matin , AM et nuit) en VBA.
je me rends compte d'un problème qui survient le matin pour deux de ces requetes.
Je m'explique,
Deux de ces requetes, AM et nuit, commencent respectivement à 12h30 et 19h30.
Par conséquent, la matin pour la requete AM, qui commene à 12h30, j'ai un message d'erreur :

Citation:

"Erreur d'éxécution 2113. Valeur incorrect pour ce champ"

Et la ligne 14 du code est surligné en jaune.

L' aprés midi ( aprés 12h30), la requete AM fonctionne mais celle de la nuit m' affiche le même message d'erreur 2113.

Je pense que l'anomalie survient du fait que la requete AM commence à 12h30. Et comme il n'ya pas de donnée avant 12h30, j'ai ce message d'erreur.
Même chose pour la requete nuit qui commence à 19h30.

Je pense qu'il faudrait rajouter une ligne de code pour dire que si la requete n'a pas de donnée alors par defaut on met la valeur 0.
Mais en language VBA , je ne sais pas comment y traduire..:(

Je vous joins la requete AM pour une meilleur compréhension
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub trafic_apres_midi() Dim rst2 As DAO.Recordset Dim str2 As String str2 = "SELECT Count(dbo_vwItemData.ItemID) AS [nbre net de colis traités], CVDate(Fix(([DischargeEventTime]-(5/24)))) AS jour" str2 = str2 + " FROM (dbo_vwItemData INNER JOIN dbo_vwParts ON dbo_vwItemData.DischargePartID = dbo_vwParts.ID) INNER JOIN [table_Affich-general] ON dbo_vwParts.DisplayName = [table_Affich-general].[Chute (format access)]" str2 = str2 + " WHERE ((([table_Affich-general].Type) <> 'RJT') And ((dbo_vwItemData.DischargeEventTime) > (CVDate(Fix(Now() - (5 / 24))) + (25 / 2) / 24) And (dbo_vwItemData.DischargeEventTime) <= (CVDate(Fix(Now() - (5 / 24))) + ((39 / 2) / 24))))" str2 = str2 + " GROUP BY CVDate(Fix(([DischargeEventTime]-(5/24))))" str2 = str2 + " ORDER BY Count(dbo_vwItemData.ItemID) DESC;" 'MsgBox str2 Set rst2 = CurrentDb.OpenRecordset(str2, dbOpenDynaset) Texte_trafic_AM.Value = rst2(0) rst2.Close Set rst2 = Nothing End Sub

22/01/2013, 10h20
dumas.blr

Bonjour facteur,

si tu veux tester ton jeu d'enregistrement, le mieux est d'utiliser la proriété BOF et EOF
En sachant que si ton jeux d'enregistrement est vide, les 2 propriétés BOF et EOF ont la valeur True
22/01/2013, 10h29
facteur

Bonjour Dumas,

Et concretement comment dois je appliquer la proriété BOF et EOF
dans mon code ?

Dumas, j'ai rajouter ces quelques lignes dans mon code code mais en vain

Code:

1
2
3
4
If IsNull(rst2) Then Texte_trafic_AM.Value = 0
    Else
    Texte_trafic_AM.Value = rst2(0)
    End If

J'ai un message d'erreur qui me dit :

Code:

erreur de complation . Else sans If

Voici le code entier :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub trafic_apres_midi()
 
    Dim rst2 As DAO.Recordset
    Dim str2 As String
 
 
str2 = "SELECT Count(dbo_vwItemData.ItemID) AS [nbre net de colis traités], CVDate(Fix(([DischargeEventTime]-(5/24)))) AS jour"
str2 = str2 + " FROM (dbo_vwItemData INNER JOIN dbo_vwParts ON dbo_vwItemData.DischargePartID = dbo_vwParts.ID) INNER JOIN [table_Affich-general] ON dbo_vwParts.DisplayName = [table_Affich-general].[Chute (format access)]"
str2 = str2 + " WHERE ((([table_Affich-general].Type) <> 'RJT') And ((dbo_vwItemData.DischargeEventTime) > (CVDate(Fix(Now() - (5 / 24))) + (25 / 2) / 24) And (dbo_vwItemData.DischargeEventTime) <= (CVDate(Fix(Now() - (5 / 24))) + ((39 / 2) / 24))))"
str2 = str2 + " GROUP BY CVDate(Fix(([DischargeEventTime]-(5/24))))"
str2 = str2 + " ORDER BY Count(dbo_vwItemData.ItemID) DESC;"
'MsgBox str2
    Set rst2 = CurrentDb.OpenRecordset(str2, dbOpenDynaset)
 
    If IsNull(rst2) Then Texte_trafic_AM.Value = 0
    Else
    Texte_trafic_AM.Value = rst2(0)
    End If
 
    rst2.Close
    Set rst2 = Nothing
 
End Sub

Bonjour facteur,

En préambule, je t'ouvre une parenthèse sur l'aide en ligne de Access, qui contient énormément d'information. Je ne saurais te conseiller d'en user et d'abuser ...
Donc le premier réflèxe est ... la touche F1:ccool::ccool:

concernant la syntaxe du if .. then .. else (qui est aussi documenté en appuyant sur la touche F1) elle doit répondre à la contrainte suivante
Code:

1 2 3 4 5 If <condition> then [saut de ligne] instruction 1 else [saut de ligne] instruction 2 end if
si tu veux mettre l'instuction à la suite, tu dois alors écrire

Code:

If <condition> then : instruction 1

Pour améliorer la lisibilité de ton code, n'hésite pas à passer à la ligne quand tu le peux.
Ensuite, n'hésite pas à utiliser les indentations.

Concernant le test que tu as écrit, il ne fonctionnera probablement pas, car le test isnull s'appliquera à une variable, si celle-ci est instanciée, et non à un jeu d'enregistrement.

Je te propose plutôt la syntaxe suivante :
Code:

1 2 3 4 5 6 7 Set rst2 = CurrentDb.OpenRecordset(str2, dbOpenDynaset) If (rst2.bof = true and rst2.eof = true) Then Texte_trafic_AM.Value = 0 Else Texte_trafic_AM.Value = rst2(0) End If
Note que la syntaxe

Code:

If (rst2.bof and rst2.eof) Then

aurait pu aussi fonctionner

Dumas,
Une seule chose à te dire ..MERCI :ccool:
Tu sais j 'ai user de la touche F1 mais j 'étais noyé dans ces explications.

Je reviens vers toi pour une meilleur compréhension du code ci dessous.
Je pourrais en avoir besoin ultérieurement.
Serais t il possible que tu me décrivent chaque ligne ci dessous en sachant que je suis débutant en vba access.
Merci d'avance Dumas
Code:

1 2 3 4 5 6 7 8 9 10 11 Set rst2 = CurrentDb.OpenRecordset(str2, dbOpenDynaset) If (rst2.BOF = True And rst2.EOF = True) Then Texte_trafic_AM.Value = 0 Else Texte_trafic_AM.Value = rst2(0) End If rst2.Close Set rst2 = Nothing

22/01/2013, 12h17
dumas.blr
Bonjour Facteur,

Pour comprendre le fonctionnement des jeux d'enregistrement, l'aide access (encore elle :mouarf: ...) décrit le mécanisme de DAO

Je ne saurais non plus te conseiller d'user et d'abuser de ce site, notamment la partie tutoriel :tutoriel:qui contient des petites pépites très bien faites (comme ce n'est pas moi qui les ai écrites, ce n'est donc pas de l'auto-pub ;))
Pour découvrir, regarde déjà ce tuto ici

Pour résumer :
pour ouvrir un recordset, il faut d'abords le déclarer. On écrit toujours dans la partie déclarative :
Code:

1 2 dim db as database Dim rst2 As DAO.Recordset
note que la déclaration de la variable database n'est pas obligatoire, mais j'ai tendance, pour améliorer la lisibilité du code, à bien séparer les déclarations
en général, je mets dans mon code pour l'insrtantiation des variables les 2 lignes suivantes :
Code:

1 2 set db = CurrentDb Set rs = Db.OpenRecordset(<source du recordset), <type de recordset>)
L'instruction que tu utilises est équivalente et résume les 2 instructions que j'ai écrit au dessus
Une fois que tu a déclaré le recordset, tu as donc ouvert le jeu d'enregistrements avec l'instruction openrecordset.
En général, quand tu ouvre un jeu d'enregistrements, celui-ci en contient plusieurs. Il convient donc de pouvoir se déplacer dedans. Pour cela, je te laisse regarder le tutoriel.
L'instruction initiale que tu avais écrite

Code:

Texte_trafic_AM.Value = rst2(0)

signifie que tu lis l'enregistrement courant (pointeur 0).
Il faut donc faire très attention, car si tu ne te déplace pas dans le recordset, cela signifie que tu lis le 1er enregistrement et que tu es sur que c'est le bon (ce qui est le cas quand il n'y a qu'un seul enregistrement)
Tu as donc rencontré le cas où le recordset était vide.
quand tu manipules un recordset, il y a toujours 2 indicateurs qui t'indiquent si tu es en début (BOF) ou en fin de fichier (EOF). C'est expliqué en détail dans le tutoriel. dans le cas présent, nous avons donc juste testé que nous étions en même temps au début et en fin de fichier, c'est à dire que le fichier est vide; d'où l'instruction

Code:

If (rst2.BOF = True And rst2.EOF = True) Then

les 2 autres instructions sont à faire systématiquement quand tu as fini de traiter ton recordset

Code:

rst2.Close

ferme le recordset

Code:

set rst2 = nothing

libère la mémoire alloué au recordset

Voilà, pour résumer, la signification de ton code.
Encore une fois, n'hésite pas à consulter la rubrique tuto du forum, qui est très complète. Tu y trouveras tout ce dont tu as besoin.

Bonne chance et à bientôt

Voir 40 message(s) de cette discussion en une page