Error 91. Variable de objeto o establecido...

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

DAO no va a servirte, deberás reprogramar tu código de acceso a datos
usando ADO. Busca en MSN Search info acerca de DAO.

Gustavo Larriera, MVP
Uruguay LatAm
http://sqljunkies.com/weblog/gux/
Este mensaje se proporciona "COMO ESTA" sin garantias y no otorga ningun
derecho / This posting is provided "AS IS" with no warranties, and
confers no rights.



"marjan" <centralbib @hotmail.com> wrote in message news:centralbib
@hotmail.com:
> 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

DAO no va a servirte, deberás reprogramar tu código de acceso a datos
usando ADO. Busca en MSN Search info acerca de DAO.

Gustavo Larriera, MVP
Uruguay LatAm
http://sqljunkies.com/weblog/gux/
Este mensaje se proporciona "COMO ESTA" sin garantias y no otorga ningun
derecho / This posting is provided "AS IS" with no warranties, and confers
no rights.



"marjan" <centralbib @hotmail.com> wrote in message news:centralbib
@hotmail.com:

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