Vérifier Existence Table

Question

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

AraXeen · Answer

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

Vérifier Existence Table

1 réponse

Discussions similaires