Bonjour,
Je viens d'installer l'agenda que Denis HULO nous a mis à disposition dans les tutoriels (que je remercie au passage) et je rencontre un souci à l'ouverture de la base avec ACCESS 2007 (c'est ma première utilisation...).
J'ai le message suivantà la ligne en rouge suivante :Pas d'objet dans ce champ
Je ne vois pas ce qui ne va pas. Avez-vous une idée ?
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 Public Sub MajPlanning() Dim RsPL As DAO.Recordset Dim Ligne As Integer, Col As Integer Dim LeSql As String Dim i As Integer, d As Integer Dim color As Long ' Sélectionne les RDV compris entre DateDebut et DateDebut+7. LeSql = "SELECT T_RendezVous.*, T_Patient.Nom as Patient " & _ "FROM T_RendezVous LEFT JOIN T_Patient ON T_RendezVous.NP = T_Patient.NP " & _ "WHERE T_RendezVous.HoraireDebut between " & FormatDateUS(DateDebut) & _ " And " & FormatDateUS(DateDebut + 7) Set RsPL = CurrentDb.OpenRecordset(LeSql, dbOpenForwardOnly) Forms!F_Planning!Titre.Caption = "PLANNING DE LA SEMAINE DU " & _ UCase(Format(DateDebut, "dd mmmm yyyy")) & " AU " & UCase(Format(DateDebut+6,"dd mmmm yyyy")) Forms!F_Planning!DateD.Value = DateDebut ' Initialise le planning. InitPlanning
Voici le lien http://denishulo.developpez.com/tuto...ss/planningv1/
Merci pour votre aide.
Daniel
Partager