Discussion :

[JP_the_man]

Bonjour,
Je suis entrain de découvrir access. Je voudrais faire un code sur VBA qui pourra chercher les infos dans une table en fonction de la date courante. Le code va comparer la date d'aujourd'hui avec les dates dans la table. Si les dates dans la table sont égales à la date courante (date d'aujourd'hui), le code doit prendre les noms correspondant à la date d'aujourd'hui et les envoyer à une adresse email (ex de texte:voici les noms des employés qui ont été formées aujourd'ui: nom1, nom2, nom3, etc).
Voici mon code qui en passant semble ne pas fonctionner. Merci de pouvoir m'aider. Je dois le faire pour mon stage.
-------

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
21
22
23
24
25
26
27
28
29
30
31
 
Sub Trouver_dans_Table()
Dim db As Database
Dim tblRst As Recordset
DateActuelle As Date
 
 
Set db = CurrentDb
 
Set tblRst = db.OpenRecordset("Employés")
tblRst.Employés_Date = DateValue
DateActuelle = Date
tblRst.Index = "Employés_Nom"
tblRst.Seek ">=", "m"
 
 
Do While tblRst.Employés_Date = DateActuelle
 
If Not tblRst.NoMatch Then
MsgBox "J'ai trouvé : " & tblRst![Employés_Nom]
tblRst.MoveNext
Else
MsgBox "There is no employee with such a name."
End If
Loop
 
tblRst.Close
Set tblRst = Nothing
db.Close
Set db = Nothing
End Sub

[pgz]

Bonsoir.

Deux conseils :
Visiblement, tu utilises DAO, donc précise-le dans tes déclarations

Code :

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

Dim oDb as DAO.Database, oRst as DAO.Recordset

Tu pourrais faire une requête pour n'avoir que les enregistrements à la date

Code :

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

"SELECT Employés_Nom FROM Employés WHERE Employés_Date = #" & Format(Date(),"mm/dd/yyyy") & "# ORDER By Employés_Nom;

Tu les auras même dans l'ordre alphabétique.

Cordialement,

PGZ