Comment peut on voir si une table est presente (existe) dans une base access enRésolu

Question

Comment peut on voir si une table est presente (existe) dans une base access en code vba
 
Je pensais faire un if exists mais apparement, ca ne marche pour pour vba... On m'a conceill&#233; de parcourir un array d'objet table mais ca ne m'est pas trop parlant.....

olixelle · Accepted Answer

Function fExistTable(strTableName As String) As Integer

Dim db As Database
Dim i As Integer
    Set db =  DBEngine.Workspaces(0).Databases(0)
    fExistTable = False
    db.TableDefs.Refresh
    For i = 0 To db.TableDefs.Count - 1
        If strTableName = db.TableDefs(i).Name Then
             'la table existe  
            fExistTable  = True
            Exit For
        End If
    Next i
    Set db = Nothing
End Function 

Rollerman

jpleroisse · Answer

Bonsoir,

Personnelement, je r&#233;cup&#232;re le noms des tables d'une base de donn&#233;es
dans une ListBox. Dans cet exemple les tables de la base de donn&#233;es
Biblio.mdb (que tous le monde connait). Je place un CommandButton et
une ListBox sur mon UserForm et je place ce dode.(Placer la r&#233;f&#233;rence &#224; Access)

 (J'ai essay&#233; avec la fonction de olixelle, mais je n'ai aucun r&#233;sultat).



Private Sub CommandButton1_Click()

Dim AppAccess As Access.Application

Dim i, j As Integer

Application.ScreenUpdating = False

Set AppAccess = CreateObject("Access.Application")

With AppAccess

    .OpenCurrentDatabase ("C:\Program Files\Microsoft Visual Studio\vb98\Biblio.mdb")

    j = 6

    For i = 0 To .CurrentDb.TableDefs.Count - 1

    If Left(UCase(.CurrentDb.TableDefs(i).Name), 4) <> "MSYS" Then

        ListBox1.AddItem .CurrentDb.TableDefs(i).Name

    j = j + 1

    End If

Next i

End With

    AppAccess.Quit

    Set AppAccess = Nothing

  Application.ScreenUpdating = True

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

olixelle · Answer

jpleroisse, mon code ne marchera que dans la base access concern&#233;e
alors que le tien peut etre mis dans un vbs ou autre programme


Rollerman

cs_Sead · Answer

Impeccable Rollerman, je me suis servi de ta fonction et ca fonctionne parfaitement. J'ai juste l&#233;g&#233;rement modifi&#233; par:

Dim dbs As Database
Dim App_Path As String


App_Path = Application.CurrentProject.Path & "" & "proj.mdb"


et j'y integre un Select Case car je dois faire executer une instruction differente par table existante pr&#233;d&#233;finie.

jpleroisse je n'ai pas test&#233; ta source car la soluce de rollerman me paraissait plus simple


mais je te remercie egalement

Neokript · Answer

Bonjour &#224; tous j'aurai voulu savoir comment on pourrait faire cela sous visual basic 2005 svp ?

Comment peut on voir si une table est presente (existe) dans une base access en

5 réponses

Discussions similaires