Public Function IsTableInMdb(cTable As String, cDb As String) As Boolean
Dim CurDb As Database Dim Td As TableDef IsTableInMdb = False Set CurDb = OpenDatabase(cDb, , True) For Each Td In CurDb.TableDefs If Td.Attributes = 0 Then If UCase(cTable) = UCase(Td.Name) Then IsTableInMdb = True Exit Function End If End If Next CurDb.Close End Function Inputs: cTable -> Nome della tabella cDb-> Nome del Database MDB (full Path) Returns: True se la tabella esiste, False se non esiste |