Discussion :

[nicoaix]

Bonjour à tous,

Je souhaite, dans une base access(2003) vider plusieurs tables. Pour ça j'ai créé une requete dont le code sql est le suivant:

Code :

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

1
2
DELETE *
FROM TABLE1,TABLE2,TABLE3,TABLE4,TABLE5;

Le problème c'est que lorsque je lance cette requete il m'affiche une boite de dialogue avec le message suivant:

"Spécifiez la table contenant les enregistrements que vous voulez supprimer"

Avec comme seuls choix un bouton ok et un bouton aide (qui ne m'aide pas).

Pourriez-vous me dire ce qui ne va pas et comment faire pour que ça aille ;-) ?

Merci.

[Petogaz]

salut,

je pense qu'il va te falloir regarder les tuto sur les requête. tu ne peux par une même requête supprimer dans plusieurs tables. pour cela il te faut créer plusieurs requêtes de suppression.

[Invité]

Salut,

Ou mettre ta table en variable, et alimenté cette variable par un boucle ou autre.

Starec

[batou22003]

DELETE *
FROM TABLE1,TABLE2,TABLE3,TABLE4,TABLE5;

n'est pas correct.

Utilise plutot un tableau contenant le nom des tables
que tu parcoures ensuite.
Le tableau est en fait un variant initialisé comme un tableau de String.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub supprimerTables ()
 
On error goto err_suppr
 
Dim strReqSupprimer as String 
Dim tabTables as Variant
Dim strTbl 
tabTables = Array ("Table1","Table2","Table3","Table4","Table5")
strReqSupprimer = "delete * from "
 
For each strTbl in tabTables
CurrentDb.Execute strReqSupprimer & strTbl, dbFailOnError
next 
 
err_suppr:
MsgBox Err.Number 
End sub

J'espère que cela répond à ta question.


edit : cafeine, merci d'utiliser les balises code

[soad029]

Moi en tout cas, ça à répondu à ma question (que je n'ai pas posé ) merci beaucoup !!!!