Discussion :

[enlair]

Bonjour,

J’ai un formulaire avec une combobox nommée fréquence, une zone de texte nommée date1 et une autre zone de texte nommée date2 . Les 2 dates sont saisies à l’aide d’un calendrier placé sur un formulaire que l’on ouvre avec deux boutons situés à côté des zones de texte date1 et date2.
J’aimerai que lorsque la combobox affiche « ponctuelle » la date2 = date1

Pour cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub date1_AfterUpdate()
If [Frequence] = « Ponctuelle » Then
Date2.text = Date1.value
End If
End Sub

Je ne sais pas si l’évènement AfterUpdate est bon ? et je pense que la syntaxe pour récupérer la date n’est pas juste.


Si vous souhaitez m’aider je vous en serai reconnaissante. Merci

[Jeannot45]

Bonjour et bienvenue sr le forum,

L'évènement choisi est correcte cependant, tu as écrit :

Date2.text = Date1.value

Il suffit d'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Date2 = Date1

(supposé VALUE)

[enlair]

Merci pour l'accueil!

J'ai essayé ce que vous m'avez indiqué mais ça ne fonctionne pas.
Est ce lié au fait que la date entrée provient d'une sélection dans un calendrier?

J'ai beaucoup cherché, ce n'est pas un manque de volonté... A préciser...

Merci.

[Renardo]

Et comme cela sa donne quoi?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If me.Frequence = "Ponctuelle" Then
me.Date2 = me.Date1
End If

[Jeannot45]

Re,

Tu choisis donc d'abord dans ta liste puis tu sélectionnes une date.

essaye donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If me.Frequence = "Ponctuelle" Then
    Date2 = Format(Date1,"dd/mm/yy")
End If

[enlair]

Ne fonctionne pas.
Je n'ai plus d'idées...

Pardon pas vu le dernier message, je teste et je reviens. merci

Eh désolée, rien ne marche.

Je choisis bien tout d'abord un élément dans ma combobox puis je selectionne une date à l'aide d'un bouton qui renvoit sur un formulaire comprenant un calendrier. Je selectionne une date sur le calendrier et elle est renvoyée dans la zone de texte date1.

[Renardo]

Alors si tu ne rentre pas ta date a partir de date il ne faut pas mettre ton code Sur apres mise a jour de date1 (Essai de modifier ta date a partir de date1)

[enlair]

Si je mets le code sur l'évènement LostFocus du bouton qui ouvre le "formulaire calendrier" c'est bon aussi non?
Par contre, toujours pas trouvé la bonne syntaxe.

[Renardo]

il faudrait mettre se code sur la sortie du calendrier (une fois ta date saissie et le champ date1 renseigné)

[enlair]

Solution :

Le code est placé sur l'évènement LostFocus du bouton permettant l'ouverture du formulaire contenant le calendrier.

Soit la fréquence "Ponctuelle" avec comme numero automatique "1" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
If Frequence = "1" Then
date2 = date1
End If

Le problème venait du fait que la combobox prenait en compte l'identifiant de la fréquence.

Merci et Bonne soirée