Lorsque je sélectionne une autre date sur un calendrier, il n'exécute pas
son 'afterupdate' !!!
Je ne vois plus du tout quoi faire !
Access 2003 (dvpmt en 2000) / Windows XP SP2
Référence :
- Visual Basic for Aplications
- Microsoft Access 11.0 Object Library
- OLE Automation
- Microsoft DAO 3.6 Object Library
- Microsoft Fax Service Extended COM Type Library
- PDF Creator
- Microsoft Calendar Control 11.0
------------------------------------------------------------
Option Compare Database
Option Explicit
Dim CalendrierDe As Control, CalendrierA As Control
Private Sub Form_Load()
Set CalendrierDe = Me.ChoixDateDe
Set CalendrierA = Me.ChoixDateA
CalendrierDe.Today
CalendrierDe.Day = 1
CalendrierA.Today
Me.DateDe = CalendrierDe.Value
Me.DateA = CalendrierA.Value
Me.ChoixFournisseur.Requery
Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0)
Me.ChoixChantier.Requery
Me.ChoixChantier = Me.ChoixChantier.ItemData(0)
DoCmd.Requery
End Sub
Private Sub ChoixDateDe_Updated(Code As Integer)
Me.DateDe = CalendrierDe.Value
Me.ChoixFournisseur.Requery
Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0)
Me.ChoixChantier.Requery
Me.ChoixChantier = Me.ChoixChantier.ItemData(0)
DoCmd.Requery
End Sub
Private Sub ChoixDateA_Updated(Code As Integer)
If CalendrierDe.Value > CalendrierA.Value Then
CalendrierA.Value = CalendrierDe.Value
End If
Me.DateA = CalendrierA.Value
Me.ChoixFournisseur.Requery
Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0)
Me.ChoixChantier.Requery
Me.ChoixChantier = Me.ChoixChantier.ItemData(0)
DoCmd.Requery
End Sub
------------------------------------------------------------
Merci d'avance à l'âme charitable qui me mettra sur la voie ... car,
maintenant, je suis limite de l'implosion :o(
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gilbert
Bonjour,
Tu peux utiliser l'évènement Sortie ou Perte focus de ton calendrier ou bien un bouton qui te permet de valider ta sélection.
-- Gilbert
"GoThi" a écrit dans le message de news: 44bc1cf9$0$868$
Salut à tous !
Je ne m'en sors pas !!! snif !
Lorsque je sélectionne une autre date sur un calendrier, il n'exécute pas son 'afterupdate' !!! Je ne vois plus du tout quoi faire !
Access 2003 (dvpmt en 2000) / Windows XP SP2 Référence : - Visual Basic for Aplications - Microsoft Access 11.0 Object Library - OLE Automation - Microsoft DAO 3.6 Object Library - Microsoft Fax Service Extended COM Type Library - PDF Creator - Microsoft Calendar Control 11.0
------------------------------------------------------------ Option Compare Database Option Explicit Dim CalendrierDe As Control, CalendrierA As Control
Private Sub Form_Load() Set CalendrierDe = Me.ChoixDateDe Set CalendrierA = Me.ChoixDateA CalendrierDe.Today CalendrierDe.Day = 1 CalendrierA.Today Me.DateDe = CalendrierDe.Value Me.DateA = CalendrierA.Value Me.ChoixFournisseur.Requery Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0) Me.ChoixChantier.Requery Me.ChoixChantier = Me.ChoixChantier.ItemData(0) DoCmd.Requery End Sub
Private Sub ChoixDateDe_Updated(Code As Integer) Me.DateDe = CalendrierDe.Value Me.ChoixFournisseur.Requery Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0) Me.ChoixChantier.Requery Me.ChoixChantier = Me.ChoixChantier.ItemData(0) DoCmd.Requery End Sub
Private Sub ChoixDateA_Updated(Code As Integer) If CalendrierDe.Value > CalendrierA.Value Then CalendrierA.Value = CalendrierDe.Value End If Me.DateA = CalendrierA.Value Me.ChoixFournisseur.Requery Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0) Me.ChoixChantier.Requery Me.ChoixChantier = Me.ChoixChantier.ItemData(0) DoCmd.Requery End Sub ------------------------------------------------------------
Merci d'avance à l'âme charitable qui me mettra sur la voie ... car, maintenant, je suis limite de l'implosion :o(
@+ Gothi
Bonjour,
Tu peux utiliser l'évènement Sortie ou Perte focus de ton calendrier ou bien
un bouton qui te permet de valider ta sélection.
--
Gilbert
"GoThi" <antispam__tgonier@worldonline.fr> a écrit dans le message de news:
44bc1cf9$0$868$ba4acef3@news.orange.fr...
Salut à tous !
Je ne m'en sors pas !!! snif !
Lorsque je sélectionne une autre date sur un calendrier, il n'exécute pas
son 'afterupdate' !!!
Je ne vois plus du tout quoi faire !
Access 2003 (dvpmt en 2000) / Windows XP SP2
Référence :
- Visual Basic for Aplications
- Microsoft Access 11.0 Object Library
- OLE Automation
- Microsoft DAO 3.6 Object Library
- Microsoft Fax Service Extended COM Type Library
- PDF Creator
- Microsoft Calendar Control 11.0
------------------------------------------------------------
Option Compare Database
Option Explicit
Dim CalendrierDe As Control, CalendrierA As Control
Private Sub Form_Load()
Set CalendrierDe = Me.ChoixDateDe
Set CalendrierA = Me.ChoixDateA
CalendrierDe.Today
CalendrierDe.Day = 1
CalendrierA.Today
Me.DateDe = CalendrierDe.Value
Me.DateA = CalendrierA.Value
Me.ChoixFournisseur.Requery
Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0)
Me.ChoixChantier.Requery
Me.ChoixChantier = Me.ChoixChantier.ItemData(0)
DoCmd.Requery
End Sub
Private Sub ChoixDateDe_Updated(Code As Integer)
Me.DateDe = CalendrierDe.Value
Me.ChoixFournisseur.Requery
Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0)
Me.ChoixChantier.Requery
Me.ChoixChantier = Me.ChoixChantier.ItemData(0)
DoCmd.Requery
End Sub
Private Sub ChoixDateA_Updated(Code As Integer)
If CalendrierDe.Value > CalendrierA.Value Then
CalendrierA.Value = CalendrierDe.Value
End If
Me.DateA = CalendrierA.Value
Me.ChoixFournisseur.Requery
Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0)
Me.ChoixChantier.Requery
Me.ChoixChantier = Me.ChoixChantier.ItemData(0)
DoCmd.Requery
End Sub
------------------------------------------------------------
Merci d'avance à l'âme charitable qui me mettra sur la voie ... car,
maintenant, je suis limite de l'implosion :o(
Tu peux utiliser l'évènement Sortie ou Perte focus de ton calendrier ou bien un bouton qui te permet de valider ta sélection.
-- Gilbert
"GoThi" a écrit dans le message de news: 44bc1cf9$0$868$
Salut à tous !
Je ne m'en sors pas !!! snif !
Lorsque je sélectionne une autre date sur un calendrier, il n'exécute pas son 'afterupdate' !!! Je ne vois plus du tout quoi faire !
Access 2003 (dvpmt en 2000) / Windows XP SP2 Référence : - Visual Basic for Aplications - Microsoft Access 11.0 Object Library - OLE Automation - Microsoft DAO 3.6 Object Library - Microsoft Fax Service Extended COM Type Library - PDF Creator - Microsoft Calendar Control 11.0
------------------------------------------------------------ Option Compare Database Option Explicit Dim CalendrierDe As Control, CalendrierA As Control
Private Sub Form_Load() Set CalendrierDe = Me.ChoixDateDe Set CalendrierA = Me.ChoixDateA CalendrierDe.Today CalendrierDe.Day = 1 CalendrierA.Today Me.DateDe = CalendrierDe.Value Me.DateA = CalendrierA.Value Me.ChoixFournisseur.Requery Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0) Me.ChoixChantier.Requery Me.ChoixChantier = Me.ChoixChantier.ItemData(0) DoCmd.Requery End Sub
Private Sub ChoixDateDe_Updated(Code As Integer) Me.DateDe = CalendrierDe.Value Me.ChoixFournisseur.Requery Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0) Me.ChoixChantier.Requery Me.ChoixChantier = Me.ChoixChantier.ItemData(0) DoCmd.Requery End Sub
Private Sub ChoixDateA_Updated(Code As Integer) If CalendrierDe.Value > CalendrierA.Value Then CalendrierA.Value = CalendrierDe.Value End If Me.DateA = CalendrierA.Value Me.ChoixFournisseur.Requery Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0) Me.ChoixChantier.Requery Me.ChoixChantier = Me.ChoixChantier.ItemData(0) DoCmd.Requery End Sub ------------------------------------------------------------
Merci d'avance à l'âme charitable qui me mettra sur la voie ... car, maintenant, je suis limite de l'implosion :o(
@+ Gothi
GoThi
Salut Gilbert,
J'ai essayé tous les événements fournis avec le calendrier : aucun ne répond !!! Tout à l'heure, je vais essayer le formulaire sur un autre PC.
Je vous tiens au courant !
@+ GoThi
"Gilbert" a écrit dans le message de news:
Bonjour,
Tu peux utiliser l'évènement Sortie ou Perte focus de ton calendrier ou bien un bouton qui te permet de valider ta sélection.
-- Gilbert
"GoThi" a écrit dans le message de news: 44bc1cf9$0$868$
Salut à tous !
Je ne m'en sors pas !!! snif !
Lorsque je sélectionne une autre date sur un calendrier, il n'exécute pas son 'afterupdate' !!! Je ne vois plus du tout quoi faire !
Access 2003 (dvpmt en 2000) / Windows XP SP2 Référence : - Visual Basic for Aplications - Microsoft Access 11.0 Object Library - OLE Automation - Microsoft DAO 3.6 Object Library - Microsoft Fax Service Extended COM Type Library - PDF Creator - Microsoft Calendar Control 11.0
------------------------------------------------------------ Option Compare Database Option Explicit Dim CalendrierDe As Control, CalendrierA As Control
Private Sub Form_Load() Set CalendrierDe = Me.ChoixDateDe Set CalendrierA = Me.ChoixDateA CalendrierDe.Today CalendrierDe.Day = 1 CalendrierA.Today Me.DateDe = CalendrierDe.Value Me.DateA = CalendrierA.Value Me.ChoixFournisseur.Requery Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0) Me.ChoixChantier.Requery Me.ChoixChantier = Me.ChoixChantier.ItemData(0) DoCmd.Requery End Sub
Private Sub ChoixDateDe_Updated(Code As Integer) Me.DateDe = CalendrierDe.Value Me.ChoixFournisseur.Requery Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0) Me.ChoixChantier.Requery Me.ChoixChantier = Me.ChoixChantier.ItemData(0) DoCmd.Requery End Sub
Private Sub ChoixDateA_Updated(Code As Integer) If CalendrierDe.Value > CalendrierA.Value Then CalendrierA.Value = CalendrierDe.Value End If Me.DateA = CalendrierA.Value Me.ChoixFournisseur.Requery Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0) Me.ChoixChantier.Requery Me.ChoixChantier = Me.ChoixChantier.ItemData(0) DoCmd.Requery End Sub ------------------------------------------------------------
Merci d'avance à l'âme charitable qui me mettra sur la voie ... car, maintenant, je suis limite de l'implosion :o(
@+ Gothi
Salut Gilbert,
J'ai essayé tous les événements fournis avec le calendrier : aucun ne répond
!!!
Tout à l'heure, je vais essayer le formulaire sur un autre PC.
Je vous tiens au courant !
@+
GoThi
"Gilbert" <ZZZZgilbertvie@tiscali.fr> a écrit dans le message de news:
OteuOglqGHA.4760@TK2MSFTNGP03.phx.gbl...
Bonjour,
Tu peux utiliser l'évènement Sortie ou Perte focus de ton calendrier ou
bien un bouton qui te permet de valider ta sélection.
--
Gilbert
"GoThi" <antispam__tgonier@worldonline.fr> a écrit dans le message de
news: 44bc1cf9$0$868$ba4acef3@news.orange.fr...
Salut à tous !
Je ne m'en sors pas !!! snif !
Lorsque je sélectionne une autre date sur un calendrier, il n'exécute pas
son 'afterupdate' !!!
Je ne vois plus du tout quoi faire !
Access 2003 (dvpmt en 2000) / Windows XP SP2
Référence :
- Visual Basic for Aplications
- Microsoft Access 11.0 Object Library
- OLE Automation
- Microsoft DAO 3.6 Object Library
- Microsoft Fax Service Extended COM Type Library
- PDF Creator
- Microsoft Calendar Control 11.0
------------------------------------------------------------
Option Compare Database
Option Explicit
Dim CalendrierDe As Control, CalendrierA As Control
Private Sub Form_Load()
Set CalendrierDe = Me.ChoixDateDe
Set CalendrierA = Me.ChoixDateA
CalendrierDe.Today
CalendrierDe.Day = 1
CalendrierA.Today
Me.DateDe = CalendrierDe.Value
Me.DateA = CalendrierA.Value
Me.ChoixFournisseur.Requery
Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0)
Me.ChoixChantier.Requery
Me.ChoixChantier = Me.ChoixChantier.ItemData(0)
DoCmd.Requery
End Sub
Private Sub ChoixDateDe_Updated(Code As Integer)
Me.DateDe = CalendrierDe.Value
Me.ChoixFournisseur.Requery
Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0)
Me.ChoixChantier.Requery
Me.ChoixChantier = Me.ChoixChantier.ItemData(0)
DoCmd.Requery
End Sub
Private Sub ChoixDateA_Updated(Code As Integer)
If CalendrierDe.Value > CalendrierA.Value Then
CalendrierA.Value = CalendrierDe.Value
End If
Me.DateA = CalendrierA.Value
Me.ChoixFournisseur.Requery
Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0)
Me.ChoixChantier.Requery
Me.ChoixChantier = Me.ChoixChantier.ItemData(0)
DoCmd.Requery
End Sub
------------------------------------------------------------
Merci d'avance à l'âme charitable qui me mettra sur la voie ... car,
maintenant, je suis limite de l'implosion :o(
J'ai essayé tous les événements fournis avec le calendrier : aucun ne répond !!! Tout à l'heure, je vais essayer le formulaire sur un autre PC.
Je vous tiens au courant !
@+ GoThi
"Gilbert" a écrit dans le message de news:
Bonjour,
Tu peux utiliser l'évènement Sortie ou Perte focus de ton calendrier ou bien un bouton qui te permet de valider ta sélection.
-- Gilbert
"GoThi" a écrit dans le message de news: 44bc1cf9$0$868$
Salut à tous !
Je ne m'en sors pas !!! snif !
Lorsque je sélectionne une autre date sur un calendrier, il n'exécute pas son 'afterupdate' !!! Je ne vois plus du tout quoi faire !
Access 2003 (dvpmt en 2000) / Windows XP SP2 Référence : - Visual Basic for Aplications - Microsoft Access 11.0 Object Library - OLE Automation - Microsoft DAO 3.6 Object Library - Microsoft Fax Service Extended COM Type Library - PDF Creator - Microsoft Calendar Control 11.0
------------------------------------------------------------ Option Compare Database Option Explicit Dim CalendrierDe As Control, CalendrierA As Control
Private Sub Form_Load() Set CalendrierDe = Me.ChoixDateDe Set CalendrierA = Me.ChoixDateA CalendrierDe.Today CalendrierDe.Day = 1 CalendrierA.Today Me.DateDe = CalendrierDe.Value Me.DateA = CalendrierA.Value Me.ChoixFournisseur.Requery Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0) Me.ChoixChantier.Requery Me.ChoixChantier = Me.ChoixChantier.ItemData(0) DoCmd.Requery End Sub
Private Sub ChoixDateDe_Updated(Code As Integer) Me.DateDe = CalendrierDe.Value Me.ChoixFournisseur.Requery Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0) Me.ChoixChantier.Requery Me.ChoixChantier = Me.ChoixChantier.ItemData(0) DoCmd.Requery End Sub
Private Sub ChoixDateA_Updated(Code As Integer) If CalendrierDe.Value > CalendrierA.Value Then CalendrierA.Value = CalendrierDe.Value End If Me.DateA = CalendrierA.Value Me.ChoixFournisseur.Requery Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0) Me.ChoixChantier.Requery Me.ChoixChantier = Me.ChoixChantier.ItemData(0) DoCmd.Requery End Sub ------------------------------------------------------------
Merci d'avance à l'âme charitable qui me mettra sur la voie ... car, maintenant, je suis limite de l'implosion :o(
@+ Gothi
GoThi
Bon ... Ben finalement, j'ai choisi un exemple sur le net qui permet, sur clic, d'ouvrir le calendrier puis de reporter la date après sélection :o(
Acc2000_Calendar_Clock
C'est bien ... mais ce n'est pas ce que je voulais ;o)
@+ GoThi
"GoThi" a écrit dans le message de news: 44bcc953$0$846$
Salut Gilbert,
J'ai essayé tous les événements fournis avec le calendrier : aucun ne répond !!! Tout à l'heure, je vais essayer le formulaire sur un autre PC.
Je vous tiens au courant !
@+ GoThi
"Gilbert" a écrit dans le message de news:
Bonjour,
Tu peux utiliser l'évènement Sortie ou Perte focus de ton calendrier ou bien un bouton qui te permet de valider ta sélection.
-- Gilbert
"GoThi" a écrit dans le message de news: 44bc1cf9$0$868$
Salut à tous !
Je ne m'en sors pas !!! snif !
Lorsque je sélectionne une autre date sur un calendrier, il n'exécute pas son 'afterupdate' !!! Je ne vois plus du tout quoi faire !
Access 2003 (dvpmt en 2000) / Windows XP SP2 Référence : - Visual Basic for Aplications - Microsoft Access 11.0 Object Library - OLE Automation - Microsoft DAO 3.6 Object Library - Microsoft Fax Service Extended COM Type Library - PDF Creator - Microsoft Calendar Control 11.0
------------------------------------------------------------ Option Compare Database Option Explicit Dim CalendrierDe As Control, CalendrierA As Control
Private Sub Form_Load() Set CalendrierDe = Me.ChoixDateDe Set CalendrierA = Me.ChoixDateA CalendrierDe.Today CalendrierDe.Day = 1 CalendrierA.Today Me.DateDe = CalendrierDe.Value Me.DateA = CalendrierA.Value Me.ChoixFournisseur.Requery Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0) Me.ChoixChantier.Requery Me.ChoixChantier = Me.ChoixChantier.ItemData(0) DoCmd.Requery End Sub
Private Sub ChoixDateDe_Updated(Code As Integer) Me.DateDe = CalendrierDe.Value Me.ChoixFournisseur.Requery Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0) Me.ChoixChantier.Requery Me.ChoixChantier = Me.ChoixChantier.ItemData(0) DoCmd.Requery End Sub
Private Sub ChoixDateA_Updated(Code As Integer) If CalendrierDe.Value > CalendrierA.Value Then CalendrierA.Value = CalendrierDe.Value End If Me.DateA = CalendrierA.Value Me.ChoixFournisseur.Requery Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0) Me.ChoixChantier.Requery Me.ChoixChantier = Me.ChoixChantier.ItemData(0) DoCmd.Requery End Sub ------------------------------------------------------------
Merci d'avance à l'âme charitable qui me mettra sur la voie ... car, maintenant, je suis limite de l'implosion :o(
@+ Gothi
Bon ... Ben finalement, j'ai choisi un exemple sur le net qui permet, sur
clic, d'ouvrir le calendrier puis de reporter la date après sélection :o(
Acc2000_Calendar_Clock
C'est bien ... mais ce n'est pas ce que je voulais ;o)
@+
GoThi
"GoThi" <antispam__tgonier@worldonline.fr> a écrit dans le message de news:
44bcc953$0$846$ba4acef3@news.orange.fr...
Salut Gilbert,
J'ai essayé tous les événements fournis avec le calendrier : aucun ne
répond !!!
Tout à l'heure, je vais essayer le formulaire sur un autre PC.
Je vous tiens au courant !
@+
GoThi
"Gilbert" <ZZZZgilbertvie@tiscali.fr> a écrit dans le message de news:
OteuOglqGHA.4760@TK2MSFTNGP03.phx.gbl...
Bonjour,
Tu peux utiliser l'évènement Sortie ou Perte focus de ton calendrier ou
bien un bouton qui te permet de valider ta sélection.
--
Gilbert
"GoThi" <antispam__tgonier@worldonline.fr> a écrit dans le message de
news: 44bc1cf9$0$868$ba4acef3@news.orange.fr...
Salut à tous !
Je ne m'en sors pas !!! snif !
Lorsque je sélectionne une autre date sur un calendrier, il n'exécute
pas son 'afterupdate' !!!
Je ne vois plus du tout quoi faire !
Access 2003 (dvpmt en 2000) / Windows XP SP2
Référence :
- Visual Basic for Aplications
- Microsoft Access 11.0 Object Library
- OLE Automation
- Microsoft DAO 3.6 Object Library
- Microsoft Fax Service Extended COM Type Library
- PDF Creator
- Microsoft Calendar Control 11.0
------------------------------------------------------------
Option Compare Database
Option Explicit
Dim CalendrierDe As Control, CalendrierA As Control
Private Sub Form_Load()
Set CalendrierDe = Me.ChoixDateDe
Set CalendrierA = Me.ChoixDateA
CalendrierDe.Today
CalendrierDe.Day = 1
CalendrierA.Today
Me.DateDe = CalendrierDe.Value
Me.DateA = CalendrierA.Value
Me.ChoixFournisseur.Requery
Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0)
Me.ChoixChantier.Requery
Me.ChoixChantier = Me.ChoixChantier.ItemData(0)
DoCmd.Requery
End Sub
Private Sub ChoixDateDe_Updated(Code As Integer)
Me.DateDe = CalendrierDe.Value
Me.ChoixFournisseur.Requery
Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0)
Me.ChoixChantier.Requery
Me.ChoixChantier = Me.ChoixChantier.ItemData(0)
DoCmd.Requery
End Sub
Private Sub ChoixDateA_Updated(Code As Integer)
If CalendrierDe.Value > CalendrierA.Value Then
CalendrierA.Value = CalendrierDe.Value
End If
Me.DateA = CalendrierA.Value
Me.ChoixFournisseur.Requery
Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0)
Me.ChoixChantier.Requery
Me.ChoixChantier = Me.ChoixChantier.ItemData(0)
DoCmd.Requery
End Sub
------------------------------------------------------------
Merci d'avance à l'âme charitable qui me mettra sur la voie ... car,
maintenant, je suis limite de l'implosion :o(
Bon ... Ben finalement, j'ai choisi un exemple sur le net qui permet, sur clic, d'ouvrir le calendrier puis de reporter la date après sélection :o(
Acc2000_Calendar_Clock
C'est bien ... mais ce n'est pas ce que je voulais ;o)
@+ GoThi
"GoThi" a écrit dans le message de news: 44bcc953$0$846$
Salut Gilbert,
J'ai essayé tous les événements fournis avec le calendrier : aucun ne répond !!! Tout à l'heure, je vais essayer le formulaire sur un autre PC.
Je vous tiens au courant !
@+ GoThi
"Gilbert" a écrit dans le message de news:
Bonjour,
Tu peux utiliser l'évènement Sortie ou Perte focus de ton calendrier ou bien un bouton qui te permet de valider ta sélection.
-- Gilbert
"GoThi" a écrit dans le message de news: 44bc1cf9$0$868$
Salut à tous !
Je ne m'en sors pas !!! snif !
Lorsque je sélectionne une autre date sur un calendrier, il n'exécute pas son 'afterupdate' !!! Je ne vois plus du tout quoi faire !
Access 2003 (dvpmt en 2000) / Windows XP SP2 Référence : - Visual Basic for Aplications - Microsoft Access 11.0 Object Library - OLE Automation - Microsoft DAO 3.6 Object Library - Microsoft Fax Service Extended COM Type Library - PDF Creator - Microsoft Calendar Control 11.0
------------------------------------------------------------ Option Compare Database Option Explicit Dim CalendrierDe As Control, CalendrierA As Control
Private Sub Form_Load() Set CalendrierDe = Me.ChoixDateDe Set CalendrierA = Me.ChoixDateA CalendrierDe.Today CalendrierDe.Day = 1 CalendrierA.Today Me.DateDe = CalendrierDe.Value Me.DateA = CalendrierA.Value Me.ChoixFournisseur.Requery Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0) Me.ChoixChantier.Requery Me.ChoixChantier = Me.ChoixChantier.ItemData(0) DoCmd.Requery End Sub
Private Sub ChoixDateDe_Updated(Code As Integer) Me.DateDe = CalendrierDe.Value Me.ChoixFournisseur.Requery Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0) Me.ChoixChantier.Requery Me.ChoixChantier = Me.ChoixChantier.ItemData(0) DoCmd.Requery End Sub
Private Sub ChoixDateA_Updated(Code As Integer) If CalendrierDe.Value > CalendrierA.Value Then CalendrierA.Value = CalendrierDe.Value End If Me.DateA = CalendrierA.Value Me.ChoixFournisseur.Requery Me.ChoixFournisseur = Me.ChoixFournisseur.ItemData(0) Me.ChoixChantier.Requery Me.ChoixChantier = Me.ChoixChantier.ItemData(0) DoCmd.Requery End Sub ------------------------------------------------------------
Merci d'avance à l'âme charitable qui me mettra sur la voie ... car, maintenant, je suis limite de l'implosion :o(