Tester l'existence d'une table dans une bd access

jho - 2 juin 2001 à 17:18
 jho - 3 juin 2001 à 13:15
existe-t-il une commande vba voir une macro ?

2 réponses

Sub ' ou function !?!?!?

On Error Goto ErrBD

ObjectData.OpenRecordSet("Table Name", dbOpenTable)

' le reste du code ici

Exit Sub ' ou function !?!?!?

ErrBD:
If Err.Number 3011 Then 3011 Object introuvable !

' La table n'existe pas !!!
Err.Clear

End If

End Sub ' ou function !?!?!?
0
Merci : ça marche.
0
Rejoignez-nous