Ouverture base avec Access 2007 qui bug
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
Citation:
Pas d'objet dans ce champ
à la ligne en rouge suivante :
Code:
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 |
Je ne vois pas ce qui ne va pas. Avez-vous une idée ?
Voici le lien http://denishulo.developpez.com/tuto...ss/planningv1/
Merci pour votre aide.
Daniel