El subíndice está fuera del intervalo. Datagrid.

Cómo les va. Tengo el siguiente inconveniente. Estoy queriendo poner unos campos en el datagrid y me tira ese error.

Quizá el problema esté en el armado de la cadena por los INNER JOIN...

Les paso la cadena y lo que quiero insertar en el datagrid.

With RstPagos
If .State = 1 Then .Close
Set RstPagos = New ADODB.Recordset

.Open "SELECT A.Num_Afiliado,A.ApeyNomAfiliado,J.Fecha_Jubilacion,P.Fecha_Pago,P.Mes_Pago,J.Observaciones FROM AFILIADOS AS A,JUBILADOS AS J,PAGOS AS P where A.Num_Afiliado = J.Num_Afiliado = P.Num_Afiliado", Base, adOpenStatic, adLockOptimistic
Set frmListadoJubilados.DtaJubilados.DataSource = RstPagos
DtaJubilados.Refresh
DtaJubilados.Height = 7500
frmListadoJubilados.Width = DtaJubilados.Width
frmListadoJubilados.Height = DtaJubilados.Height - 1500
DtaJubilados.AllowUpdate = False
DtaJubilados.Height = frmListadoJubilados.Height - 5000
DtaJubilados.Scroll 0, -1
If DtaJubilados.Row > 0 Then
DtaJubilados.Row = DtaJubilados.Row - 1
End If
DtaJubilados.Scroll 0, -1
DtaJubilados.Columns.Item(0).Caption = "Nº Afiliado"
DtaJubilados.Columns.Item(0).Width = 600
DtaJubilados.Columns.Item(1).Caption = "Apellido y Nombre"
DtaJubilados.Columns.Item(1).Width = 1600
DtaJubilados.Columns.Item(2).Caption = "F. Jubilación" EL ERROR ME LO TIRA ACÁ.
DtaJubilados.Columns.Item(2).Width = 1000
'DtaJubilados.Columns.Item(3).Caption = "F. Pago"
'DtaJubilados.Columns.Item(3).Width = 1000
'DtaJubilados.Columns.Item(4).Caption = "Mes Pago"
'DtaJubilados.Columns.Item(4).Width = 1000
'DtaJubilados.Columns.Item(5).Caption = "Observaciones"
'DtaJubilados.Columns.Item(5).Width = 1500
DtaJubilados.Width = 7500
frmListadoJubilados.Width = DtaJubilados.Width + 1000
End With
End Sub

1 Respuesta

Respuesta
1

LO PUDE RESOLVER... Como primera medida... Añadí un registro en una de las tablas... JUBILADOS... que es la que tiene el campo F_Jubilacion... Agregué el registro y solucionado el problema... Más allá de que hice una modificación en la cadena de consulta... La pego para que les sirva...

Private Sub Form_Load()

Dim strJubilados As String
strJubilados = "SELECT A.Num_Afiliado,A.ApeyNomAfiliado,J.Fecha_Jubilacion,P.Fecha_Pago,P.Mes_Pago,J.Observaciones FROM AFILIADOS AS A,JUBILADOS AS J, PAGOS AS P WHERE A.Num_Afiliado = P.Num_Afiliado AND A.Num_Afiliado = J.Num_Afiliado"

With RstPagos
If .State = 1 Then .Close
Set RstPagos = New ADODB.Recordset
RstPagos.Open strJubilados, Base, adOpenStatic, adLockOptimistic
Set frmListadoJubilados.DtaJubilados.DataSource = RstPagos
DtaJubilados.Refresh
DtaJubilados.Height = 7500
frmListadoJubilados.Width = DtaJubilados.Width
frmListadoJubilados.Height = DtaJubilados.Height - 1500
DtaJubilados.AllowUpdate = False
DtaJubilados.Height = frmListadoJubilados.Height - 5000
DtaJubilados.Scroll 0, -1
If DtaJubilados.Row > 0 Then
DtaJubilados.Row = DtaJubilados.Row - 1
End If
DtaJubilados.Scroll 0, -1
DtaJubilados.Columns.Item(0).Caption = "Nº Afiliado"
DtaJubilados.Columns.Item(0).Width = 600
DtaJubilados.Columns.Item(1).Caption = "Apellido y Nombre"
DtaJubilados.Columns.Item(1).Width = 1600
DtaJubilados.Columns.Item(2).Caption = "F. Jubilación"
DtaJubilados.Columns.Item(2).Width = 1000
DtaJubilados.Columns.Item(3).Caption = "F. Pago"
DtaJubilados.Columns.Item(3).Width = 1000
DtaJubilados.Columns.Item(4).Caption = "Mes Pago"
DtaJubilados.Columns.Item(4).Width = 1000
DtaJubilados.Columns.Item(5).Caption = "Observaciones"
DtaJubilados.Columns.Item(5).Width = 1500
DtaJubilados.Width = 7500
frmListadoJubilados.Width = DtaJubilados.Width + 1000
End With
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Tfilestream en c++ builder

Bueno mi pregunta es la siguiente quiero manipular archivos binarios, con el compilador de borland conocido como c++ builder. El problema es que no se como instanciar la clase Tfilestream, mi pregunta es si tu sabes o conoces como poder manejar...
1 respuesta

Enviar correo con vb

He relizado un programa que envia un fichero a traves de correo electronico, el problema que tengo es que cuando envio el correo se me queda en la bandeja de salida del outlook, hay alguna manera para que me envie el correo directamente sin tener que...
1 respuesta

Llamadas telefonicas con mi programa en VB6

Estoy tranajando en un pequeña agenda telefonica junto con su base de datos, el asunto es que desearia que tambien sea capaz de efectuar llamadas. ¿Cómo puedo hacer para que pueda realizar las llamadas?
1 respuesta

Problema con formulario abierto en ejecución

Estoy intentando hacer un programa en Ms access y tengo un problema. Creo un formulario en tiempo de ejecución (set frm=CreateForm) y creo para el un control de lista (le llamo ctlText), pero cuando intento referirme a una propiedad de el no me deja....
1 respuesta

Creacion dinamica en vb6

Me ayudaste a crear dinámicamente los optionbutton y va fenómeno. Los obtengo de una base de datos. Mi problema que al intentar poner la popiedad name, me dice que no se puede poner en forma solo lectura. ¿Abrí mal la base de datos?. Mi otro...
1 respuesta

Ayuda por favor con teclas de función.

Que tala a todos los colaboradores de esta grandiosa, recién me he registrado y es por que tengo un problema con un punto de venta que estoy realizando como proyecto final de una material. Mi problema es el siguiente: Tengo una ventana de Ventas en...
1 respuesta

Añadir controles y evento en tiempo de ejecución excel

Tengo un formulario en excel que en su evento initialize crea tantos labels como trabajadores encuentra en la hoja "personal" y sus correspondientes textbox para introducir la cantidad de horas trabajadas y dos commandbutton, uno para validar los...
3 respuestas

Lista desplegable

Te comento quiero realizar un filtro y mostrar los registros en una lista desplegable, y no lo logro, la lista sale pero no con el filtro, o sea el if endif esta bien porque en messagebox() me muestra los verdaderos regitros filtrados pero la lista...
1 respuesta

Programilla

Quisiera que me escribiera un código chiquito que haga lo siguiente: Un label que cuente 5,4,3,2,1,0 y cuando llegue a 0 que es cuando se acaba el tiempo me haga algo por ejemplo hacer un beep o mostrar un msgbox.
3 respuestas

Combinacion de Togglebutton y Proges bar

Yo tengo el sgte codigo de un Togglebutton que me funciona alas maravilla cuando el se ejecuta se empieza a contar desde 1 hasta cincuentamil: Pero neceito que el progressbar al comenzar la ejecucion deTogglebutton se mueva conjuntamente Togglebutton...
1 respuesta