Discussion :

[mgascult]

Bonjour à Tous,

Je suis vraiment fâché avec les requêtes en VBA, je pensais avoir bien écris les deux ci-dessous et bien non!

j'ai l'erreur 3061 "trop peu de paramètre"
Quand j'en mets ça ne va pas, quand j'en retire il n'y en a pas assez et l'aide Microsoft n'aide pas

Et comme par hasard, l'outil que je suis en train de créer va être conçu avec beaucoup de requêtes.

Code :

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

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
26
27
28
29
Dim qry As DAO.QueryDef
    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset
    Dim rst1 As DAO.Recordset
    Dim sSQL As String
    Dim sSQL1 As String
    Dim Vdate_debut As Variant
    Dim Vdate_date_fin As Variant
 
    Vdate_debut = txt_date_debut.Value
    Vdate_date_fin = txt_date_fin.Value
 
'requete de selection des destinataires
 
sSQL = "SELECT T_adresse_mail.mail" & _
        " FROM T_adresse_mail" & _
        " WHERE (T_adresse_mail.type_envoi = dest) AND T_adresse_mail.type_liste Like '*" & "Plhebdo" & "*';"
 
'requete de selection des copies
 
sSQL1 = "SELECT T_adresse_mail.mail" & _
        " FROM T_adresse_mail" & _
        " WHERE (T_adresse_mail.type_envoi = copie) AND T_adresse_mail.type_liste Like '*" & "Plhebdo" & "*';"
 
 
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(sSQL, dbOpenSnapshot)
Set rst1 = dbs.OpenRecordset(sSQL1, dbOpenSnapshot)
...suite du code

j'ai tenté cela aussi mais toujours erreur 3061

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'requete de selection des destinataires
 
sSQL = "SELECT T_adresse_mail.mail" & _
        " FROM T_adresse_mail" & _
        " WHERE (T_adresse_mail.type_envoi = dest) AND (T_adresse_mail.type_liste Like '*" & "Plhebdo" & "*');"
 
'requete de selection des copies
 
sSQL1 = "SELECT T_adresse_mail.mail" & _
        " FROM T_adresse_mail" & _
        " WHERE (T_adresse_mail.type_envoi = copie) AND (T_adresse_mail.type_liste Like '*" & "Plhebdo" & "*');"

je vous remercie pour votre aide et vous souhaite une Belle journée

[nico84]

Bonjour,

Le but est de créer une chaine de caractères qui va faire la requete finale, les variables ne doivent donc pas être entre ""

Code :

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

1
2
3
4
5
6
7
8
 
sSQL = "SELECT T_adresse_mail.mail  FROM T_adresse_mail" & _
        " WHERE (T_adresse_mail.type_envoi = dest) AND T_adresse_mail.type_liste Like '*" & Plhebdo & "*';"
 
msgbox ssql  'code pour vérif
 
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(sSQL, dbOpenSnapshot)

En standard SQL, le joker est % donc selon le type de base il faut éventuellement remplacer * par %

[mgascult]

merci nico84,

Code :

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

1
2
3
4
5
6
7
8
9
sSQL = "SELECT T_adresse_mail.mail" & _
        " FROM T_adresse_mail" & _
        " (WHERE T_adresse_mail.type_envoi = dest) AND T_adresse_mail.type_liste Like '%" & "Plhebdo" & "%';"
 
'requete de selection des copies
 
sSQL1 = "SELECT T_adresse_mail.mail" & _
        " FROM T_adresse_mail" & _
        " (WHERE T_adresse_mail.type_envoi = copie) AND T_adresse_mail.type_liste Like '%" & "Plhebdo" & "%';"

j'ai remplacé les * mais rien

dest et Plhebdo ne sont pas des variables mais du texte à trouver dans les champs.

[nico84]

dest et Plhebdo ne sont pas des variables mais du texte à trouver dans les champs.

oui une variable ou un champ c'est pareil, d'où ma correction dans mon post précédent
Si la base est access c'est bien * le joker

[mgascult]

j'ai remodifié mais toujours erreur 3061

Code :

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

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
26
27
28
29
'déclaration des variable
    Dim qry As DAO.QueryDef
    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset
    Dim rst1 As DAO.Recordset
    Dim sSQL As String
    Dim sSQL1 As String
    Dim Vdate_debut As Variant
    Dim Vdate_date_fin As Variant
 
    Vdate_debut = txt_date_debut.Value
    Vdate_date_fin = txt_date_fin.Value
 
'requete de selection des destinataires
 
sSQL = "SELECT T_adresse_mail.mail" & _
        " FROM T_adresse_mail" & _
        " WHERE (T_adresse_mail.type_envoi = dest) AND T_adresse_mail.type_liste Like '*" & "Plhebdo" & "*';"
 
'requete de selection des copies
 
sSQL1 = "SELECT T_adresse_mail.mail" & _
        " FROM T_adresse_mail" & _
        " WHERE (T_adresse_mail.type_envoi = copie) AND T_adresse_mail.type_liste Like '*" & "Plhebdo" & "*';"
 
 
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(sSQL, dbOpenSnapshot)
Set rst1 = dbs.OpenRecordset(sSQL1, dbOpenSnapshot)

[tatayo]

Bonjour,
Telles qu'elles sont écrites, tes requêtes sont équivalentes à ceci:

Code sql :

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

1
2
3
4
 
SELECT T_adresse_mail.mail
FROM T_adresse_mail
(WHERE T_adresse_mail.type_envoi = dest) AND T_adresse_mail.type_liste Like '%Plhebdo'

Donc ici dest est une colonne de la table, et Plhebdo est la valeur cherchée dans la colonne T_adresse_mail.type_liste.

Est-ce vraiment ce que tu veux faire ? Perso j'ai quelques doutes...
Si dest est bien une chaîne, il faut l'entourer avec des simples quotes:

Code sql :

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

1
2
3
4
 
SELECT T_adresse_mail.mail
FROM T_adresse_mail
(WHERE T_adresse_mail.type_envoi = 'dest') AND T_adresse_mail.type_liste Like '%Plhebdo'

Et le code devient:

Code :

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

1
2
3
4
 
sSQL = "SELECT T_adresse_mail.mail" & _
        " FROM T_adresse_mail" & _
        " WHERE (T_adresse_mail.type_envoi = 'dest') AND T_adresse_mail.type_liste Like '*Plhebdo*';"

Tatayo.

[mgascult]

merci tatayo,

Dest et Plhebdo son bien des valeurs recherchées.
et du coup cela fonctionne bien comme ça.

Ce que je n'arrive pas aussi à comprendre c'est quand mettre une simple cote ou une double cote?

Code :

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

1
2
3
4
5
6
7
8
9
10
sSQL = "SELECT T_adresse_mail.mail" & _
        " FROM T_adresse_mail" & _
        " WHERE (T_adresse_mail.type_envoi = 'dest') AND T_adresse_mail.type_liste Like '*Plhebdo*';"
 
 
'requete de selection des copies
 
sSQL1 = "SELECT T_adresse_mail.mail" & _
        " FROM T_adresse_mail" & _
        " WHERE (T_adresse_mail.type_envoi = 'copie') AND T_adresse_mail.type_liste Like '*Plhebdo*';"

[tatayo]

C'est tout simple:

• La simple cote permet de délimiter une chaîne de caractère au sein d'une requête SQL.
• La double cote permet de délimiter une chaîne dans le code.

Par exemple:

Code :

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

1
2
3
4
 
sSQL = "SELECT T_adresse_mail.mail" & _
        " FROM T_adresse_mail" & _
        " WHERE (T_adresse_mail.type_envoi = 'dest') AND T_adresse_mail.type_liste Like '*" & Plhebdo & "*';"

Ici j'ai utilisé des doubles cotes, donc c'est le contenu de Plhebdo qui est mis dans le texte de la requête. Donc si plhebdo contient par exemple la chaîne ABC, la requête devient:

Code sql :

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

1
2
3
4
 
SELECT T_adresse_mail.mail
 FROM T_adresse_mail
  WHERE (T_adresse_mail.type_envoi = 'dest') AND T_adresse_mail.type_liste Like '*ABC*';

Mais si je garde des simples cotes:

Code :

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

1
2
3
4
 
sSQL = "SELECT T_adresse_mail.mail" & _
        " FROM T_adresse_mail" & _
        " WHERE (T_adresse_mail.type_envoi = 'dest') AND T_adresse_mail.type_liste Like '*Plhebdo*';"

La requête sera celle ci:

Code sql :

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

1
2
3
4
 
sSQL = "SELECT T_adresse_mail.mail
 FROM T_adresse_mail
 WHERE (T_adresse_mail.type_envoi = 'dest') AND T_adresse_mail.type_liste Like '*Plhebdo*';

Donc entre simple cote si tu veux mettre la chaîne, et double cote si tu veux le contenu d'une variable (ou d'un champ de saisie…).

Tatayo.

[mgascult]

merci Tatayo 🙏
Je me note celà