Quiero saber que significa el Error 3265 en Visual Basic al ejecutar un formulario, adjunto código

Tengo un problema cuando ejecuto un formulario me da el error que mencioné en el titulo, te paso la codificación porque no puedo resolverlo.
Dim s As String
Dim rs As New ADODB.Recordset
s= "SELECT * FROM rubro ORDER BY codigorubro"
rs.Open s, cn, adOpenForwardOnly, AdLockReadOnly
rs.MoveFirst
    Do while not rs.EOF
    If rs! Rubro = rs! Codigorubro then (me resalta esta parte)
             nomru = rs! Nombre rubro
    End If
   rs MoveNext
Loop
    combo4.ListIndex = -1
    rs.close

1 respuesta

Respuesta
1
Revisa si el campo codigorubro se llama así en l tabla realmente, el erro es porque un campo no existe
Me fije y en la tabla figura codigorubro... ¿vos sabes si puede ser por otra cosa?
¿En qué ue linea se da el error?
En esta linea me da error (donde dice rubro en negrita, ahí porque el codigorubro esta bien)
If rs! rubro = rs! codigorubro then (me resalta esta parte)
¿Existe un campo rubro en la tabla? Porque si no existe es por eso.
Es el nombre de la tabla rubro
Que es lo que tengo mal porque ese es el nombre de la tabla "rubro"
Cuando dices rs! Rubros estas diciendo que hay un campo rubro en ese recordset y si el campo no existe en la tabla por eso es el error
¿Entonce tendría que repetir en vez de rubro poner código rubro?... o poner txtcodigorubro para que funcione el combo.
¿Qué intentas preguntar allí?
If rs! rubro = rs! codigorubro then (me resalta esta parte)
¿Te quiero decir que en vez de poner rubro (es el nombre de la tabla) lo tendría que reemplazar por un campo de la tabla?... espero que me entiendas lo que te quiero decir, tengo que tratar de solucionarlo cuanto antes.
Gracias
Si debes colocar el nombre de un campo de la tabla

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas