Access - Ayuda: Simplificar codigo

 
Vista:
sin imagen de perfil

Ayuda: Simplificar codigo

Publicado por Ferre (3 intervenciones) el 09/03/2016 05:17:16
Que tal compañeros, alguien me puede decir si puedo simplificar este codigo en vba access?
Lo que quiero hacer es que con un: DoCmd.GoToRecord acDataForm, "Base", acPrevious haga visible el componente y quede deshabilitado para no alterar los datos.
Como siempre gracias por sus aportes

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Me.Folio1_2.Visible = True
Me.Folio1_2.Enabled = False
Me.Folio1_3.Visible = True
Me.Folio1_3.Enabled = False
Me.Folio1_4.Visible = True
Me.Folio1_4.Enabled = False
Me.Folio1_5.Visible = True
Me.Folio1_5.Enabled = False
Me.Folio2_2.Visible = True
Me.Folio2_2.Enabled = False
Me.Folio2_3.Visible = True
Me.Folio2_3.Enabled = False
Me.Folio2_4.Visible = True
Me.Folio2_4.Enabled = False
Me.Folio2_5.Visible = True
Me.Folio2_5.Enabled = False
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

Ayuda: Simplificar codigo

Publicado por Enrique Heliodoro (1664 intervenciones) el 10/03/2016 04:04:16
For zz = 2 to 5
Me.Comtrols.Item ("Folio_" & zz).Visible = True
Me.Comtrols.Item ("Folio_" & zz).Enabled = False
Next zz
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar