Hola a todos/todas,
Estoy empezando con eso de las bases SQL. Antes trabajaba en mdb con Access.
Por fin he conseguido convertir la base a SQL y el programa en un ADP de
Access.
Pero solo entrar ya me arroja un error :
Error 91. La variable de objeto o bloque with no está establecido.
La función del error es :
Public Function ExisteTabla(NombreTabla As String, Optional NumBase As
Integer = 1) As Boolean
Dim mdb As Database
If NumBase = 1 Then
Set mdb = CurrentDb
Else
Set mdb = DBEngine.Workspaces(0).OpenDatabase("c:\BaseTemp.mdb")
End If
Dim k As TableDef
For Each k In mdb.TableDefs
If k.Name = NombreTabla Then
ExisteiTabla = True
Exit For
End If
Next
mdb.Close
Set mdb = Nothing
End Function
La línea que me marca es "For Each k In mdb.TableDefs"
Ya sé que tengo que corregir muchas cosas del codigo, pero:
¿Alguno de vosotros podría decirme si existe algún texto que me ayude a
convertir el codigo VBA (DAO 3.6) para poder entenderme con SQL? ...
Funciones básicas de ejemplo, como acceder...
Saludos,
Martín
Leer las respuestas