Access : message absence de données

Fermé
Signaler
Messages postés
163
Date d'inscription
lundi 25 août 2008
Statut
Membre
Dernière intervention
7 juin 2017
-
Messages postés
16192
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 janvier 2022
-
Bonjour,

Sur un formulaire Access, je souhaite qu'un message apparaisse à son ouverture en cas d'absence de données.
J'ai donc créé l'événement suivant :

Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "Pas de film dans cette catégorie", vbInformation
Cancel = True
End If
End Sub

Il fonctionne, mais après le message "Pas de film dans cette catégorie", j'ai également à la suite le message par défaut "L'action OpenForm a été annulée"...

Y-a t-il un moyen de ne plus faire apparaître ce second message ?

Merci à tous

3 réponses

Messages postés
16192
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 janvier 2022
1 580
Bonjour,


DoCmd.SetWarnings (False) 'desactive les alertes systeme

DoCmd.SetWarnings (True) 'active les alertes systeme


Bonne suite
0
Messages postés
163
Date d'inscription
lundi 25 août 2008
Statut
Membre
Dernière intervention
7 juin 2017
2
Merci !

Mais je mets ce code où au juste ?
Dans mon code ? Ailleurs ?
0
Messages postés
16192
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 janvier 2022
1 580
Re,

Private Sub Form_Open(Cancel As Integer)
DoCmd.SetWarnings (False) 'desactive les alertes systeme
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "Pas de film dans cette catégorie", vbInformation
Cancel = True
End If
DoCmd.SetWarnings (True) 'active les alertes systeme
End Sub

J'ai fait des tests sans desactiver les alertes, cela marche et sans messagepuisque Cancel=True est prevu pour. Mais pour vous il y a peut-etre un contexte particulier.

Bonne suite
0