[ACCESS-VBA]-Vérifier la présence d'une table [Résolu]

gaudian 63Messages postés 22 juin 2007Date d'inscription - Dernière réponse le 9 déc. 2011 à 16:44

Bonjour,
Je souhaiterai savoir comment on peut vérifier la présence d'une table sous VB ACCESS ? Car j'aimerai effectuer un test au début
Si la table existe alors on fait sinon on la créée
Pour le moment je supprime la table manuellement parce qu'au début de mon application je lance une requête SQL comme ci-dessous :

SQL = "CREATE TABLE tb_SauvegardeTemporaire(NumOperationTransfert char(50)) "
  
DoCmd.RunSQL SQL

Je voudrai donc vérifier si elle existe, alors comment faire?
Merci d'avance

[ACCESS-VBA]-Vérifier la présence d'une table »

Suggestions

[ACCESS-VBA]-Vérifier la présence d'une table
ACCESS - Vider une zone de texte après valid (Résolu) » Forum
Suppression enregistrement ACCESS (Résolu) » Forum
Access/VBA ajouter des données dans des table (Résolu) » Forum
Access VBA tester si on a une table liée (Résolu) » Forum
Tester l'existence d'une table » Forum

Plus

Réponse

blux 12862Messages postés 26 août 2001Date d'inscription ModérateurStatut 30 mai 2012Dernière intervention 20 juil. 2007 à 09:17

Salut,

il suffit de parcourir la liste des tables de ta base...

Dim Db As Database
Dim Tb As TableDef
Set Db = CurrentDb
For Each Tb In Db.TableDefs
    MsgBox Tb.Name
Next

Ca devrait afficher le nom des tables, à toi de faire le test que tu veux...

Ajouter un commentaire

midkar - 9 déc. 2011 à 16:44

Etant donné que le nom exact de la table est connu, il me semble plus simple (et plus court à l'exécution) d'utiliser une fonction qui teste le nom de la table et maîtrise l'erreur au cas où la table n'existe pas.
Cette fonction renvoie 0 (ou False) si la table n'existe pas, -1 (ou True) si elle existe

If TableExists(NomDeLaTableAVérifier) then = True ou =-1 est sous-entendu ici
Faire ce qu'il y a à faire
Else
Créer la table
End if

Function TableExists(TblName as string) as integer
Dim NomTable as string
On Error Goto ErrTable
NomTable = CurrentDb.TableDefs(TblName)
TableExists = -1
Exit Function
ErrTable:
End Function

Réponse

gaudian 63Messages postés 22 juin 2007Date d'inscription 20 juil. 2007 à 09:25

Merci beaucoup ça fonctionne

Ajouter un commentaire

Réponse

Beu-C 31 mai 2008 à 01:38

Bonjour,

Je souhaiterais faire la même chose mais en ASP ...
Je ne trouve pas ...

Et le mot "CurrentDb" n'est pas reconnu en vbscript.

D'avance merci.

Ajouter un commentaire

Répondre au sujet

Posez votre question

Dossier à la une

Passage au tout numérique : quel coût pour les particuliers ?

Passage au tout numérique : quel coût pour les particuliers ?

Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.

[ACCESS-VBA]-Vérifier la présence d'une table [Résolu]

[ACCESS-VBA]-Vérifier la présence d'une table »

Passage au tout numérique : quel coût pour les particuliers ?