Error 91. Variable de objeto o establecido...

23/02/2005 - 18:26 por marjan | Informe spam
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

#1 Gustavo Larriera [MVP]
23/02/2005 - 18:50 | Informe spam
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

Preguntas similares