Discussion :

[Tolkienz3]

Bonjour à tous, je débute même débute bcp en programmation.
J'utilise la fonction suivant
DoCmd.SendObject acSendTable, , acFormatRTF, champ A dans une table, , , champ b dans une table, champ c dans une table, False

Je voudrais pouvoir parcourir la table et envoyer un mail pour chaque record se touvant dans ma table.
Je ne sais pas comment il faut ouvrir une table et recupérer les champs envoyé le mail et passer au prochain record.
Je n'ai malheureusement presque aucune connaissance en vb

Le mail est envoyé sans problème quand je remplis les champs à la main dans la fonction ci-sessus.

[pc75]

Bonjour,

Tu dois pouvoir t'en sortir en utilisant un recordset.

[Tolkienz3]

Bonjour,

Tu dois pouvoir t'en sortir en utilisant un recordset.

Merci pour ta réponse mais pour moi c'est du chinois.

[pc75]

Re,

Fais une recherche dans les tutos et la FAQ sur les recordset. Ensuite, tu commences à essayer de construire ton code, et quand tu bloqueras, tu fais signe.

[Tolkienz3]

Je me suis débrouillé et ca fonctionne. Pour les intéressés voici le code.

Function recherche_retard()

'Déclaration des variables et des recordsets :
Dim base_donnee As DAO.Database
Dim str_ReqOf As String

Dim rst_of As DAO.Recordset

'Ouverture des recordsets
Set base_donnee = Application.CurrentDb
Set rst_of = base_donnee.OpenRecordset("retard")


'Requête pour parcourir la table Retard
str_ReqOf = ("SELECT Responsible,procedure,last_revision FROM retard")

Set rst_of = base_donnee.OpenRecordset(str_ReqOf, dbOpenDynaset)

rst_of.MoveFirst

'Début de la boucle While
While rst_of.EOF = False

A = rst_of![Responsible]
B = rst_of![procedure]
C = rst_of![last_revision]
DoCmd.SendObject acSendTable, "Please update", acFormatTXT, A, , , "Please update your " & B & " Last revision on " & C, , False
rst_of.MoveNext

Wend

End Function