Access - For Each...

   
Vista:

For Each...

Publicado por Niko (57 intervenciones) el 30/03/2009 03:53:59
Saludos,

tengo controles de imagen en un Form, puedo cargar una IMAGEN para uno de ellos:

Imagen1.Picture = CurrentProject.path & "imgsearch.jpg"

lo que necesito es cargar la IMAGEN en todos los controles de imagen en el Form
puedo utilizar la misma linea para cada uno... pero mientras más controles tenga el codigo se me extiende considerablemente.

intenté hacerlo utilizando el bucle FOR EACH ..... NEXT pero no se como hacerlo correctamente, para que no me de error...
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

RE:For Each...

Publicado por mi menda (1111 intervenciones) el 01/04/2009 07:23:59
Hola:
Prueba con esto:

Dim ctl As Control

For Each ctl In Me.Controls
If ctl.ControlType = acImage Then
ctl.Picture = CurrentProject.path & "imgsearch.jpg"
End If
Next ctl

Un saludo
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