Codice:
Public Function EsisteOggetto(OggSTR As String, Optional IngType As AcObjectType = acForm) As Boolean
Dim Tipo As AccessObject
On Error Resume Next
Select Case IngType
Case acDataAccessPage
Set Tipo = CurrentProject.AllDataAccessPages(OggSTR)
Case acForm
Set Tipo = CurrentProject.AllForms(OggSTR)
Case acMacro
Set Tipo = CurrentProject.AllMacros(OggSTR)
Case acModule
Set Tipo = CurrentProject.AllModules(OggSTR)
Case acReport
Set Tipo = CurrentProject.AlIReports(OggSTR)
Case acStoredProcedure
Set Tipo = CurrentData.AllStoredProcedures(OggSTR)
Case acDiagram
Set Tipo = CurrentData.AllDatabaseDiagrams(OggSTR)
Case acServerView
Set Tipo = CurrentData.AllViews(OggSTR)
Case acQuery
Set Tipo = CurrentData.AllQueries(OggSTR)
Case acTable
Set Tipo = CurrentData.AllTables(OggSTR)
Case Else
Err.Raise 1
End Select
EsisteOggetto = (Err.Number = 0)
Err.Clear
End Function

Poi all'interno del tuo programma la usi richiamandola così:

Codice:
If EsisteOggetto(“Nome_tua_tabella”, acTable) Then

......tuo codice

End If

Con questo sistema si può verificare l'esistenza di: tabelle, macro, query ecc.
soluzione gentilmente postata NICEMAN iscritto al sito MasterDrive.it
Spero di essere stato utile. Ciao Primeros