Access : message absence de données
Dicab
Messages postés
186
Statut
Membre
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
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
- Access appdata - Guide
- Acer quick access - Forum logiciel systeme
- Désinstaller ACER QUICK ACCESS - Forum Logiciels
- Exemple base de données access à télécharger gratuit ✓ - 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
