Discussion :

[SLEGRAND76]

Bonjour,

Dans mon formulaire principal, j'ai mis des Setfocus avec Boite de dialogue pour obliger à remplir les champs dans un certain ordre.

Lorsque je j'appuie par contre sur le bouton fermer de mon formulaire, la boite de dialogue demandant de remplir la date apparait et je voudrais dans ce cas l'annuler

Quelle est le code à écrire sur le bouton fermer de mon formulaire pour annuler ce message " Vous devez mettre une date...."

D'avance merci beaucoup de vos retours

[Amani Roland]

Bonjour,
Il est difficile de cerner exactement le problème sans avoir le code sous les yeux... Peux-tu l'envoyer en pièce jointe?

[SLEGRAND76]

Rebonjour

voici le code que je me sur mon champs date

Code :

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

1
2
3
4
5
6
Private Sub Date_LostFocus()
If IsNull([Date]) Then
MsgBox ("Merci de mettre une date")
Me.Date.SetFocus
End If
End Sub

Du coup lorsque je j'appuie sur le bouton fermer de mon formulaire, il me met"Merci de mettre une date")
Je voudrais du coup annuler ce message UNIQUEMENT quand j'appuie sur Fermer

Merci de vos retours

[nico84]

Bonjour,

Avec

Code :

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

Private Sub Date_afterupdate()

ça marcherait mieux, non ???
Par contre ça permet de quitter la case sans rien saisir et il faut reporter les controles en entrée de case suivante

[Amani Roland]

Rebonjour,

On peut user d'astuce pour contourner le problème en utilisant par exemple la proprété tag du formulaire.

En supposant que le formulaire ne se ferme qu'a l'aide d'un bouton spécialement conçu pour ça,

sur l'évènement Load du formulaire on codera:

Code :

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

1
2
3
Private Sub Form_Load()
    Me.Tag = ""
End Sub

L'évènement LostFocus devient

Code :

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

1
2
3
4
5
6
7
8
Private Sub Date_LostFocus()
    If Me.Tag = "" Then
        If IsNull([Date]) Then
            MsgBox ("Merci de mettre une date")
            Me.Date.SetFocus
        End If
    End If
End Sub

Et pour le bouton Close ça sera

Code :

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

1
2
3
4
Private Sub btnClose_Click()
    Me.Tag = "IsClosing"
    DoCmd.Close acForm, Me.Name
End Sub

[SLEGRAND76]

Ok je vais essayer tout cela Lundi et je vous tiens au courant,

merci en tout cas pour vos astuces...

bon w.e