Access : message absence de données
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
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
-
Bonjour,
DoCmd.SetWarnings (False) 'desactive les alertes systeme
DoCmd.SetWarnings (True) 'active les alertes systeme
Bonne suite -
Merci !
Mais je mets ce code où au juste ?
Dans mon code ? Ailleurs ? -
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
