Visual Basic - Recorrer controles de un formulario

Life is soft - evento anual de software empresarial
   
Vista:

Recorrer controles de un formulario

Publicado por osatxi (8 intervenciones) el 03/03/2014 12:02:15
Tengo el siguiente código:

1
2
3
4
5
6
7
8
9
10
11
Public Function mostrarNombreControles()
  Dim obj As AccessObject, dbs, control As Object
  Dim controlesForm As control
  Set dbs = Application.CurrentProject
  For Each obj In dbs.AllForms
    nombre = obj.name
    For Each controlesForm In obj.Controls
            MsgBox control.name
    Next
  Next
End Function

Necesito recorrerme todos los nombres de los controles, pero no me funciona. Gracias de antemano. Un saludo.
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

Recorrer controles de un formulario

Publicado por Rafael (65 intervenciones) el 03/03/2014 12:21:44
Tienes un error en tu código, prueba esto
1
2
3
4
5
6
7
8
9
10
11
12
Public Function mostrarNombreControles()
   Dim obj , dbs, control As Object
   Dim controlesForm As control
 
   Set dbs = Application.CurrentProject
   For Each obj In dbs.AllForms
      nombre = obj.name
      For Each controlesForm In obj.Controls
         MsgBox controlesForm.name
      Next
   Next
End Function
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

Recorrer controles de un formulario

Publicado por osatxi (8 intervenciones) el 05/03/2014 12:38:31
Muchas gracias por tu respuesta. Pero me pone que no se admite la propiedad o el método, y me señala: for each controlesForm In obj.controls. No le encuentro solución por más que lo intento.

Gracias y 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

Recorrer controles de un formulario

Publicado por Rafael (65 intervenciones) el 05/03/2014 13:05:34
Ya veo el error
1
2
3
4
5
6
7
8
9
10
Public Function mostrarNombreControles()
    Dim obj , dbs, controlForm As Object
    Set dbs = Application.CurrentProject
    For Each obj In dbs.AllForms
        nombre = obj.name
        For Each controlForm In obj.Controls
            MsgBox controlForm.name
        Next
    Next
End Function
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

Recorrer controles de un formulario

Publicado por osatxi (8 intervenciones) el 06/03/2014 09:35:05
Muchas gracias Rafael. Pero me sigue dando el mismo fallo... pero gracias por tu tiempo.
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