Bonjour, j'ai ce code sur un bouton d'un formulaire :
Private Sub Commande53_Click()
MsgBox "Supprimer une soci=E9t=E9 supprimera=20
automatiquement les assembl=E9es g=E9n=E9rales de cette=20
soci=E9t=E9", , "Attention"
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.RunMacro "Fermerformulairemodifsoci=E9t=E9"
End Sub
Si je ne mets pas la MSGBOX dans le code cela fonctionne=20
(mon enregistrement est supprim=E9. Mais si je la mets,=20
j'ai bien mas MSGBOX qui apparait, je fais OK et apr=E8s=20
j'ai le message suivant : "Erreur d'ex=E9cution '2046' : La=20
commande ou l'action SupprimerEnregistrement n'est pas=20
disponible pour l'instant."
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
Raymond [mvp]
bonjour.
au lieu de placer ton msgbox avant, place-le sur l'événement "Sur suppression" et demande confirmation de la suppression: Private Sub Form_Delete(Cancel As Integer) If MsgBox("Supprimer une société supprimera automatiquement les assemblées générales de cette société" & vbCrLf & "Confirmer.", vbYesNo, "Attention") = vbNo Then Cancel = True End If End Sub
si tu cliques sur non, l'enregistrement ne sera pas annulé alors que dans ton cas il est toujours annulé même en cas d'erreur de click. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"BEN" a écrit dans le message de news:c19301c47a0d$f4944de0$ Bonjour, j'ai ce code sur un bouton d'un formulaire :
Private Sub Commande53_Click() MsgBox "Supprimer une société supprimera automatiquement les assemblées générales de cette société", , "Attention" DoCmd.RunCommand acCmdDeleteRecord DoCmd.RunMacro "Fermerformulairemodifsociété" End Sub
Si je ne mets pas la MSGBOX dans le code cela fonctionne (mon enregistrement est supprimé. Mais si je la mets, j'ai bien mas MSGBOX qui apparait, je fais OK et après j'ai le message suivant : "Erreur d'exécution '2046' : La commande ou l'action SupprimerEnregistrement n'est pas disponible pour l'instant."
Quelqun peut-il m'aider. Merci d'avance, BEN.
bonjour.
au lieu de placer ton msgbox avant, place-le sur l'événement "Sur
suppression" et demande confirmation de la suppression:
Private Sub Form_Delete(Cancel As Integer)
If MsgBox("Supprimer une société supprimera automatiquement les
assemblées générales de cette société" & vbCrLf & "Confirmer.", vbYesNo,
"Attention") = vbNo Then
Cancel = True
End If
End Sub
si tu cliques sur non, l'enregistrement ne sera pas annulé alors que dans
ton cas il est toujours annulé même en cas d'erreur de click.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"BEN" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:c19301c47a0d$f4944de0$a501280a@phx.gbl...
Bonjour, j'ai ce code sur un bouton d'un formulaire :
Private Sub Commande53_Click()
MsgBox "Supprimer une société supprimera
automatiquement les assemblées générales de cette
société", , "Attention"
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.RunMacro "Fermerformulairemodifsociété"
End Sub
Si je ne mets pas la MSGBOX dans le code cela fonctionne
(mon enregistrement est supprimé. Mais si je la mets,
j'ai bien mas MSGBOX qui apparait, je fais OK et après
j'ai le message suivant : "Erreur d'exécution '2046' : La
commande ou l'action SupprimerEnregistrement n'est pas
disponible pour l'instant."
au lieu de placer ton msgbox avant, place-le sur l'événement "Sur suppression" et demande confirmation de la suppression: Private Sub Form_Delete(Cancel As Integer) If MsgBox("Supprimer une société supprimera automatiquement les assemblées générales de cette société" & vbCrLf & "Confirmer.", vbYesNo, "Attention") = vbNo Then Cancel = True End If End Sub
si tu cliques sur non, l'enregistrement ne sera pas annulé alors que dans ton cas il est toujours annulé même en cas d'erreur de click. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"BEN" a écrit dans le message de news:c19301c47a0d$f4944de0$ Bonjour, j'ai ce code sur un bouton d'un formulaire :
Private Sub Commande53_Click() MsgBox "Supprimer une société supprimera automatiquement les assemblées générales de cette société", , "Attention" DoCmd.RunCommand acCmdDeleteRecord DoCmd.RunMacro "Fermerformulairemodifsociété" End Sub
Si je ne mets pas la MSGBOX dans le code cela fonctionne (mon enregistrement est supprimé. Mais si je la mets, j'ai bien mas MSGBOX qui apparait, je fais OK et après j'ai le message suivant : "Erreur d'exécution '2046' : La commande ou l'action SupprimerEnregistrement n'est pas disponible pour l'instant."
Quelqun peut-il m'aider. Merci d'avance, BEN.
ben
Merci Raymond, ça marche à la perfection !
-----Message d'origine----- bonjour.
au lieu de placer ton msgbox avant, place-le sur l'événement "Sur
suppression" et demande confirmation de la suppression: Private Sub Form_Delete(Cancel As Integer) If MsgBox("Supprimer une société supprimera automatiquement les
assemblées générales de cette société" & vbCrLf & "Confirmer.", vbYesNo,
"Attention") = vbNo Then Cancel = True End If End Sub
si tu cliques sur non, l'enregistrement ne sera pas annulé alors que dans
ton cas il est toujours annulé même en cas d'erreur de click.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"BEN" a écrit dans le message de
news:c19301c47a0d$f4944de0$ Bonjour, j'ai ce code sur un bouton d'un formulaire :
Private Sub Commande53_Click() MsgBox "Supprimer une société supprimera automatiquement les assemblées générales de cette société", , "Attention" DoCmd.RunCommand acCmdDeleteRecord DoCmd.RunMacro "Fermerformulairemodifsociété" End Sub
Si je ne mets pas la MSGBOX dans le code cela fonctionne (mon enregistrement est supprimé. Mais si je la mets, j'ai bien mas MSGBOX qui apparait, je fais OK et après j'ai le message suivant : "Erreur d'exécution '2046' : La commande ou l'action SupprimerEnregistrement n'est pas disponible pour l'instant."
Quelqun peut-il m'aider. Merci d'avance, BEN.
.
Merci Raymond, ça marche à la perfection !
-----Message d'origine-----
bonjour.
au lieu de placer ton msgbox avant, place-le sur
l'événement "Sur
suppression" et demande confirmation de la suppression:
Private Sub Form_Delete(Cancel As Integer)
If MsgBox("Supprimer une société supprimera
automatiquement les
assemblées générales de cette société" & vbCrLf
& "Confirmer.", vbYesNo,
"Attention") = vbNo Then
Cancel = True
End If
End Sub
si tu cliques sur non, l'enregistrement ne sera pas
annulé alors que dans
ton cas il est toujours annulé même en cas d'erreur de
click.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"BEN" <anonymous@discussions.microsoft.com> a écrit dans
le message de
news:c19301c47a0d$f4944de0$a501280a@phx.gbl...
Bonjour, j'ai ce code sur un bouton d'un formulaire :
Private Sub Commande53_Click()
MsgBox "Supprimer une société supprimera
automatiquement les assemblées générales de cette
société", , "Attention"
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.RunMacro "Fermerformulairemodifsociété"
End Sub
Si je ne mets pas la MSGBOX dans le code cela fonctionne
(mon enregistrement est supprimé. Mais si je la mets,
j'ai bien mas MSGBOX qui apparait, je fais OK et après
j'ai le message suivant : "Erreur d'exécution '2046' : La
commande ou l'action SupprimerEnregistrement n'est pas
disponible pour l'instant."
au lieu de placer ton msgbox avant, place-le sur l'événement "Sur
suppression" et demande confirmation de la suppression: Private Sub Form_Delete(Cancel As Integer) If MsgBox("Supprimer une société supprimera automatiquement les
assemblées générales de cette société" & vbCrLf & "Confirmer.", vbYesNo,
"Attention") = vbNo Then Cancel = True End If End Sub
si tu cliques sur non, l'enregistrement ne sera pas annulé alors que dans
ton cas il est toujours annulé même en cas d'erreur de click.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"BEN" a écrit dans le message de
news:c19301c47a0d$f4944de0$ Bonjour, j'ai ce code sur un bouton d'un formulaire :
Private Sub Commande53_Click() MsgBox "Supprimer une société supprimera automatiquement les assemblées générales de cette société", , "Attention" DoCmd.RunCommand acCmdDeleteRecord DoCmd.RunMacro "Fermerformulairemodifsociété" End Sub
Si je ne mets pas la MSGBOX dans le code cela fonctionne (mon enregistrement est supprimé. Mais si je la mets, j'ai bien mas MSGBOX qui apparait, je fais OK et après j'ai le message suivant : "Erreur d'exécution '2046' : La commande ou l'action SupprimerEnregistrement n'est pas disponible pour l'instant."
