1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
Public Function VerifieAgenda(XDATE As Date, Employe As Long, ByRef lacouleur As Long) As Boolean
'Affichage en bleu dans l'agenda si il ya des rendez-vous de pris
Dim Db As Database
Dim Agenda As Recordset
Set Db = DBEngine.Workspaces(0).OpenDatabase(Path())
Set Agenda = Db.OpenRecordset("Agenda")
Agenda.Index = "Double" 'Usager, DateAgenda
Agenda.Seek "=", Employe, XDATE
If Agenda.NoMatch Then
VerifieAgenda = False
Else
lacouleur = 16737843
VerifieAgenda = True
End If
Agenda.Close
Db.Close
End Function |
Partager