Evénement MaJ sur control calendrier !

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

Entraide Applications Microsoft Office Access Evénement MaJ sur control calendrier !

3 réponses

GoThi

18/07/2006 à 01:27

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

Gilbert

18/07/2006 à 12:50

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(

@+
Gothi

Vous avez filtré cet utilisateur ! Consultez son message

GoThi

18/07/2006 à 13:35

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(

@+
Gothi

Vous avez filtré cet utilisateur ! Consultez son message

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

GoThi

18/07/2006 à 16:51

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(

@+
Gothi

Vous avez filtré cet utilisateur ! Consultez son message

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

Evénement MaJ sur control calendrier !

3 réponses

Veuillez sélectionner un problème