Discussion :

[teunniq]

Bonjour,

J'utilise une macro afin d'automatiser des traitements sur ma BDD (importations enregistrées, requêtes, puis exportations enregistrées).
Dans le cadre de ma macro, je dois à un moment supprimer une table ; mais cette table peut ou non exister (cela dépend du moment où l'on exécute la macro).

Si la table n'existe pas, la macro s'arrête sur l'instruction "SupprimerObjet (Table)", ce qui est normale.
J'aimerai donc implémenter une condition sans passer en VBA pour tester l'existence de ma table. Cela donnerait :

Si Table1 existe alors
SupprimerObjet(Table1)
FinSi

Cependant je ne parviens pas à trouver l'expression conditionnelle qui me permet de tester l'existence d'une table.
Quelqu'un aurait la solution ?

Merci beaucoup!

Teunniq

[ClaudeLELOUP]

Bonjour,

En VBA, ce serait pourtant tout facile :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub tst()
  On Error GoTo GestionErreurs
  DoCmd.DeleteObject acTable, "LaTable"
 
GestionErreurs:
  Select Case Err.Number
    Case 0 'pas d'erreur
      Exit Sub
    Case 7874 'la table n'existe pas, on continue comme si de rien n'était
      Resume Next
    Case Else
      MsgBox "Erreur dans sub tst N° " & Err.Number & " " & Err.Description
  End Select
End Sub