Hacer un un codigo repetivo con for i
Necesito hacer este código repetido 30 veces
Me.ETProd01.Caption = Me.Prod01.Column(0)
Me.ETProdA01.Caption = Me.Prod01.Column(1)
ORIGEN DEL CONTROL DE UN control imagen llamado Foto01 = Me.Prod01.Column(3)
Me.ETProd02.Caption = Me.Prod02.Column(0)
Me.ETProdA02.Caption = Me.Prod02.Column(1)
ORIGEN DEL CONTROL DE UN control imagen llamado Foto01 = Me.Prod02.Column(3)
Etc cambia solo 00 a 30 en los dos lados de la igualdad
1 Respuesta
Respuesta de Sveinbjorn El Rojo
2
Así se podría hacer:
For i=1 to 30
Me.Controls("ETProd" & Format(i,"00")).Caption = Me.Controls("Prod" & Format(i,"00")).Column(0)
Me.Controls("ETProdA" & Format(i,"00")).Caption = Me.Controls("Prod" & Format(i,"00")).Column(1)
Me.Controls("Foto" & Format(i,"00")).Caption = Me.Controls("Prod" & Format(i,"00")).Column(3)
Next i
Disculpa, que hay un error por el copia-pega en el control imagen, pues sería Picture y no Caption:
For i=1 to 30
Me.Controls("ETProd" & Format(i,"00")).Caption = Me.Controls("Prod" & Format(i,"00")).Column(0)
Me.Controls("ETProdA" & Format(i,"00")).Caption = Me.Controls("Prod" & Format(i,"00")).Column(1)
Me.Controls("Foto" & Format(i,"00")).Picture= Me.Controls("Prod" & Format(i,"00")).Column(3)
Next i
