SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado 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
-
Y BancoMAdhesiones.Recordset si esta definido?
Si ejecutas msgbox BancoMAdhesiones.Recordset que te aparece?
-
a lo mejor te sirve este link que encontre CLIC AQUI (http://support.microsoft.com/kb/266730/es)
-
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".
-
Si tienes el Option Explicit activado quitalo y vuelve a probar.
-
Si no te sirve el mensaje de Toph...
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
-
Hola a todos! Les escribo para decirles que segui sus consejos y pude solucionar el problema.
Muchisimas gracias por su ayuda!! :D
Estefy