Para ver si existe un fichero
-----------------------------
' Lo unico que debes hacer es enviar el parametro cArchivo, ejemplo ExisteaArchivo("A:\DATOS.MDB")
Function ExisteArchivo(cArchivo As String) As Boolean
ExisteArchivo = IIf(Dir$(cArchivo) = "", False, True)
End Function
Para ver si existe una tabla
----------------------------
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
'Estamos de suerte, la tabla existe
fExistTable = True
Exit For
End If
Next i
Set db = Nothing
End Function
Un saludo ... ;-)
