Discussion :

[moicats]

bonjour,

ça fait un bon moment que je planche sur mon probleme et je reviens toujours sur le même défaut, je n'y comprend plus rien.

voici mon code:

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
Private Sub Form_Current()
Dim oRst0 As DAO.Recordset
Dim qdf As DAO.QueryDef
Dim strto As String
Dim sqlmail As String
 
Set qdf = CurrentDb.QueryDefs("mail")
 
Set oRst0 = qdf.OpenRecordset
 
'boucle liste adresse
While Not oRst0.EOF
   strto = strto & oRst0.Fields("adresse mail") & "; "
   oRst0.MoveNext
Wend
'sup derniere ;
Me!qui.Value = Left(strto, Len(strto) - 2)
 
End Sub

j'ai verifier ma requête "mail" contient bien 1 enregistrement quand je l'ouvre directement sur access.

si quelqu'un peu m'expliquer ce serai gentil
merci d'avance

[psykodumarteau]

Bonjour,

Ta requête doit contenir un paramètre. Peux-tu nous montrer le SQL de ta requête? Vérifie qu'il ne contient pas de valeur entre [] du genre [formulaire]![MonForm]...

Cordialement

[moicats]

merci, justement c'est ce que je viens de trouver.

c'est quand je lie ma requete a mon formulaire que l'erreur apparait.

alors comment faire? car je ne veut pas tous les enregistrements de mes tables ce lien est important.

[Demco]

Peut-être cet exemple de la FAQ t'aidera-t-il :
http://access.developpez.com/faq/?page=SQL#ReqParamVar

En espérant t'aider.

[psykodumarteau]

Bonjour,

1) Tu peux linker le SQL de ta requête "mail" svp. Pour cela :
- ouvre la en modification
-à cote du bouton qui permet d'afficher le résultat de la requête il a une petit flèche, clique dessus et sélectionne SQL
- copie/colle le SQL dans un poste.

2)

c'est quand je lie ma requête a mon formulaire que l'erreur apparait.

Quelle erreur apparait?


Cordialement

[moicats]

bonjour, merci et désolé du retard

voici ma requete :

Code :

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

1
2
3
SELECT PERSONNEL.[adresse mail], [FONCTIONS DU PERSONNEL].FONCTION, [DIFFUSION DES DOCUMENTS].[REF document], [IDENTIFICATION DES DOCUMENTS].CODE
FROM PERSONNEL INNER JOIN ([IDENTIFICATION DES DOCUMENTS] INNER JOIN ([DIFFUSION DES DOCUMENTS] INNER JOIN [FONCTIONS DU PERSONNEL] ON [DIFFUSION DES DOCUMENTS].FONCTION = [FONCTIONS DU PERSONNEL].FONCTION) ON [IDENTIFICATION DES DOCUMENTS].[REFERENCE DOCUMENT] = [DIFFUSION DES DOCUMENTS].[REF document]) ON PERSONNEL.[REFERENCE PERSONNEL] = [FONCTIONS DU PERSONNEL].[REF personnel]
WHERE (((PERSONNEL.[adresse mail]) Is Not Null) AND (([IDENTIFICATION DES DOCUMENTS].CODE)=[Formulaires]![choix document mail]![Modifiable0]));

si j'enlève la partie en rouge mon recordset fonctionne mais le résultat est forcément différent de celui que j'attend.

et si je le laisse il me fait le défaut indiqué dans le titre du message.

dans les exemples que j'ai déja vu, il ne font pas appel a une requete de la base, mais l'écrivent directement dans vba.
suis je obligé de faire comme ça aussi?

merci d'avance pour votre aide

[moicats]

merci à tous j'ai trouvé la solution à mon problème.

dans ma requete sql en fait il fallait faire quelque modification et rajouter "parametres". voici la requete modifié:

Code :

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

1
2
3
4
PARAMETERS doc Text ( 50 );
SELECT PERSONNEL.[adresse mail], [FONCTIONS DU PERSONNEL].FONCTION, [DIFFUSION DES DOCUMENTS].[REF document], [IDENTIFICATION DES DOCUMENTS].CODE
FROM PERSONNEL INNER JOIN ([IDENTIFICATION DES DOCUMENTS] INNER JOIN ([DIFFUSION DES DOCUMENTS] INNER JOIN [FONCTIONS DU PERSONNEL] ON [DIFFUSION DES DOCUMENTS].FONCTION = [FONCTIONS DU PERSONNEL].FONCTION) ON [IDENTIFICATION DES DOCUMENTS].[REFERENCE DOCUMENT] = [DIFFUSION DES DOCUMENTS].[REF document]) ON PERSONNEL.[REFERENCE PERSONNEL] = [FONCTIONS DU PERSONNEL].[REF personnel]
WHERE (((PERSONNEL.[adresse mail]) Is Not Null) AND([IDENTIFICATION DES DOCUMENTS].CODE)=doc);

en rouge ce qui a changé.

ensuite dans mon code vba:

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
Private Sub Form_Current()
Dim oRst0 As DAO.Recordset
Dim qdf As DAO.QueryDef
Dim strto As String
Dim sqlmail As String
num_doc = Forms![choix document mail]![Modifiable0]

Set qdf = CurrentDb.QueryDefs("mail")
qdf.Parameters("doc").Value = num_doc
Set oRst0 = qdf.OpenRecordset

'boucle liste adresse
While Not oRst0.EOF
   strto = strto & oRst0.Fields("adresse mail") & "; "
   oRst0.MoveNext
Wend
'sup derniere ;
Me!qui.Value = Left(strto, Len(strto) - 2)
   
End Sub

ce que j'ai rajouté est en gras et en vert.

et comme ça, ça marche
bonne soirée