Access : message absence de donnéesFermé

Question

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

f894009 · Answer

Bonjour,


DoCmd.SetWarnings (False) 'desactive les alertes systeme

DoCmd.SetWarnings (True)  'active les alertes systeme


Bonne suite

Dicab · Answer

Merci !

Mais je mets ce code où au juste ?
Dans mon code ? Ailleurs ?

f894009 · Answer

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

Access : message absence de données

3 réponses

Discussions similaires

Newsletters