SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: estefy_ce en Viernes 28 de Noviembre de 2008, 22:42

Título: Error 91
Publicado por: estefy_ce en Viernes 28 de Noviembre de 2008, 22:42
Hola a todos! Estoy trabajando con un proyecto pero al ejecutarlo me aparece el error 91 que indica que una variable de objeto no se definio. Lo extraño es que defini a todos mis variables de la misma forma pero sigue el erro.
El código donde salta el error es el siguiente:

While Titulares.Recordset.EOF = False
   
        CuentaA = Titulares.Recordset!NroCuenta
       
        ' Verifico si ya se genero la adhesion en otro mes
       
        var = "SELECT DebitosAdhesiones.*" _
        & "From DebitosAdhesiones " _
        & "WHERE (((DebitosAdhesiones.NroCuenta)='" & CuentaA & "'))"
       
        BancoMAdhesiones.RecordSource = var
        BancoMAdhesiones.Refresh
       
        Set Rs = BancoMAdhesiones.Recordset
               
        If BancoMAdhesiones.Recordset.RecordCount = 0 Then 'AQUI ME MARCA EL ERROR  :argh:
            msgbox entre
                       
         End If

Desde ya muchas gracias!!!
Saludos.

Estefy
Título: Re: Error 91
Publicado por: posman en Viernes 28 de Noviembre de 2008, 23:26
Y BancoMAdhesiones.Recordset si esta definido?

Si ejecutas msgbox BancoMAdhesiones.Recordset que te aparece?
Título: Re: Error 91
Publicado por: Toph en Sábado 29 de Noviembre de 2008, 00:24
a lo mejor te sirve este link que encontre CLIC AQUI (http://support.microsoft.com/kb/266730/es)
Título: Re: Error 91
Publicado por: estefy_ce en Sábado 29 de Noviembre de 2008, 00:55
Cita de: "posman"
Y BancoMAdhesiones.Recordset si esta definido?

Si ejecutas msgbox BancoMAdhesiones.Recordset que te aparece?

El msgbox no me muestra nada porque se detiene antes de entrar al if ya que le da el error.
Probe definirla de la siguiente forma:
Dim BancoMAdhesiones As ADODB.Recordset
pero me sale el error "No se ha definido el tipo definido por el usuario".
Título: Re: Error 91
Publicado por: RadicalEd en Sábado 29 de Noviembre de 2008, 13:29
Si tienes el Option Explicit activado quitalo y vuelve a probar.
Título: Re: Error 91
Publicado por: F_Tanori en Sábado 29 de Noviembre de 2008, 14:07
Si no te sirve el mensaje de Toph...

Cita de: "estefy_ce"
Cita de: "posman"
Y BancoMAdhesiones.Recordset si esta definido?

Si ejecutas msgbox BancoMAdhesiones.Recordset que te aparece?

El msgbox no me muestra nada porque se detiene antes de entrar al if ya que le da el error.
Probe definirla de la siguiente forma:
Dim BancoMAdhesiones As ADODB.Recordset
pero me sale el error "No se ha definido el tipo definido por el usuario".

Este error ocurre si no tienes referenciada la libreria de ADO (Microsoft ActiveX Data Objects x.x )  ProyectoReferencias...
cundo colocas As ADODB aparece en la lista desplegable? o tu lo haz escrito? revisa tus referencias

aunque BancoMAdhesiones.Recordset es como referencia a un objeto ADO (ADODC) , y lo estas confundiendo con un recordset   Dim BancoMAdhesiones As ADODB.Recordset





Saludos
Título: Re: Error 91
Publicado por: estefy_ce en Martes 2 de Diciembre de 2008, 00:18
Hola a todos! Les escribo para decirles que segui sus consejos y pude solucionar el problema.
Muchisimas gracias por su ayuda!! :D


Estefy