Discussion :

[illight]

Bonjour,

j'ai juste une question : comment faire pour nettoyer une base de données ?

En fait je voudrais supprimer tous les enregistrements de toutes les tables

Je sais comment supprimer les enregistrements d'une table :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DELETE * FROM Table1;

Mais comment faire pour "parcourir" toutes les tables, et ainsi supprimer tous les enregistrements de toutes les tables ?

Merci d'avance pour votre aide

[Jean-Philippe André]

salut,
j'ai un mode VBA si tu veux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub ViderToutesTables()
dim temptable as TableDef
on error Resume Next 
For each temptable in CurrentDb.TableDefs
CurrentDb.Execute "DELETE * FROM ["& temptable.Name &"];"
Next
MsgBox "je t'ai plié toutes tes tables ;)"
End Sub

[illight]

Yes merci

[illight]

Je me suis réjoui trop vite

Il connait pas cette variable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TableDef

[Jean-Philippe André]

bonjour,
as-tu vérifié les références de ton projet ?
(Manquant ou bien Access non cochée ?)

[Invité]

Bonjour

Il faut référencer la bibliothèque Microsoft DAO 3.6 Object Library

Starec

[illight]

Heuu j'ai fait tourné ta macro, et ça m'a tout supprimé tous mes formulaires et tout, j'ai perdu tout mon boulot la et j'ai aps fait de sauvegarde avant

[Invité]

Bonjour

Le code de jpchek ta vidé toutes les tables, entre autre les tables systèmes que l'on ne voit pas, dans ces tables tu as des données sur tous les objets de ta base.

Une solution pour remédier à cela ?

Starec

[Jean-Philippe André]

Il n'y a pas de suppression possible par un DELETE dans les tables systèmes.

La disparition des formulaires ne vient pas de ce code en tout cas.

As-tu vérifié qu'aucune modification extérieure n'est venue entre temps ?

Si un back-up est fait par ton équipe info, tu dois pouvoir les appeler pour qu'il te remonte le fichier en principe.