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