Controleren of een tabel al bestaat

[LvdB]

Hoe kan ik in VBA nagaan of een tabel met bepaalde naam al bestaat in een remote database?
Lijkt me een simpel probleem, maar kom er gek genoeg toch niet uit.

LvdB

 

[Jootje13]

Dit kan met de onderstaande functie

Sub bestaattabel()
'controleer of tabel bestaat
If checkTable("Office_Address_List") = True Then
    MsgBox "tabel bestaat"
End If
End Sub

Function checkTable(strTabelnaam As String) As Boolean
'Indien tabel bestaat retourneert deze functie True
Dim tdf As DAO.TableDef
Dim db As DAO.Database

Set db = CurrentDb

For Each tdf In db.TableDefs
    If tdf.Name = strTabelnaam Then
        checkTable = True
        Exit For
    End If
Next
    
Set db = Nothing
End Function

 

[LvdB]

Werkt als een zonnetje

Bedankt voor deze elegante oplossing.

Groet

LvdB