Discussion :

[rangernoir]

Salut à tous,

J'ai créé un formulaire avec 2 champs :

Tâches
Date début
Date fin

Et 4 boutons:

Tâches précédentes (enregistrement précédent)
Tâches suivantes (enregistrement suivant)
Ajouter tâche (nouvel enregistrement)
Supprimer tâche (supprimer enregistrement)

J'ai mis le code suivant afin d'obtenir un message d'erreur si la date de fin est inférieure à la date de début (sur perte focus)

Code :

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

If Date_fin < Date_debut Then MsgBox "La date de fin doit être supérieure ou égale à la date de début", vbInformation, "Erreur date"

Mais le problème est que si je clique sur enregistrement suivant, précédent, supprimer, ou encore ajouter enregistrement j'ai le message d'erreur et puis si je clique sur OK il fait l'action du bouton

Exemple:

Date début : 26/09/2005
Date fin: 24/09/2005

Clique sur nouvel enregistrement

Message d'erreur :" La date de fin doit être supérieure ou égale à la date de début"

Je clique sur OK

et hop il passe au nouvel enregistrement

Pouvez-vous me dire ce que je peux faire lorsqu'il y a une erreur il reste sur celle-ci et n'effectue pas l'action du bouton sur lequel on a cliqué ?

Merci de votre aide

Rangernoir 8)

[goethe-home]

Salut,

es-tu sur de la valeur de tes variables Date_fin et Date_debut au moment du test ?

pour ce faire rajoute un ligne avant ton if:

Code :

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

1
2
 
msgbox Date_fin &":" & Date_debut

as-tu bien défini tes variables avant :

Code :

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

1
2
3
 
Date_fin = Me.TonChampDansLeFormulaire.value
Date_debut = Me.TonChampDansLeFormulaire.value

@+

[argyronet]

Bonjour,

Oublie l'événement LostFocus et prend l'événement Exit auquel tu ajoutes True à Cancel si la différence apparaît... derrière ta MsgBox()

Argy

[rangernoir]

argyronet

Oublie l'événement LostFocus et prend l'événement Exit auquel tu ajoutes True à Cancel si la différence apparaît... derrière ta MsgBox()

Voilà j'ai mis le code sur l'évènement sur sortie, mais peux-tu me dire ou je dois ajouter True ?

J'ajoute après le message vbOKCancel au lieu de VbInformation ?

Rangernoir 8)

[argyronet]

Exemple:

Code :

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

1
2
3
4
5
6
Private Sub Date_fin_Exit(Cancel As Integer)
  If Date_fin < Date_debut Then
    MsgBox "La date de fin doit être supérieure ou égale à la date de début", vbInformation, "Erreur date"
    Cancel = True
  End If
End Sub

Argy

[rangernoir]

Cool merci de ton aide précieuse



Rangernoir 8)