VBA avec requête SQL

Version imprimable

Je ne comprends pas pourquoi ma requête ne s'exécute pas.
Quan je lance ce code il passe ma requête sans l'exécuter et sans me mettre d'erreur. Il ne me demande jamais le paramêtre value de ma semaine.

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Dim db As DAO.Database, qry As QueryDef
    Dim rs As DAO.Recordset
    Dim mail, erreur As String
    Dim entreprise As String
 
 
 
    Set db = CurrentDb
    'On Error Resume Next
    Set qry = db.QueryDefs("ReqEmail")
    If Err.Number <> 0 Then
        Set qry = db.CreateQueryDef("ReqEmail")
        Err.Clear
    End If
 
    'On Error GoTo Err_buEnvoiMail_Click
    Set rs = CurrentDb.OpenRecordset("SELECT [MaisonTest].Entreprise, [MaisonTest].[EMail] FROM [MaisonTest];")
    While Not rs.EOF
 
        qry.SQL = "PARAMETERS semaine Value;" & _
        " SELECT Regie_base2.Societe, [Rqt_base_Analyse croisée].semaine,[MaisonTest].N° AS Code," & _
        " [MaisonTest].Entreprise, Last(Regie_base2.Branche) AS DernierDeBranche, Last([MaisonTest].Nom) AS Reference, Last([MaisonTest].Rue) AS DernierDeRue," & _
        " Last([MaisonTest].Npa) AS DernierDeNpa, Last([MaisonTest].Ville) AS DernierDeVille, Last([MaisonTest].Fax) AS DernierDeFax, Last(Regie_base2.Qualite) AS DernierDeQualite, " & _
        " Last(Regie_horaire.Matricule) AS DernierDeMatricule, Last(Regie_base2.Nom) AS DernierDeNom, Last(Regie_base2.Prenom) AS DernierDePrenom, Last(Regie_base2.Centre_cout) AS DernierDeCentre_cout," & _
        " Last([Rqt_base_Analyse croisée].[Total de Heures]) AS [DernierDeTotal de Heures], Last(Regie_base2.Tarif) AS DernierDeTarif, Last(([Total de Heures]*[Tarif])) AS Montant, [Rqt_base_Analyse croisée].lundi," & _
        " [Rqt_base_Analyse croisée].mardi, [Rqt_base_Analyse croisée].mercredi, [Rqt_base_Analyse croisée].jeudi, [Rqt_base_Analyse croisée].vendredi" & _
        " FROM ([Rqt_base_Analyse croisée] LEFT JOIN Regie_horaire ON [Rqt_base_Analyse croisée].Matricule = Regie_horaire.Matricule) LEFT JOIN (Regie_base2 LEFT JOIN [MaisonTest] ON Regie_base2.Code = [MaisonTest].N°)" & _
        " ON [Rqt_base_Analyse croisée].Matricule = Regie_base2.Matricule" & _
        " WHERE [MaisonTest].Entreprise = " & Chr(34) & rs("Entreprise") & Chr(34) & _
        " GROUP BY Regie_base2.Societe, [Rqt_base_Analyse croisée].semaine, [MaisonTest].N°, [MaisonTest].Entreprise, [Rqt_base_Analyse croisée].lundi, [Rqt_base_Analyse croisée].mardi, [Rqt_base_Analyse croisée].mercredi, [Rqt_base_Analyse croisée].jeudi, [Rqt_base_Analyse croisée].vendredi" & _
        " HAVING (((Regie_base2.Societe) = 'cimo') And (([Rqt_base_Analyse croisée].semaine) = [semaine]))" & _
        " ORDER BY [MaisonTest].Entreprise DESC;"
 
        entreprise = rs("Entreprise")
        mail = rs("EMail")
 
        If (mail <> "") Then
        DoCmd.SendObject acReport, "etEmail", acFormatSNP, mail
        Else
        erreur = MsgBox("Pour cette entreprise il n'y a pas d'email valide.", vbOKOnly, "Email invalide")
        End If
 
 
 
        rs.MoveNext
    Wend
rst.Close

Merci d'avance

17/10/2006, 11h19
soltani1

Bonjour,

Essaie après le nom du paramètre de mettre le type du paramètre.

A+
17/10/2006, 11h19
Sonic

Salut
Je sais pas à quoi tu destines cette requete mais c'est normal tu n'exécute jamais ton QueryDefs, un petit qry.openrecordset ferait pas de mal ;)

Tu n'utilises pas les querydef comme il faut :

Exemple d'utilisation :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub test() Dim db As Database Dim re As Recordset Dim qu As QueryDef Set db = CurrentDb() Set qu = db.QueryDefs("Test") qu.Parameters("[Param]") = 12 Set re = qu.OpenRecordset '.... ton code re.Close qu.Close db.Close End Sub
Sur cet exemple, je part du principe que j'ai une requete mémorisé dans Acces le nom de "Test", cette requete attendant un paramètre du nom de 'Param'.

1) Je référence ma requete :
set qu=db.querydef("Test")

2) J'attribue la valeur a mon paramètre
qu.parameters("[Param]") = 12

3) Et j'ouvre mon recordset basé sur la requete précédente
Set re=qu.openrecordet (c'est ca qu'il te manque)

17/10/2006, 15h28
seba_stien

Je comprend pas trop ce qu'il faut ajouter.
Le but de mon code est d'envoyer un Etat par mail. Cet Etat a comme source ma requête que je modifie a chaque passage de ma boucle. Donc jaimerais qu'elle se sauvegarde chaque fois...
Et ma question est : Pour quoi elle ne me demande pas la valeur de ma semaine. Quand je la lance en SQL elle le fait!

Je comprend pas trop ce que vient faire le : openrecordset ??
17/10/2006, 15h37
Kloun

Tu veux l'envoyer comment ton état par mail ?
17/10/2006, 15h39
seba_stien

Avec : DoCmd.SendObject acReport, "etEmail", acFormatSNP, mail

ça envoie par mail mon état avec l'adresse email correspondante.