Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Evénement MaJ sur control calendrier !

3 réponses
Avatar
GoThi
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

3 réponses

Avatar
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



Avatar
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







Avatar
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