[ACCESS-VBA]-Vérifier la présence d'une table
Résolu
gaudian
Messages postés
62
Date d'inscription
Statut
Membre
Dernière intervention
-
midkar -
midkar -
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 :
Je voudrai donc vérifier si elle existe, alors comment faire?
Merci d'avance
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
A voir également:
- [ACCESS-VBA]-Vérifier la présence d'une table
- Table ascii - Guide
- Table des matières word - Guide
- Verifier compatibilite windows 11 - Guide
- Verifier un lien - Guide
- Acer quick access - Forum Logiciels
3 réponses
Salut,
il suffit de parcourir la liste des tables de ta base...
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
NextCa devrait afficher le nom des tables, à toi de faire le test que tu veux...
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