Discussion :

[AlainL]

Bonjour

Etant débutant dans l'utilisation des recordsets:

J'ai d'une part une requète qui me combine des infos de plusieurs tables.

D'autre part un formulaire me permettant de sélectionner certains critères, et un bouton qui, Sur Clic, devrait me permettre d'aller extraires des infos des enregistrements concernés de ma requête.

La requête est la source de données du formulaire.

Je pensais qu'un code simple comme:

Code :

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

1
2
3
For Each MonChampUnDuRecordSet In Me.RecordsetClone
    MonChampFormulaire = ChampDeuxDuRecordSet
    Next

devrait en fait répondre à mon besoin. Et ce n'est de toute évidence pas le cas

L'objectif: parcourir ce recordset pour y trouver certains champs.

Je suis sûr que vous serez de bonseil... Merci d'avance

[Pierre Fauconnier]

Bonjour

Je ne suis pas certain d'avoir compris le problème.

Pour afficher des valeurs de champ dans un formulaire, il "suffit" que le formulaire s'appuie sur la bonne source (table ou requête) et que les différents contrôles du formulaire devant afficher les valeurs pointent vers les champs correspondants du recordset.

Il me semble donc plus judicieux d'adapter la source du formulaire au recordset résultat de la requête, en ayant eu soin, en création de formulaire, de faire pointer les contrôles vers les champs ad hoc de la source...

[AlainL]

Merci Pierre, mais cela ne peut - enfin je ne crois pas - fonctionner comme cela.

Le formulaire a des critères de choix (combinant un total de plus de 30 combinaisons).

Et son but est de m'extraire les adresses e-mail des personnes répondant à ces critèes (puisque Outlook Express n'est d'après le forum pas pilotable directement) dans une zone de texte vide au début, et de le me les présenter prêtes à copier/coller.

Ceci me permettrait de faire un simple copier/coller dans la zone de destination des messages dans Outlook Express.

A moins que tu aies une autre méthode, j'ai éliminé celle de faire des requêtes successives en cascade, souhaitant effectuer la sélection dynamiquement via les champs de sélection de mon formulaire.

Je pensais donc simplement parcourir le recordset, en piquant ça et là les infos dont j'ai besoin. Mais ce n'est peut-être pas la solution idéale....

Est-ce plus clair ?

[Pierre Fauconnier]

Aurais-je mieux compris?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub cmdCreer_Click()
    Dim rs As ADODB.Recordset
    Dim sql As String
 
    sql = "select * from tcontacts where courriel like '%" & txtRecherche & "%'"
    Set rs = CurrentProject.Connection.Execute(sql)
    Do While Not rs.EOF
        txtAdresses = txtAdresses & rs.Fields("courriel") & ";"
        rs.MoveNext
    Loop
End Sub

suite à un clic sur le bouton nommé cmdCreer, création d'un recordset spécifique (si j'ai compris, tu sais faire, je n'ai mis que pour l'exemple, à toi d'agrémenter en fonction de tes critères de sélection) puis parcours du recordset et ajout du champ Courriel (à adapter) au contrôle texte txtAdresses (à adapter)

[AlainL]

Hé ! C'est nettement plus futé que ce que j'essayais. Vais de ce pas aller essayer cette version.

Merci.

Je reviens pour mettre résolu si cela l'est

[Pierre Fauconnier]

Heu... Petite erreur de ma part. Si tu as conservé la syntaxe sql de Access, il faut remplacer % par * dans le texte de la requête

[AlainL]

Bon, c'est pas grave: il bloque sur

Code :

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

Dim rs As ADODB.Recordset

Comme "Type défini par l'utilisateur non défini"

J'ai donc tenté d'ajouter la référence à Outils/Reference
Microsoft DAO 3.6 Objet Library

et j'obtiens:
"Nom de module, de projet ou de bibliothèque d'objets déjà utilisé"

Resultat... je suis largué

[Pierre Fauconnier]

Tu disais dans le titre que tu étais en A07 => normalement, la librairie ad hoc est chargée par défaut.

Voici le code pour la librairie DAO (J'ai remis les astérisques)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub cmdCreer_Click()
    Dim rs As DAO.Recordset
    Dim sql As String
 
    sql = "select * from tcontacts where courriel like '*" & txtRecherche & "*'"
    Set rs = CurrentDb.OpenRecordset(sql)
    Do While Not rs.EOF
        txtAdresses = txtAdresses & rs.Fields("courriel") & ";"
        rs.MoveNext
    Loop
End Sub

[AlainL]

Ahem... je crains de devoir te casser encore les pieds (enfin... les doigts )

Le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub BUT_Getit_Click()
Dim rs As DAO.Recordset
Dim Sql As String
Sql = "SELECT * FROM rs WHERE CLI_Lan LIKE '*" & Me.SEL_Lan.Value & "*' AND CLI_Typ LIKE '*" & Me.SEL_CLI.Value & "*' AND SER_Typ LIKE '*" & Me.SEL_Mod.Value & "*'"
MsgBox (Sql)
Set rs = CurrentDb.OpenRecordset(Sql)
Do While Not rs.EOF
    ML_List = ML_List & rs.Fields("CLI_Mai") & ";"
    rs.MoveNext
Loop
End Sub

me donne, sur l'instruction

Code :

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

Set rs = CurrentDb.OpenRecordset(Sql)

"Le moteur... ne peut pas trouver la requete source "rs"..."

Pourtant, le Dim le définit bien...

Désolé, mais dans ce truc là, je suis nul !

[Pierre Fauconnier]

Tu dois construire la chaine sql avec des tables ou des requêtes existant dans Access... Or, tu utilises rs, alors que c'est justement ce que tu vas définir par la suite.

Si tu regardes mon code, tu verras que, pour la chaine sql, j'utilise from tcontacts où tContacts représente la table dans laquelle aller chercher les enregistrements...

Ta clause from rs doit donc être remplacée par from ... où les ... doivent être remplacés par le nom de la table ou de la requête qui contient les enregistrements non filtrés.

[AlainL]

Ah, mais c'est... bien sûr !

Merci beaucoup Pierre, cela fonctionne parfaitement...

J'aurais dû y penser tout seul

Merci de ton aide