Bonjour,
Dans ma bd j'ai sur un formulaire un bouton pour supprimer les
enregistrements, comment faire pour afficher un message personnaliser et non
pas celui de Access, j'ai juste mis dans ma procédure:
Private Sub CmdSupprimer_Click()
On Error Resume Next
DoCmd.RunCommand acCmdDeleteRecord
End Sub
mais j'ai toujour le message de Access je voudrais pouvoir en mettre un
personnaliser.
Merci
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
"STEN83" | Dans ma bd j'ai sur un formulaire un bouton pour supprimer les | enregistrements, comment faire pour afficher un message personnaliser et non | pas celui de Access, j'ai juste mis dans ma procédure: | | Private Sub CmdSupprimer_Click() | On Error Resume Next | | DoCmd.RunCommand acCmdDeleteRecord | | End Sub | | mais j'ai toujour le message de Access je voudrais pouvoir en mettre un | personnaliser.
Crée un simple bouton (qui fait n'importe quoi) avec l'assistant et regarde le code pour voir comment on gère les erreurs au lieu de les masquer.
"STEN83"
| Dans ma bd j'ai sur un formulaire un bouton pour supprimer les
| enregistrements, comment faire pour afficher un message personnaliser et non
| pas celui de Access, j'ai juste mis dans ma procédure:
|
| Private Sub CmdSupprimer_Click()
| On Error Resume Next
|
| DoCmd.RunCommand acCmdDeleteRecord
|
| End Sub
|
| mais j'ai toujour le message de Access je voudrais pouvoir en mettre un
| personnaliser.
Crée un simple bouton (qui fait n'importe quoi) avec l'assistant
et regarde le code pour voir comment on gère les erreurs
au lieu de les masquer.
"STEN83" | Dans ma bd j'ai sur un formulaire un bouton pour supprimer les | enregistrements, comment faire pour afficher un message personnaliser et non | pas celui de Access, j'ai juste mis dans ma procédure: | | Private Sub CmdSupprimer_Click() | On Error Resume Next | | DoCmd.RunCommand acCmdDeleteRecord | | End Sub | | mais j'ai toujour le message de Access je voudrais pouvoir en mettre un | personnaliser.
Crée un simple bouton (qui fait n'importe quoi) avec l'assistant et regarde le code pour voir comment on gère les erreurs au lieu de les masquer.
Ponsoir, Ge ne connais que ce moyen pour empêcher le message de confirmation : --> désactiver la case à cocher Modifications des enregistrements dans la zone Confirmer de l'onglet Editer/Rechercher de la boîte de dialogue Options (en choisissant Options dans le menu Outils). tu peux bien sûr demander alors toi-même une confirmation avant de supprimer l'enregistrement. Cette désactivation concernera aussi les autres formulaires. Si besoin tu pourras faire un avertissement sur évènement 'On Delete". Zalut, et bonne chance. pgz
Bonjour, Dans ma bd j'ai sur un formulaire un bouton pour supprimer les enregistrements, comment faire pour afficher un message personnaliser et non pas celui de Access, j'ai juste mis dans ma procédure:
Private Sub CmdSupprimer_Click() On Error Resume Next
DoCmd.RunCommand acCmdDeleteRecord
End Sub
mais j'ai toujour le message de Access je voudrais pouvoir en mettre un personnaliser.
Merci -- Le partage du savoir contribue à l'amélioration de la condition humaine! Merci à tous
Ponsoir,
Ge ne connais que ce moyen pour empêcher le message de confirmation :
--> désactiver la case à cocher Modifications des enregistrements dans la
zone Confirmer de l'onglet Editer/Rechercher de la boîte de dialogue Options
(en choisissant Options dans le menu Outils).
tu peux bien sûr demander alors toi-même une confirmation avant de supprimer
l'enregistrement.
Cette désactivation concernera aussi les autres formulaires. Si besoin tu
pourras faire un avertissement sur évènement 'On Delete".
Zalut, et bonne chance.
pgz
Bonjour,
Dans ma bd j'ai sur un formulaire un bouton pour supprimer les
enregistrements, comment faire pour afficher un message personnaliser et non
pas celui de Access, j'ai juste mis dans ma procédure:
Private Sub CmdSupprimer_Click()
On Error Resume Next
DoCmd.RunCommand acCmdDeleteRecord
End Sub
mais j'ai toujour le message de Access je voudrais pouvoir en mettre un
personnaliser.
Merci
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous
Ponsoir, Ge ne connais que ce moyen pour empêcher le message de confirmation : --> désactiver la case à cocher Modifications des enregistrements dans la zone Confirmer de l'onglet Editer/Rechercher de la boîte de dialogue Options (en choisissant Options dans le menu Outils). tu peux bien sûr demander alors toi-même une confirmation avant de supprimer l'enregistrement. Cette désactivation concernera aussi les autres formulaires. Si besoin tu pourras faire un avertissement sur évènement 'On Delete". Zalut, et bonne chance. pgz
Bonjour, Dans ma bd j'ai sur un formulaire un bouton pour supprimer les enregistrements, comment faire pour afficher un message personnaliser et non pas celui de Access, j'ai juste mis dans ma procédure:
Private Sub CmdSupprimer_Click() On Error Resume Next
DoCmd.RunCommand acCmdDeleteRecord
End Sub
mais j'ai toujour le message de Access je voudrais pouvoir en mettre un personnaliser.
Merci -- Le partage du savoir contribue à l'amélioration de la condition humaine! Merci à tous
Raymond [mvp]
Bonjour.
pour supprimer le message système: décocher la case outils/options/modifier-rechercher/modification des enregistrements.
gérer soi-même la suppression par vba: If MsgBox("Veuillez confirmer.", vbYesNo, "Suppression enregistrement") = vbYes Then If MsgBox("En êtes-vous sûr ?", vbYesNo, "Suppression enregistrement") = vbYes Then MsgBox "Suppression réalisée", vbCritical Else Cancel = True End If Else Cancel = True End If
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"STEN83" a écrit dans le message de news:
Bonjour, Dans ma bd j'ai sur un formulaire un bouton pour supprimer les enregistrements, comment faire pour afficher un message personnaliser et non pas celui de Access, j'ai juste mis dans ma procédure:
Private Sub CmdSupprimer_Click() On Error Resume Next
DoCmd.RunCommand acCmdDeleteRecord
End Sub
mais j'ai toujour le message de Access je voudrais pouvoir en mettre un personnaliser.
Merci -- Le partage du savoir contribue à l'amélioration de la condition humaine! Merci à tous
Bonjour.
pour supprimer le message système:
décocher la case outils/options/modifier-rechercher/modification des
enregistrements.
gérer soi-même la suppression par vba:
If MsgBox("Veuillez confirmer.", vbYesNo, "Suppression enregistrement") =
vbYes Then
If MsgBox("En êtes-vous sûr ?", vbYesNo, "Suppression enregistrement") =
vbYes Then
MsgBox "Suppression réalisée", vbCritical
Else
Cancel = True
End If
Else
Cancel = True
End If
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"STEN83" <STEN83@discussions.microsoft.com> a écrit dans le message de news:
D6D231E7-C84B-47B7-9659-6E085439E6E0@microsoft.com...
Bonjour,
Dans ma bd j'ai sur un formulaire un bouton pour supprimer les
enregistrements, comment faire pour afficher un message personnaliser et
non
pas celui de Access, j'ai juste mis dans ma procédure:
Private Sub CmdSupprimer_Click()
On Error Resume Next
DoCmd.RunCommand acCmdDeleteRecord
End Sub
mais j'ai toujour le message de Access je voudrais pouvoir en mettre un
personnaliser.
Merci
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous
pour supprimer le message système: décocher la case outils/options/modifier-rechercher/modification des enregistrements.
gérer soi-même la suppression par vba: If MsgBox("Veuillez confirmer.", vbYesNo, "Suppression enregistrement") = vbYes Then If MsgBox("En êtes-vous sûr ?", vbYesNo, "Suppression enregistrement") = vbYes Then MsgBox "Suppression réalisée", vbCritical Else Cancel = True End If Else Cancel = True End If
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"STEN83" a écrit dans le message de news:
Bonjour, Dans ma bd j'ai sur un formulaire un bouton pour supprimer les enregistrements, comment faire pour afficher un message personnaliser et non pas celui de Access, j'ai juste mis dans ma procédure:
Private Sub CmdSupprimer_Click() On Error Resume Next
DoCmd.RunCommand acCmdDeleteRecord
End Sub
mais j'ai toujour le message de Access je voudrais pouvoir en mettre un personnaliser.
Merci -- Le partage du savoir contribue à l'amélioration de la condition humaine! Merci à tous
Raymond [mvp]
.../... à placer dans l'évènement Form_Delete
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
.../...
à placer dans l'évènement Form_Delete
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
