si lo quieres usar en un momento sin necesidad de crear una función podría 
servir la tres siguientes líneas (la primera es muy larga pero va en una 
sola, 


    If Not CurrentDb().OpenRecordset("SEL­ECT MSysObjects.ForeignName FROM 
MSysObjects WHERE MSysObjects.ForeignName='tblNo­mbreTabla'").EOF Then 
        MsgBox "Exite" 
    End If 


en caso de necesitar consultar en varios lugares de la aplicación, lo 
convertimos en una función, 


Sub demo_blnExisteTabla() 


    MsgBox blnExisteTabla("tblNombreTabla­") 


End Sub 


Public Function blnExisteTabla(ByVal strTabla As String) As Boolean 


    If Not CurrentDb().OpenRecordset("SEL­ECT MSysObjects.ForeignName FROM 
MSysObjects WHERE MSysObjects.ForeignName='" & strTabla & "'").EOF Then 
        blnExisteTabla = True 
    End If 


End Function 


McPegasus, 29/04/2005