Ainafetse
12 de Mayo del 2006

Necesito ayuda para acabar el programa de una puñetera vez. A ver, voy a intentar explicarme.
Tengo una consulta sql que me devuelve varias respuestas con varios valores. El caso es que he de meter cada valor en un text box que en principio no debe de aparecer en pantalla, pero que si el comprador ha comprado 3 coches me salgan 3 txt con el modelo, la potencia y el dia de la compra (por ejemplo).
Total, que he de crear tantos txt como respuestas me devuelve el report, pero es que no se crear los txt, se poner unos cuantos en invisible y cuando se rellenan que se vean, pero y si una persona me compra 14 coches y yo solo tengo 10 txt en invisibles?!
Alguien me puede decir como se crean los txt en codigo?

Agradecida eternamente al que me responda.

CSDK
12 de Mayo del 2006

LO K NECESITAS ES CREAR OJÇBJETOS EN TIEMPO DE EJECUCION O UNA MATRIZ DE CONTROLES CHECA ESTO
'Ejemplo de creación de controles en tiempo de ejecución
Option Explicit

'Llevará la cuenta de los controles creados
Private numControles As Long


Private Sub cmdCrear_Click()
'Crear un nuevo control de cada tipo

'numControles está declarada a nivel de módulo
numControles = numControles + 1
'Crear los controles
Load Label1(numControles)
Load Text1(numControles)

'Posicionarlos y hacerlos visibles
With Label1(numControles)
.Visible = True
.Top = Label1(numControles - 1).Top + .Height + 120
.Caption = "Label1(" & numControles & ")"
End With
With Text1(numControles)
.Visible = True
.Top = Text1(numControles - 1).Top + .Height + 60
.Text = "Text1(" & numControles & ")"
End With
End Sub


Private Sub cmdEliminar_Click()
'Eliminar un elemento de cada control anteriormente creado

'El control CERO no se puede eliminar
If numControles > 0 Then
'Descargarlos de la memoria
Unload Label1(numControles)
Unload Text1(numControles)
numControles = numControles - 1
End If
End Sub


Private Sub Form_Load()
'Por defecto creamos un control de cada array:
'un Label y un Textbox

cmdCrear_Click
End Sub

ainafetse
12 de Mayo del 2006

Gracias por la ayuda