Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Effacement enregistrements

Effacement enregistrements

7 réponses
Avatar
Christian.L
Bonjour à tous

Quelle est la syntaxe d'écriture du code VBA pour effacer tous les
enregistrements
d'une table.

J'ai essayé le code suivant, mais cela ne marche pas :

' Declaration de la base courante, de l'enregistrement de la table
Set Base = CurrentDb
Set Enregistrement1 = Base.OpenRecordset("Fichiers", dbOpenDynaset)

' Effacement de la table
Enregistrement1.Delete

Merci d'avance

Christian
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
Fred Pasc
Bonjour,
Je sais pas si c'est ça que tu veux mais moi je suis passé par une requête
(Delete From nom_de_la_table) et ça marche. Ensuite tu fais un appel de ta
requête par une macro.
A+
Fred


"Christian.L" a écrit dans le message de
news:
Bonjour à tous

Quelle est la syntaxe d'écriture du code VBA pour effacer tous les
enregistrements
d'une table.

J'ai essayé le code suivant, mais cela ne marche pas :

' Declaration de la base courante, de l'enregistrement de la table
Set Base = CurrentDb
Set Enregistrement1 = Base.OpenRecordset("Fichiers", dbOpenDynaset)

' Effacement de la table
Enregistrement1.Delete

Merci d'avance

Christian



Avatar
Raymond [mvp]
Bonjour.

fais le avec une requête:
DoCmd.RunSQL "delete * from matable"
et fais un Me.Requery de ton formulaire si la table est la source des
données.

--
@+
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


"Christian.L" a écrit dans le message de
news:
Bonjour à tous

Quelle est la syntaxe d'écriture du code VBA pour effacer tous les
enregistrements
d'une table.

J'ai essayé le code suivant, mais cela ne marche pas :

' Declaration de la base courante, de l'enregistrement de la table
Set Base = CurrentDb
Set Enregistrement1 = Base.OpenRecordset("Fichiers", dbOpenDynaset)

' Effacement de la table
Enregistrement1.Delete

Merci d'avance

Christian


Avatar
Christian.L
Bonjour et merci a Raymond et Fred

J'ai réussi a faire ma requête d'effacement que j'ai appelée "Recapitulation
suppression" et
qui efface les enregistrements de la table "Recapitulation"

Par contre je n'arrive pas a l'incorporer dans mon code VBA avec la ligne
"DoCmd.RunSQL "delete * from matable""
J'ai essayé plusieurs combinaison, a chaque fois j'ai une erreur

Un petit coup de main, SVP

Christian

"Raymond [mvp]" a écrit dans le message de
news: %
Bonjour.

fais le avec une requête:
DoCmd.RunSQL "delete * from matable"
et fais un Me.Requery de ton formulaire si la table est la source des
données.

--
@+
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


"Christian.L" a écrit dans le message de
news:
Bonjour à tous

Quelle est la syntaxe d'écriture du code VBA pour effacer tous les
enregistrements
d'une table.

J'ai essayé le code suivant, mais cela ne marche pas :

' Declaration de la base courante, de l'enregistrement de la table
Set Base = CurrentDb
Set Enregistrement1 = Base.OpenRecordset("Fichiers", dbOpenDynaset)

' Effacement de la table
Enregistrement1.Delete

Merci d'avance

Christian






Avatar
Christian.L
Re bonjour

J'ai trouvé :

DoCmd.RunSQL "DELETE *FROM Recapitulation"

Par contre existe t'il un moyen de ne pas afficher la boite de dialogue de
confirmation ?

Christian


"Christian.L" a écrit dans le message de
news:
Bonjour et merci a Raymond et Fred

J'ai réussi a faire ma requête d'effacement que j'ai appelée
"Recapitulation suppression" et
qui efface les enregistrements de la table "Recapitulation"

Par contre je n'arrive pas a l'incorporer dans mon code VBA avec la ligne
"DoCmd.RunSQL "delete * from matable""
J'ai essayé plusieurs combinaison, a chaque fois j'ai une erreur

Un petit coup de main, SVP

Christian

"Raymond [mvp]" a écrit dans le message
de news: %
Bonjour.

fais le avec une requête:
DoCmd.RunSQL "delete * from matable"
et fais un Me.Requery de ton formulaire si la table est la source des
données.

--
@+
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


"Christian.L" a écrit dans le message de
news:
Bonjour à tous

Quelle est la syntaxe d'écriture du code VBA pour effacer tous les
enregistrements
d'une table.

J'ai essayé le code suivant, mais cela ne marche pas :

' Declaration de la base courante, de l'enregistrement de la table
Set Base = CurrentDb
Set Enregistrement1 = Base.OpenRecordset("Fichiers", dbOpenDynaset)

' Effacement de la table
Enregistrement1.Delete

Merci d'avance

Christian









Avatar
Fred Pasc
Re

Il existe la macro "Avertissements", tu la mets sur non, et il n'y a plus de
messages, il coche oui ou ok tout seul.
J'imagine qu'il y a mieux en VB mais je suis pas spécialiste.

A+
Fred

"Christian.L" a écrit dans le message de
news: #
Re bonjour

J'ai trouvé :

DoCmd.RunSQL "DELETE *FROM Recapitulation"

Par contre existe t'il un moyen de ne pas afficher la boite de dialogue de
confirmation ?

Christian


"Christian.L" a écrit dans le message de
news:
Bonjour et merci a Raymond et Fred

J'ai réussi a faire ma requête d'effacement que j'ai appelée
"Recapitulation suppression" et
qui efface les enregistrements de la table "Recapitulation"

Par contre je n'arrive pas a l'incorporer dans mon code VBA avec la
ligne


"DoCmd.RunSQL "delete * from matable""
J'ai essayé plusieurs combinaison, a chaque fois j'ai une erreur

Un petit coup de main, SVP

Christian

"Raymond [mvp]" a écrit dans le
message


de news: %
Bonjour.

fais le avec une requête:
DoCmd.RunSQL "delete * from matable"
et fais un Me.Requery de ton formulaire si la table est la source des
données.

--
@+
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


"Christian.L" a écrit dans le message de
news:
Bonjour à tous

Quelle est la syntaxe d'écriture du code VBA pour effacer tous les
enregistrements
d'une table.

J'ai essayé le code suivant, mais cela ne marche pas :

' Declaration de la base courante, de l'enregistrement de la table
Set Base = CurrentDb
Set Enregistrement1 = Base.OpenRecordset("Fichiers", dbOpenDynaset)

' Effacement de la table
Enregistrement1.Delete

Merci d'avance

Christian












Avatar
Raymond [mvp]
en vba, entourer la requête par:
DoCmd.SetWarnings False
' ici la requête
DoCmd.SetWarnings True


--
@+
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


"Fred Pasc" a écrit dans le message de news:
d5vm8d$p1c$
Re

Il existe la macro "Avertissements", tu la mets sur non, et il n'y a plus
de
messages, il coche oui ou ok tout seul.
J'imagine qu'il y a mieux en VB mais je suis pas spécialiste.

A+
Fred

"Christian.L" a écrit dans le message de
news: #
Re bonjour

J'ai trouvé :

DoCmd.RunSQL "DELETE *FROM Recapitulation"

Par contre existe t'il un moyen de ne pas afficher la boite de dialogue
de
confirmation ?

Christian


"Christian.L" a écrit dans le message de
news:
Bonjour et merci a Raymond et Fred

J'ai réussi a faire ma requête d'effacement que j'ai appelée
"Recapitulation suppression" et
qui efface les enregistrements de la table "Recapitulation"

Par contre je n'arrive pas a l'incorporer dans mon code VBA avec la
ligne


"DoCmd.RunSQL "delete * from matable""
J'ai essayé plusieurs combinaison, a chaque fois j'ai une erreur

Un petit coup de main, SVP

Christian

"Raymond [mvp]" a écrit dans le
message


de news: %
Bonjour.

fais le avec une requête:
DoCmd.RunSQL "delete * from matable"
et fais un Me.Requery de ton formulaire si la table est la source des
données.

--
@+
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


"Christian.L" a écrit dans le message
de
news:
Bonjour à tous

Quelle est la syntaxe d'écriture du code VBA pour effacer tous les
enregistrements
d'une table.

J'ai essayé le code suivant, mais cela ne marche pas :

' Declaration de la base courante, de l'enregistrement de la table
Set Base = CurrentDb
Set Enregistrement1 = Base.OpenRecordset("Fichiers",
dbOpenDynaset)

' Effacement de la table
Enregistrement1.Delete

Merci d'avance

Christian
















Avatar
Christian.L
Bonjour a tous

Cela marche parfaitement

Merci a vous deux

Christian

"Raymond [mvp]" a écrit dans le message de
news: %
en vba, entourer la requête par:
DoCmd.SetWarnings False
' ici la requête
DoCmd.SetWarnings True


--
@+
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


"Fred Pasc" a écrit dans le message de news:
d5vm8d$p1c$
Re

Il existe la macro "Avertissements", tu la mets sur non, et il n'y a plus
de
messages, il coche oui ou ok tout seul.
J'imagine qu'il y a mieux en VB mais je suis pas spécialiste.

A+
Fred

"Christian.L" a écrit dans le message de
news: #
Re bonjour

J'ai trouvé :

DoCmd.RunSQL "DELETE *FROM Recapitulation"

Par contre existe t'il un moyen de ne pas afficher la boite de dialogue
de
confirmation ?

Christian


"Christian.L" a écrit dans le message de
news:
Bonjour et merci a Raymond et Fred

J'ai réussi a faire ma requête d'effacement que j'ai appelée
"Recapitulation suppression" et
qui efface les enregistrements de la table "Recapitulation"

Par contre je n'arrive pas a l'incorporer dans mon code VBA avec la
ligne


"DoCmd.RunSQL "delete * from matable""
J'ai essayé plusieurs combinaison, a chaque fois j'ai une erreur

Un petit coup de main, SVP

Christian

"Raymond [mvp]" a écrit dans le
message


de news: %
Bonjour.

fais le avec une requête:
DoCmd.RunSQL "delete * from matable"
et fais un Me.Requery de ton formulaire si la table est la source des
données.

--
@+
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


"Christian.L" a écrit dans le message
de
news:
Bonjour à tous

Quelle est la syntaxe d'écriture du code VBA pour effacer tous les
enregistrements
d'une table.

J'ai essayé le code suivant, mais cela ne marche pas :

' Declaration de la base courante, de l'enregistrement de la table
Set Base = CurrentDb
Set Enregistrement1 = Base.OpenRecordset("Fichiers",
dbOpenDynaset)

' Effacement de la table
Enregistrement1.Delete

Merci d'avance

Christian