Pour effacer un enregistrement sans changer les parametres d'access, je
voulais faire ça :
Dim par As Application
Private Sub Commande14_Click()
par = Application.GetOption("confirmactionqueries")
Application.SetOption ("confirmactionqueries"), False
DoCmd.RunCommand acCmdDeleteRecord
Application.SetOption ("confirmactionqueries"), par
End Sub
Il ne reconnais pas "confirmactionqueries" j'ai essayé avec
"confirmactionquery". J'ai chercher dans l'aide et la biblioteques sans
succes.
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,
"belok" a écrit: Pour effacer un enregistrement sans changer les parametres d'access, je voulais faire ça :
Dim par As Application
Private Sub Commande14_Click() par = Application.GetOption("confirmactionqueries") Application.SetOption ("confirmactionqueries"), False DoCmd.RunCommand acCmdDeleteRecord Application.SetOption ("confirmactionqueries"), par End Sub
With DoCmd .SetWarnings False .RunCommand acCmdDeleteRecord .SetWarnings True End With
ne convient pas ?
-- A+ Pierre (3stone) Access MVP ------------------------------------------------------- Bien démarrer ? c'est ici http://users.skynet.be/mpfa/ ( Je ne réponds pas aux emails qui concernent Access ) -------------------------------------------------------
Salut,
"belok" <belok@skynet.be> a écrit:
Pour effacer un enregistrement sans changer les parametres d'access, je
voulais faire ça :
Dim par As Application
Private Sub Commande14_Click()
par = Application.GetOption("confirmactionqueries")
Application.SetOption ("confirmactionqueries"), False
DoCmd.RunCommand acCmdDeleteRecord
Application.SetOption ("confirmactionqueries"), par
End Sub
With DoCmd
.SetWarnings False
.RunCommand acCmdDeleteRecord
.SetWarnings True
End With
ne convient pas ?
--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------
"belok" a écrit: Pour effacer un enregistrement sans changer les parametres d'access, je voulais faire ça :
Dim par As Application
Private Sub Commande14_Click() par = Application.GetOption("confirmactionqueries") Application.SetOption ("confirmactionqueries"), False DoCmd.RunCommand acCmdDeleteRecord Application.SetOption ("confirmactionqueries"), par End Sub
With DoCmd .SetWarnings False .RunCommand acCmdDeleteRecord .SetWarnings True End With
ne convient pas ?
-- A+ Pierre (3stone) Access MVP ------------------------------------------------------- Bien démarrer ? c'est ici http://users.skynet.be/mpfa/ ( Je ne réponds pas aux emails qui concernent Access ) -------------------------------------------------------
belok
merci,
je connaissais pas cette commande ça fonctionne nikel ...
"3stone" a écrit dans le message de news:3fad6657$0$32187$
Salut,
"belok" a écrit: Pour effacer un enregistrement sans changer les parametres d'access, je voulais faire ça :
Dim par As Application
Private Sub Commande14_Click() par = Application.GetOption("confirmactionqueries") Application.SetOption ("confirmactionqueries"), False DoCmd.RunCommand acCmdDeleteRecord Application.SetOption ("confirmactionqueries"), par End Sub
With DoCmd .SetWarnings False .RunCommand acCmdDeleteRecord .SetWarnings True End With
ne convient pas ?
-- A+ Pierre (3stone) Access MVP ------------------------------------------------------- Bien démarrer ? c'est ici http://users.skynet.be/mpfa/ ( Je ne réponds pas aux emails qui concernent Access ) -------------------------------------------------------
merci,
je connaissais pas cette commande ça fonctionne nikel ...
"3stone" <3stone@skynet.be> a écrit dans le message de
news:3fad6657$0$32187$ba620e4c@reader3.news.skynet.be...
Salut,
"belok" <belok@skynet.be> a écrit:
Pour effacer un enregistrement sans changer les parametres d'access, je
voulais faire ça :
Dim par As Application
Private Sub Commande14_Click()
par = Application.GetOption("confirmactionqueries")
Application.SetOption ("confirmactionqueries"), False
DoCmd.RunCommand acCmdDeleteRecord
Application.SetOption ("confirmactionqueries"), par
End Sub
With DoCmd
.SetWarnings False
.RunCommand acCmdDeleteRecord
.SetWarnings True
End With
ne convient pas ?
--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------
je connaissais pas cette commande ça fonctionne nikel ...
"3stone" a écrit dans le message de news:3fad6657$0$32187$
Salut,
"belok" a écrit: Pour effacer un enregistrement sans changer les parametres d'access, je voulais faire ça :
Dim par As Application
Private Sub Commande14_Click() par = Application.GetOption("confirmactionqueries") Application.SetOption ("confirmactionqueries"), False DoCmd.RunCommand acCmdDeleteRecord Application.SetOption ("confirmactionqueries"), par End Sub
With DoCmd .SetWarnings False .RunCommand acCmdDeleteRecord .SetWarnings True End With
ne convient pas ?
-- A+ Pierre (3stone) Access MVP ------------------------------------------------------- Bien démarrer ? c'est ici http://users.skynet.be/mpfa/ ( Je ne réponds pas aux emails qui concernent Access ) -------------------------------------------------------
