Trop peu de paramètres 1 requis (erreur 3061) avec automation

Version imprimable

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

Bonjour à tous

L'erreur 3061 apparait avec ce code d'automation Outlook sur une requête filtre qui fonctionne parfaitement dans l'interface, apparemment il n'y a pas d'erreur de noms de champs, je ne comprends donc pas pourquoi ça ne marche pas :

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Public Function ExportActionsOutlook()
 
Dim rst As DAO.Recordset
Dim db As DAO.Database
 
Set db = CurrentDb
Set rst = CurrentDb.OpenRecordset("RqExportActionsOutlook")
Debug.Print rst
    ' 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
 
End If
 
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 = rst!HoraireDebut
          .Duration = Nz(rst!DuréeAction)
          .Subject = rst!Contact & " " & rst![Vendeur/Intervenant]
          .Body = Nz(rst!NotesAction)
          .Location = Nz(rst!LieuAction)
          .ReminderMinutesBeforeStart = Nz(rst!MinutesRappel)
          .ReminderSet = Nz(rst!RappelAction)
 
             ' Définir l'indicateur AjoutéàOutlook, enregistrer, afficher un message.
             rst.Update "ajoutéàoutlook", -1
             .Save
       End With
 
   'Boucle
   rst.MoveNext
   Loop
 
   ' Libérer la variable objet Outlook.
   Set outobj = Nothing
   Set rst = Nothing
   Set outappt = Nothing
 
 
 MsgBox " Actions ajoutées à Outlook ! "
 
 Exit Function
AjoutAction_Err:
    MsgBox " Erreur " & err.Number & Chr(10) & err.Description
    Exit Function
End Function

La requête source est la suivante :

Code:

1
2
3
4
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]
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;

Merci d'avance pour votre aide.

08/12/2014, 16h15
loufab

Bonjour,

Ton problème est là.

Code:

=[Formulaires]![Groupes Actions]![NumGrpAction]

Il y a plusieurs discussions sur ce sujet dont l'une le mois dernier et un tuto.

Pas bien de ne pas utiliser la recherche... surtout pour un habitué :mouarf:

Cordialement,
08/12/2014, 18h32
clickandgo

Merci pour ta réponse Loufab mais je ne la comprend pas !

CA veut dire que je ne peux pas me servir directement du nom de la requête pour ce recordset car on est en DAO ?
Je suis obligé alors de créér un string sql avec le contenu de la requête en changeant la syntaxe du champ filtre ?

Y a pas moyen d'utiliser la requête d'origine tel quel dans le code ?

merci
09/12/2014, 09h11
loufab

Bonjour,
Pas écrite comme ça en tout cas. Il va falloir la transformer pour que DAO puisse interprété ton adresse IHM.
Soit tu utilises PARAMETERS soit tu utilises une fonction (perso ou standard) pour qu'il puisse évaluer l'expression.

Voici une discussion qui propose des solutions.

http://www.developpez.net/forums/d14...us-formulaire/

Mais ce ne sont pas les seules.

Cordialement,

Bonjour Loufab, merci pour ta réponse, j'ai un peu avancé :

J'ai compris qu'il faut se servir de parameters pour que la requête s'éxécute correctement en DAO , j'ai donc écrit ce code :
Code:

1 2 3 4 5 6 7 8 9 Dim db As DAO.Database, rst As DAO.Recordset Dim qdf As QueryDef Set qdf = CurrentDb.QueryDefs("rqexportactionsoutlook") qdf.Parameters("Forms![groupes actions]![NumGrpAction]").Value = Forms![groupes actions]![NumGrpAction] Set rst = qdf.OpenRecordset Debug.Print rst
maintenant il me sort "élément non trouvé, erreur 3265" pourtant dans l'éditeur VBA les références à la valeur demandée sont bien auto-complétées par l'éditeur ce qui indique une bonne réference au control qui sert de filtre sur le formulaire ... Que se passe t'il ?

Merci d'avance

09/12/2014, 18h11
loufab

Tu as modifié le code SQL de requête ?
09/12/2014, 18h15
clickandgo

Citation:

Envoyé par loufab

Tu as modifié le code SQL de requête ?

Non seulement je l'ai pas modifiée mais elle marche toujours parfaitement dans l'interface, je ne vois donc pas ou ça coince ...
De toutes façons une fois le code correct, je peux décider de n'utiliser que certains champs de requête dans mon automation et pas tous non ?
10/12/2014, 11h53
loufab

Bonjour,

Utiliser simplement la propriété Parameters de DAO ne suffit malheureusement pas.
Il faut également modifier le SQL de la requête.

Sinon passer par une fonction et dans ce cas il y a juste une modif coté requête et rien coté code. Il me semble que tu n'as pas lu le lien que je t'ai fourni :weird:

Cordialement,
11/12/2014, 18h32
clickandgo

Merci Loufab pour ces précisions mais je ne trouve toujours pas de solution ...
Peut-on faire ça sans passer par DAO en utilisant une instruction SQL ?

Le but étant de faire une boucle pour automation de RDV dans Outlook (voir le restant du code).

Merci

Solution 1:

Code:

1
2
3
4
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]
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)=environ("[Formulaires]![Groupes Actions]![NumGrpAction]")))
ORDER BY T_RendezVous.HoraireDebut DESC;

Solution 2:

Code:

1
2
3
4
5
6
7
8
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]
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)=getNumGrpAction()))
ORDER BY T_RendezVous.HoraireDebut DESC;
 
'dans un module standard
Public function getNumGrpAction()
getNumGrpAction = Forms("Groupes Actions").NumGrpAction
end Function

3ème Solution :

Code:

1
2
3
4
5
6
7
8
PARAMETERS groupmachin Long;
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]
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)=[GroupMachin])))
ORDER BY T_RendezVous.HoraireDebut DESC;
 
...
qry.Parameters("groupmachin") = valeur

12/12/2014, 11h46
clickandgo

Merci beaucoup Loufab pour ces éclaircissements, j'essaye ce week-end et si ça marche je reviens poster un message ...

Bon week-end

Bonjour à tous,

J'ai tout essayé, impossible de faire fonctionner ce code ... Dernièrement j'applique la méthode pour requêtes paramétrées en VBA dont voici le code et ça me donne une erreur '3265' "élement non trouvé dans cette collection" en pointant cette ligne , incompréhensible !

Code:

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

Code complet :

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
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
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 = rst!HoraireDebut
          .Duration = Nz(rst!DuréeAction)
          .Subject = rst!Contact & " " & rst![Vendeur/Intervenant]
          .Body = Nz(rst!NotesAction)
          .Location = Nz(rst!LieuAction)
          .ReminderMinutesBeforeStart = Nz(rst!MinutesRappel)
          .ReminderSet = Nz(rst!RappelAction)
 
             ' Définir l'indicateur AjoutéàOutlook, enregistrer, afficher un message.
             rst.Update "ajoutéàoutlook", -1
            .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

Merci de votre aide

Salut,

Si on reprend la 3ème solution proposée par Loufab, ça devrait donner pour la requête "rqexportactionsoutlook":

Code:

1
2
3
4
5
PARAMETERS [Forms]![groupes actions]![numgrpaction] Long;
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]
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)=[Forms]![groupes actions]![numgrpaction] )))
ORDER BY T_RendezVous.HoraireDebut DESC;

Note que le paramètre de la requête est bien cette fois-ci [Forms]![groupes actions]![numgrpaction].

Ensuite dans le code VBA, tu devrais avoir :

Code:

1
2
3
4
5
6
7
 
  ' 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()
...

Et bien sûr il faut que le formulaire "groupes actions" soit ouvert quand tu exécutes le code.

a+

Bonjour à tous

J'ai donc fait selon vos recommandations : tout à l'air d'être accepté sauf qu'avant que les données soient exportées vers Outlook apparait une erreur 13 d'incompatibilité de type ...
Pourtant en faisant un pas à pas l'erreur sort en dernier sans pointer nulle part dans le code.
le debug.print renvoie des valeurs correctes sauf un null pour le champ [notesaction] qui me paraît une valeur normale ...

La requête source ne contient plus de filtre mais le paramètre est bien pris en compte dans le volet "Paramètres" et s'éxécute parfaitement

D’où pourrait venir cette erreur d'incompatibilité alors ?

NB: J'ai déclaré en "string" le parameter car il était en "Long" car il s'agit vraiment d'un champ texte de taille 13 combinant chiffres et lettres ...

Merci

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
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 = rst!HoraireDebut
          .Duration = Nz(rst!DuréeAction)
          .Subject = rst!Contact & " " & 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
 
 
 
             ' Définir l'indicateur AjoutéàOutlook, enregistrer, afficher un message.
 
             rst.Update "ajoutéàoutlook", -1
            .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

20/01/2015, 14h43
User

Bonjour,

Une valeur nulle dans un champ peut lever ce type d'erreur si tu dois affecter cette valeur à un autre champ.

Tu devrais plutôt essayer :

Code:

.Body = Nz(rst!NotesAction,"")

Sans garantie :oops:
20/01/2015, 14h53
clickandgo

je te remercie pour ta réponse j'ai tout mis selon ton conseil : rien y fait ! :( Késako ?
20/01/2015, 15h33
User
essaie de faire un débug de ton paramètre:
Code:

1 2 debug.print forms![groupes actions]!numgrpaction
pour vérifier ce qu'il affiche...
20/01/2015, 15h44
clickandgo

Il affiche bien le bon string original ...
20/01/2015, 16h42
User
Apparemment ta commande debug.print qui apparaît dans ton ancien code passe donc l'erreur viendrait de la partie suivante :
Code:

1 2 rst.Update "ajoutéàoutlook", -1 .Save
El là j'avoue ne pas comprendre ce que tu veux faire avec cette instruction rst.Update "ajoutéàoutlook", -1....

:merci:
20/01/2015, 17h10
clickandgo

Cela sert à actualiser le champ "Ajouté à Outlook" permettant d'exporter ensuite seulement les actions non encore exportées dans Outlook...

Je vais virer cette commande et je vous communique le résultat d'ici ce soir

Merci

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