Discussion :

[wizard0147]

Bonjour à tous,

J'ai créé une requête pour récupérer la liste des adresse emails d'une table via le code ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Envoi_DA()
 
    Dim Reco As Recordset
 
    Set Reco = CurrentDb.OpenRecordset("SELECT * FROM T_Utilisateurs WHERE A_Droits = 'DirCo' OR A_Droits= 'DirRD';")
 
    MsgBox (Reco("Email"))
 
End Sub

Mon problème est qu'il existe plusieurs utilisateurs dont A_Droits est égal à "DirCo" ou "DirRD" est que la MsgBox ne fait apparaitre que le premier enregistrement.
J'ai beau cherché, je trouve pas la solution.

De plus, cette requête a pour but de récupérer les adresses pour l'envoi d'un Mail via Outlook, il fuadrait donc que les adresses soient séparés par un ";".

Merci pour votre aide

[madefemere]

Bonjour,

Il faut que tu parcours les enregistrements de ton Recordset avec des méthodes Move... comme expliqué dans l'article de Christophe Warin ICI.

Du genre :

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
Private Sub Envoi_DA()
 
    Dim Reco As Recordset
    Dim EmailPers as String
    Set Reco = CurrentDb.OpenRecordset("SELECT * FROM T_Utilisateurs WHERE A_Droits = 'DirCo' OR A_Droits= 'DirRD';")
    With Reco
          .MoveFirst
          While Not .EOF
                    EmailPers= ![Email] & ";"
          .MoveNext
          Wend
    End With
    MsgBox "Liste des emails : ", EmailPers
    Reco.Close
    Set Reco = nothing
End Sub

Cordialement

[wizard0147]

Bonjour madefemere et merci pour té réponse !

J'ai testé ton code mais le problème est maintenant inverse. Seul le dernier enregistrement apparaît.

Merci pour le lien très instructif. Je l'ai parcouru mais j'avoue avoir du mal à tout comprendre.

Autre question, quel est l'intérêt de mettre ces 2 lignes de codes :

Code :

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

1
2
    Reco.Close
    Set Reco = nothing

Merci encore !

[madefemere]

Bonjour,
Désolé mais effectivement j'ai oublié "certaines choses", le code corrigé :

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
Private Sub Envoi_DA()
 
    Dim Reco As Recordset
    Dim EmailPers as String
    Set Reco = CurrentDb.OpenRecordset("SELECT * FROM T_Utilisateurs WHERE A_Droits = 'DirCo' OR A_Droits= 'DirRD';")
    EmailPers = ""
    With Reco
          .MoveFirst
          While Not .EOF
                    EmailPers= EmailPers & ";" & ![Email]
          .MoveNext
          Wend
    End With
    MsgBox "Liste des emails : ", EmailPers
    Reco.Close
    Set Reco = nothing
End Sub

Les 2 dernières lignes de code ferment et nettoient l'instance du Recordset "Reco" qui a été ouvert. Il faut comprendre que le Recordset est instancié "quelque part" dans la mémoire de ta machine. Donc si on refait appel à un Recordset "Reco" après, les conséquences sont imprévisibles.

Cordialement,

[wizard0147]

Merci beaucoup pour ta réponse super rapide ! Ça marche impeccable
J'ai bien compris la petit nuance avec le code précédent, je pense que j'arriverai à le refaire sans trop de problèmes.

Sinon, j'ai mis pas mal de Recordset dans ma BDD et c'est vrai que je ne les "efface" jamais. Je vais modifier mon code en conséquence.
Merci pour tes explications claires !