Vérifier Existence Table

Signaler
Messages postés
215
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
19 février 2009
-
Messages postés
36
Date d'inscription
mardi 3 décembre 2002
Statut
Membre
Dernière intervention
24 juin 2004
-
Hello!
Je voudrais savoir comment écrire en VB:
Si table "Machin" de la base de données "Truc" existe alors

Je sais qu'il faut faire appel à un booléen qui devient vrai si la table existe, etc...

Merci de répondre au plus vite

Y.C

1 réponse

Messages postés
36
Date d'inscription
mardi 3 décembre 2002
Statut
Membre
Dernière intervention
24 juin 2004

J'ai fait ça un jour, il y a longtemp

Private Sub CreerEnumTables() 'Création de la liste des table de la base sélectionnée
Dim NbrCycle As Integer
Dim EnumBase As Database
Dim i As Integer
Dim X As Integer
Dim Y As Integer
Command2.Visible = False
Command3.Visible = False
NbrTable = 1
NbrCycle = 1
X = 57
Y = 210
Set EnumBase = OpenDatabase(FichierBase)
For i = 0 To EnumBase.TableDefs.Count - 1
If Left(EnumBase.TableDefs(i).Name, 4) <> "MSys" Then
Load Option1(i)
Option1(i).Height = 495
Option1(i).Width = 2000
Option1(i).Caption = EnumBase.TableDefs(i).Name
Option1(i).Move X, Y
Option1(i).Visible = True
NbrTable = NbrTable + 1
If NbrTable > NbrCycle * 14 Then
X = 57
Y = Y + 750
NbrCycle = NbrCycle + 1
Command2.Visible = True
Command2.Enabled = False
Command3.Visible = True
Command3.Enabled = True
Else
X = X + 2115
If X >= 8640 Then
X = 57
Y = Y + 540
End If
End If
End If
Next i
Option1(i - 1).Value = True
OpenDatabase(FichierBase).Close
Frame2.Caption = " Choisir la table parmit la(les) " & NbrTable - 1 & " trouvée(s) dans la base sélectionnée."
NbrClickTable = 1
End Sub

AraXeen
0