Discussion :

[patito1975]

Bonjour,

j'aimerai empêcher la fermeture de mon formulaire quand je clic sur mon bouton fermer si mon champs ville est vide
et fermer mon formulaire sans me mettre de message quand je clic sur mon bouton fermer si mon champ ville est bien complété.
J'ai ceci comme code mais après avoir cliqué sur le message mon formulaire se ferme quand même.

Code :

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

1
2
3
4
5
Private Sub Commande29_Exit(Cancel As Integer)
If IsNull(Me.ville) Then
   MsgBox "Veuillez inscrire un nom de ville !"
   Exit Sub
End If

Merci à vous

[ClaudeLELOUP]

Bonjour,

Peut-être une solution plus simple : dans la définition de ta table, interdis une valeur Null dans la colonne ville Access fera le boulot de gardien à ta place !

[patito1975]

Ça fonctionne à condition que j'utilise la touche TAB pour circuler dans mes champs mais quand je clic sur mon bouton fermer, mon formulaire se ferme sans me donner le message.

[ClaudeLELOUP]

Essaie alors de loger ton code dans l'événement Sur libération, comme ceci :

Code :

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

1
2
3
4
5
6
Private Sub Form_Unload(Cancel As Integer)
  If IsNull(Me.Ville) Then
      MsgBox "Veuillez inscrire un nom de ville !"
      Cancel = True
  End If
End Sub

[patito1975]

On y arrive
Quand je clic sur mon bouton fermer j'ai bien le message "veuillez inscrire un nom de ville" mais quand je clic sur ok, j'ai le message suivant
"Erreur d'exécution'2501' - L'action Close a été annulée"
J'ai le code suivant sur mon bouton fermer

Code :

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

1
2
3
Private Sub Commande29_Click()
DoCmd.Close
End Sub

Voici une capture d'écran

[ClaudeLELOUP]

OK !

Modifie le code de sortie "normale" en traitant la "fausse erreur" 2501 comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande29_Exit_Click()
  On Error GoTo GestionErreur
  DoCmd.Close
  Exit Sub
GestionErreur:
  Select Case Err.Number
    Case 2501 ' essai de fermeture avec Ville = Null
    Exit Sub
  Case Else
    MsgBox "Erreur dans Commande29_Exit_Click : " & Err.Number & " " & Err.Description & " !"
  End Select
End Sub

[patito1975]

Merci beaucoup ça fonctionne mais j'ai encore un petit souci.

Je n'autorise pas les modifications sur mon formulaire donc dans les propriétés de mon formulaire j'ai mis non pour les modifications jusque-là ok.
Quand je n'inscris pas de ville j'ai bien le message "veuillez inscrire un nom de ville" mais quand je clic sur ok il me valide mon enregistrement donc il m'est impossible de compléter ma ville sur mon enregistrement je dois recommencer un nouvel enregistrement mais le précèdent n'est pas complet vu qu'il n'y a pas de ville d'inscrite.
Quand je le fait avec modification autorisée ça fonctionne nickel mais je dois absolument empêcher les modifications donc que faire 

[ClaudeLELOUP]

... donc que faire

Essayer d'expliquer ce que tu veux faire, mais de A à Z !

[patito1975]

Essayer d'expliquer ce que tu veux faire, mais de A à Z !

C'est bon ça fonctionne avec votre code

Merci.

[patito1975]

Essayer d'expliquer ce que tu veux faire, mais de A à Z !

Re.
je vais quand même revenir vers vous.
Ici si je n'inscris rien dans le champ ville j'ai le message "veuillez inscrire un nom de ville" mais si je veux dans le même enregistrement que le champ ville (comme ici) et en plus le champ nom et prénom également ne reste pas vide ?

[ClaudeLELOUP]

Eh bien simplement comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Unload(Cancel As Integer)
  If IsNull(Me.Ville) Then
      MsgBox "Veuillez inscrire un nom de ville !"
      Cancel = True
  End If
  If IsNull(Me.Nom) Then
      MsgBox "Veuillez inscrire le nom !"
      Cancel = True
  End If
  If IsNull(Me.Prenom) Then
      MsgBox "Veuillez inscrire le prénom !"
      Cancel = True
  End If
End Sub

[Rayan1]

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande29_Exit(Cancel As Integer)
If IsNull(Me.ville) Then
   MsgBox "Veuillez inscrire un nom de ville !"
   Exit Sub
Else
Docmd.close
Docmd.openform"Ton_formulaire",,,goto record acnews
End If

[patito1975]

Merci beaucoup ça marche