Discussion :

[clickandgo]

Bon, les nouvelles :

Çà a marché pendant un moment mais le filtre ne fonctionnait pas , m'exportant des centaines de données de rdv en mettant une plombe ....

Maintenant revient l'erreur "trop peu de paramètres, 2 attendus" et le débogueur s'immobilise sur la ligne :

Code :

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

Set rst = qdf.OpenRecordset()

C'est à devenir fou !

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
Public Function ExportActionsOutlook()
 
Dim qdf As DAO.QueryDef
Dim rst As DAO.Recordset
 
  ' Référence à la requête
 
Set qdf = CurrentDb.QueryDefs("rqexportactionsoutlook")
qdf.Parameters("[Forms]![groupes actions]![numgrpaction]") = Forms![groupes actions]![NumGrpAction]
Set rst = qdf.OpenRecordset()
 
 
    ' Enregistrer d'abord pour s'assurer que les champs requis sont remplis.
    DoCmd.RunCommand acCmdSaveRecord
 
    On Error GoTo AjoutAction_Err
 
'Vérifie qu'il existe des actions à exporter
 
If rst.RecordCount = 0 Then
 
MsgBox "Il n'y a aucune action à exporter vers Outlook", vbOKOnly, "Transfert annulé"
 
Exit Function
 
Else
 
rst.MoveFirst
 
Do While Not rst.EOF
 
 
    ' Ajouter un nouveau rendez-vous.
 
       Dim outobj As New Outlook.Application
       Dim outappt As Outlook.AppointmentItem
       Set outobj = CreateObject("outlook.application")
       Set outappt = outobj.CreateItem(olAppointmentItem)
 
       With outappt
 
 
        .Start = Nz(rst!HoraireDebut, "")
          .Duration = Nz(rst!DuréeAction, "")
          .Subject = Nz(rst!Contact, "") & " " & Nz(rst![vendeur/intervenant], "")
          .Body = Nz(rst!NotesAction, "")
          .Location = Nz(rst!LieuAction, "")
          .ReminderMinutesBeforeStart = Nz(rst!MinutesRappel, "")
          .ReminderSet = Nz(rst!RappelAction, "")
          Debug.Print rst!HoraireDebut, rst!DuréeAction, rst![vendeur/intervenant], rst!NotesAction, rst!LieuAction, rst!MinutesRappel, rst!RappelAction
          Debug.Print Forms![groupes actions]!NumGrpAction
 
 
             ' Définir l'indicateur AjoutéàOutlook, enregistrer, afficher un message.
             CurrentDb.Execute ("update t_rendezvous set t_rendezvous.ajoutéàoutlook=-1 where ((t_rendezvous.numaction=forms![groupes actions]![sf groupes actions].form))")
 
 
            .Save
       End With
 
   'Boucle
   rst.MoveNext
   Loop
  End If
 
   ' Libérer la variable objet Outlook.
   Set outobj = Nothing
   Set rst = Nothing
   Set outappt = Nothing
    ' Libération de la référence
Set qdf = Nothing
 MsgBox " Actions ajoutées à Outlook ! "
 
 Exit Function
 
AjoutAction_Err:
    MsgBox " Erreur " & err.Number & Chr(10) & err.Description
    Exit Function
End Function

Code requête :

Code SQL :

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

1
2
3
4
5
PARAMETERS [Forms]![groupes actions]![numgrpaction] Text (9);
SELECT T_RendezVous.HoraireDebut, T_RendezVous.NumContact, T_RendezVous.NotesAction, T_RendezVous.LieuAction, T_RendezVous.RappelAction, T_RendezVous.MinutesRappel, T_RendezVous.AjoutéàOutlook, T_RendezVous.DuréeAction, RqContacts.Contact, [Vendeurs et Intervenants].[Vendeur/Intervenant], T_RendezVous.NumGrpAction
FROM RqContacts INNER JOIN ([Vendeurs et Intervenants] INNER JOIN T_RendezVous ON [Vendeurs et Intervenants].IdVendeurIntervenant = T_RendezVous.IdIntervenant) ON RqContacts.NumContact = T_RendezVous.NumContact
WHERE (((T_RendezVous.NumGrpAction)=[Formulaires]![Groupes Actions]![NumGrpAction]))
ORDER BY T_RendezVous.HoraireDebut DESC;

[User]

et quand tu ouvres ta requête manuellement ?

[clickandgo]

La requête s' exécute sans aucun problème !

[User]

Bonjour,

Juste une remarque :

Il faut que vous sortiez de la boucle la commande qui ouvre outlook :

Code :

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

1
2
3
4
...
Dim outobj As New Outlook.Application
Set outobj = CreateObject("outlook.application")
...

ça vous fait une instance OutLook de crée et de détruite à chaque passage de boucle

[clickandgo]

Merci beaucoup pour cette remarque très pertinente

Pour ce qui est du message auriez vous une idée de ce qui provoque cette erreur ?

[User]

si ça pointe le openrecordset alors il ne reste que le paramètre...

[loufab]

Bonjour,
Je reviens dans la discussion :

Si tu fais ceci :

Code :

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

1
2
3
Set qdf = CurrentDb.QueryDefs("rqexportactionsoutlook")
qdf.Parameters("[Forms]![groupes actions]![numgrpaction]") = Forms![groupes actions]![NumGrpAction]
Set rst = qdf.OpenRecordset()

Quel intérêt de mettre un nom aussi long ?
Fais simplement ceci :

Code :

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

1
2
3
Set qdf = CurrentDb.QueryDefs("rqexportactionsoutlook")
qdf.Parameters("[NumGrpAction]") = Forms![groupes actions]![NumGrpAction]
Set rst = qdf.OpenRecordset()

et pour la requête cela :

Code SQL :

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

1
2
3
4
PARAMETERS [NumGrpAction] Text (9);
SELECT...
WHERE (((T_RendezVous.NumGrpAction)=[NumGrpAction]))
...

Simplifier ! Il faut simplifier !

Cordialement,

[clickandgo]

Bonjour Loufab,

J'ai fait ce que tu préconisais mais il me sort "élément non trouvé dans cette collection" en pointant :

Code :

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

qdf.Parameters("[numgrpaction]") = Forms![groupes actions]![NumGrpAction]

D'autre part si j’exécute la requête le paramètre est ignoré = pas de filtre, est ce normal ?

Merci

[loufab]

Bonjour,
Tu as dû faire une erreur dans la requête ou bien ce n'est pas la bonne requête auquel tu fais référence. Eventuellement tu peux faire un
debug.print qdf.SQL avant de faire le Openrecorset()
Ainsi tu verras si le paramètre est le bon.

Je te joins un exemple fonctionnel.
Voici mon code placé sur un bouton :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande2_Click()
Dim rq As DAO.QueryDef
Dim rst As DAO.Recordset
Set rq = CurrentDb.QueryDefs("rqt")
rq.Parameters("[Nom]") = Forms!formulaire1!texte1
Set rst = rq.OpenRecordset()
Debug.Print rst.Fields(0)
Stop
End Sub

Basé sur une requête nommée "rqt" que voici :

Code SQL :

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

1
2
3
4
PARAMETERS [Nom] Text ( 9 );
SELECT Table1.N°, Table1.Champ1
FROM Table1
WHERE (((Table1.Champ1)=[Nom]));

La table se nomme "table1" elle contient 2 champs :
N° qui est un numéroAuto
Champ1 qui est du Texte.

Le formulaire "Formulaire1" contient une zone de texte nommé "Texte1".

Cordialement,