Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Evénement MaJ sur control calendrier !

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
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
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