Discussion :

[milielf]

bonjour,


voilà, j'ai un code pour supprimer une quarantaine de tables :

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
18
 
 
Private Sub suppresstab_Click()
On Error GoTo Err_suppresstab_Click
 
CurrentDb.Execute ("drop table AFFECTATION_LOCAL")
CurrentDb.Execute ("drop table ADRESSE")
...
CurrentDb.Execute ("drop table TYPE_POS")
 
Exit_suppresstab_Click:
    Exit Sub
 
Err_suppresstab_Click:
    MsgBox Err.Description
    Resume Exit_suppresstab_Click
 
End Sub

mon probleme : si une table n'existe pas, j'aimerai que le processus continue quand meme, afin que les autres soient effacées quand meme.

[Thibaut_Dupont]

Tu as essayer de faire des boucles if ? Tu teste l'existance de ta table (j'ai vu un poste qui traitait de ça) et si table présente tu la supprime...

Après il y a peu etre une fonction prédéfinie....mais je ne connais pas assez VBA pour t'en dire plus.

En espérant t'aider.

++
Thib

[milielf]

j'y ai pensé, mais j'aurai aimer ne pas refaire ça pour une quarantaine de table.

si je veut mettre un If, je ne voit pas comment l'ecrire vraiment pour ne le mettre qu'une fois (je debute avec la prog).

[Lou Pitchoun]

Salut,
Il faut que tu testes si la table existe (recherche dans la FAQ)
Si tu ne veux mettre qu'un seul If il faut que tu fasses une boucle sur les tables.

Code : exemple d'algo :

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

1
2
3
4
5
Pour Chaque table
Si tableExiste alors
    suppression table
Fin si
Table suivante

Cela veut dire que tu vas supprimer toutes les tables de la base.
Si tu veux supprimer que quelques tables, tu peux utiliser un tableau contenant le nom des tables à supprimer.

[milielf]

ben j'avoue que je comprend pas vraiment...

en fait je ne veut supprimer qu'une partie des tables, mais je ne sais pas faire un tableau (ok je vais dans la FAQ )

je n'ai pas non plus compris ce qu'il faut mettre dans le If pour vérifier si la table existe , malgrès le fait que j'ai trouvé ça dans la FAQ...

je suis perdue!!!!

[micniv]

J'imagine que tu as copié la fonction ExistTable2 dans le module de ton formulaire (Ca serait mieux dans un module public, mais plus tard)

Cette fontion retourne une valeur Bouléenne :

alors l'utilisation du IF ce n'est que le début de la logique :

if ExistTable2("maTable")=TRUE then
je delete maTable
end if

Je pense qu'il faudrait un peu plus se touiller les petites cellules grises !

Bonne journée

[milielf]

merci, mais se "touiller les cellulles grises" quand on connait rien au domaine et qu'on est pressé par le temps, c'est pas évident. je sais que j'ai besoin de cours pour apprendre les bases de la programmation, c'est une logique qui m'échappe et je suis pas vraiment faite pour... j'estime que c'est déjà un bon début d'essayer de comprendre alors que c'est pas du tout mon truc.

en tout les cas, je vous doit à tous un grand merci, parce que sans vous je sais pas comment j'aurai fait!

[Arkham46]

slt,

Est-ce utile de se touiller les cellules grises avec une fonction d'existence de table???
Il suffit de demander à continuer l'exécution dans la gestion d'erreur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Err_suppresstab_Click:
Select Case Err.Number
    Case 3376
       ' Erreur table inexistante
       ' Continue l'exécution à la l'instruction suivante
       Resume Next
    Case Else
       ' Autre erreur
       ' Affiche un message d'erreur
       MsgBox Err.Description
       Resume Exit_suppresstab_Click
End Select

[milielf]

merci bien, en effet c'est carrement plus simple pour moi.

merci pour tout