Problema al mostrar datos en text en tiempo de ejecucion
Quiero mostrar datos de una tabla en 3 textbox que creo en
tiempo de ejecucion, al momento de buscar el registro la
primera vez no hay ningun problema, pero cuando lo quiero
ver nuevamente solo me muestra el primer registro y no se
activan los textbox. Este es el codigo q estoy usando:
Rs3.Open "SELECT Actualizacion_Datos.Cod_Actualizacion,
Actualizacion_Datos.Nb_Tabla,
Actualizacion_Datos.Num_Registros FROM
Actualizacion_Datos, Solicitud_Actualizacion WHERE
Solicitud_Actualizacion.Cod_Actualizacion =
Actualizacion_Datos.Cod_Actualizacion AND
Solicitud_Actualizacion.ID_Solicitud_Cambio= '" &
ID_Solicitud & "'", Cnn, adOpenDynamic,
adLockBatchOptimistic
Do While Not Rs3.EOF = True
Txt_Cod_Actualizacion(0) = Rs3.Fields
("Cod_Actualizacion")
Txt_Nb_Tabla(0) = Rs3.Fields("Nb_Tabla")
Txt_Num_Registros(0) = Rs3.Fields("Num_Registros")
Load Txt_Cod_Actualizacion
(Txt_Cod_Actualizacion.UBound + 1)
With Txt_Cod_Actualizacion
(Txt_Cod_Actualizacion.UBound)
.Top = Txt_Cod_Actualizacion
(Txt_Cod_Actualizacion.UBound - 1).Top + .Height
.Visible = True
End With
Load Txt_Nb_Tabla(Txt_Nb_Tabla.UBound + 1)
With Txt_Nb_Tabla(Txt_Nb_Tabla.UBound)
.Top = Txt_Nb_Tabla(Txt_Nb_Tabla.UBound -
1).Top + .Height
.Visible = True
End With
Load Txt_Num_Registros(Txt_Num_Registros.UBound +
1)
With Txt_Num_Registros
(Txt_Num_Registros.UBound)
.Top = Txt_Num_Registros
(Txt_Num_Registros.UBound - 1).Top + .Height
.Visible = True
End With
Rs3.MoveNext
Loop
tiempo de ejecucion, al momento de buscar el registro la
primera vez no hay ningun problema, pero cuando lo quiero
ver nuevamente solo me muestra el primer registro y no se
activan los textbox. Este es el codigo q estoy usando:
Rs3.Open "SELECT Actualizacion_Datos.Cod_Actualizacion,
Actualizacion_Datos.Nb_Tabla,
Actualizacion_Datos.Num_Registros FROM
Actualizacion_Datos, Solicitud_Actualizacion WHERE
Solicitud_Actualizacion.Cod_Actualizacion =
Actualizacion_Datos.Cod_Actualizacion AND
Solicitud_Actualizacion.ID_Solicitud_Cambio= '" &
ID_Solicitud & "'", Cnn, adOpenDynamic,
adLockBatchOptimistic
Do While Not Rs3.EOF = True
Txt_Cod_Actualizacion(0) = Rs3.Fields
("Cod_Actualizacion")
Txt_Nb_Tabla(0) = Rs3.Fields("Nb_Tabla")
Txt_Num_Registros(0) = Rs3.Fields("Num_Registros")
Load Txt_Cod_Actualizacion
(Txt_Cod_Actualizacion.UBound + 1)
With Txt_Cod_Actualizacion
(Txt_Cod_Actualizacion.UBound)
.Top = Txt_Cod_Actualizacion
(Txt_Cod_Actualizacion.UBound - 1).Top + .Height
.Visible = True
End With
Load Txt_Nb_Tabla(Txt_Nb_Tabla.UBound + 1)
With Txt_Nb_Tabla(Txt_Nb_Tabla.UBound)
.Top = Txt_Nb_Tabla(Txt_Nb_Tabla.UBound -
1).Top + .Height
.Visible = True
End With
Load Txt_Num_Registros(Txt_Num_Registros.UBound +
1)
With Txt_Num_Registros
(Txt_Num_Registros.UBound)
.Top = Txt_Num_Registros
(Txt_Num_Registros.UBound - 1).Top + .Height
.Visible = True
End With
Rs3.MoveNext
Loop