Access : message absence de données
Dicab
Messages postés
186
Statut
Membre
-
f894009 Messages postés 17413 Statut Membre -
f894009 Messages postés 17413 Statut Membre -
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
A voir également:
- Access : message absence de données
- Acer quick access - Forum Logiciels
- Access appdata - Guide
- Exemple base de données access à télécharger gratuit - Forum Access
- Exemple base de données Access de gestion ✓ - Forum Logiciels
- [Access] creer base données client-produits - Forum Programmation
3 réponses
Bonjour,
DoCmd.SetWarnings (False) 'desactive les alertes systeme
DoCmd.SetWarnings (True) 'active les alertes systeme
Bonne suite
DoCmd.SetWarnings (False) 'desactive les alertes systeme
DoCmd.SetWarnings (True) 'active les alertes systeme
Bonne suite
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
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