[VBA] Comment tester l'existence d'une table ?

Recherche :

Dernière réponse
Sujet : [VBA] Comment tester l'existence d'une table ?
Clarkent	sinon tu pouvais essaye de la creer et ca t aurais aussi retourner une erreur si elle existait deja je crois bien :D. enfin desole depas avoir repondu lutot car j avaispas vu:D, et j avais fait un truc similaire l annee derniere mais je me souviens plus trop, enfin jaurais regarder mon listing :).

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

Clarkent

sinon tu pouvais essaye de la creer et ca t aurais aussi retourner une erreur si elle existait deja je crois bien :D.
enfin desole depas avoir repondu lutot car j avaispas vu:D, et j avais fait un truc similaire l annee derniere mais je me souviens plus trop, enfin jaurais regarder mon listing :).

Ok merci pour voter aide, j'ai résolu le problème. ;)

Pour info, voici une solution qui fonctionne à la perfection.

Pour savoir si une table existe dans une base (l'objectif étant de l'importer si elle n'existe pas), il suffit d'essayer de la supprimer et d'implémenter le système de gestion d'erreur.

ex :

sub machin ()

...

On Error GoTo Erreur_machin

DoCmd.DeleteObject acTable, "table_a_importer"

'si la table n'existe pas : erreur 3011
'si elle existe elle a été effacée : on peut la réimporter

DoCmd.TransferDatabase acImport, "Microsoft Access", chemin_ancienne_base, acTable, "table_a_importer", "table_a_importer", False, False

...

Erreur_machin:

If Err.Number = 3011 Then
Err.Clear
Resume Next
'on ne fait rien mais on reprend l'exécution juste après la ligne qui a généré l'erreur
End If

end sub

(merci à NitRic qui m'a bien mis sur la voie sur le forum VBFrance.com)

all is well, end is well

[edit]--Message édité par Ho--[/edit]

ho	Précision: j'ai une bd access qui contient un ensemble de tables. Je veux importer une table d'une autre base, mais je voudrais d'abbord vérifier si elle n'est pas déjà présente dans la base. Le tout en VB bien sûr.

ho	Je sais, ça doit être tout con, mais j'ai eu beau éplucher l'aide, pas de réponse ... alors, avis aux âmes charitables.