Supprimer enregistrements d'une table Access ?

Messages postés
30
Date d'inscription
vendredi 21 juin 2002
Statut
Membre
Dernière intervention
9 mai 2003
- - Dernière réponse : cs_Gdal
Messages postés
30
Date d'inscription
vendredi 21 juin 2002
Statut
Membre
Dernière intervention
9 mai 2003
- 1 août 2002 à 17:03
Salut,

Je recherche le code VBA qui supprime tous les enregistrements d'une table ? si possible sans demande de confirmation ...

Merci d'avance

Gwendal

---------------
L'amour est la victoire de l'imagination sur l'intelligence.
Afficher la suite 

5 réponses

Messages postés
14
Date d'inscription
mardi 12 mars 2002
Statut
Membre
Dernière intervention
31 juillet 2002
0
Merci
DoCmd.SetWarnings False
Docmd.Execute "DELETE * FROM TABLE;"
DoCmd.SetWarnings True
A+
Messages postés
30
Date d'inscription
vendredi 21 juin 2002
Statut
Membre
Dernière intervention
9 mai 2003
0
Merci
J'obtiens un message d'erreur "membre de méthode ou de données introuvable"

le code est mis sur la fermeture d'un formulaire.

DoCmd.SetWarnings False
Docmd.Execute "DELETE * FROM TABLE;"
DoCmd.SetWarnings True

Merci

Gwendal

L'amour est la victoire de l'imagination sur l'intelligence.
Messages postés
14
Date d'inscription
mardi 12 mars 2002
Statut
Membre
Dernière intervention
31 juillet 2002
0
Merci
Il faut voir si tu développe sous Access ou pas,
car ça ne marche que sous VBA Access.
J'ai une erreur aussi :
Ce n'est pas : DoCmd.Execute
Mais :
Dim Dbd as database
Set Dbd = CurrentDb
DoCmd.SetWarnings False
Dbd.Execute "DELETE ...."
DoCmd.SetWarnings True

Il faut effectuer un débogage pour savoir
où est l'erreur.
A+
Messages postés
45
Date d'inscription
samedi 6 juillet 2002
Statut
Membre
Dernière intervention
4 décembre 2011
0
Merci
Bonjour,
utilise la cmd SQL
DELETE FROM 'nom de ta table'
WHERE 'nom du champ de ta table
DELETE 'nom table' supprime la table
comme tu le souhaite c'est sans confirmation et irrevocable
j'ai efface une table de 2.5 M d'enrg en 0.5s !!!
ATTENTION
Bon courage
Le borgne est roi au royaume des aveugles
Messages postés
30
Date d'inscription
vendredi 21 juin 2002
Statut
Membre
Dernière intervention
9 mai 2003
0
Merci
re,

Private Sub nomdubouton_Click()

'Empêche les demande de confirmation de s'afficher
DoCmd.SetWarnings False

'Efface le contenu de la table
DoCmd.RunSQL "DELETE * FROM nomdelatable;"

'Retablit les confirmations
DoCmd.SetWarnings True

End Sub


ATTENTION il faut pas que la table s'appelle table !!
sinon erreur 3131 !
Erreur de synthaxe dans la clause FROM

je sais j'ai mongtemps cherché !

MERCI DU COUP DE MAIN !

@+ Gwendal