Imprimir página | Cerrar ventana

Controles en UserForm

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Excel
Descripción del foro: Foro de Excel y VBA de Excel
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=64239
Fecha de impresión: 24/Septiembre/2020 a las 01:29


Tema: Controles en UserForm
Publicado por: rigolino29
Asunto: Controles en UserForm
Fecha de publicación: 02/Julio/2010 a las 01:20

Tengo un proyecto en el cual requiero poder clasificar los diferentes controles que tiene un formulario, tengo el siguiente código sin embargo, solamente funciona para los controles commandbutton, para los demás como textbox o label no funciona, ¿sabes el porqué? ¿me puedes ayudar?

 

 

 

For Each Control In Me.Controls

 

    If TypeOf Control Is CommandButton Then

        MsgBox ("Ha pasado un " & TypeName(Control))

    ElseIf TypeOf Control Is Label Then

        MsgBox ("Ha pasado un " & TypeName(Control))

    ElseIf TypeOf Control Is TextBox Then

        MsgBox ("Ha pasado un " & TypeName(Control))

 

next




Respuestas:
Publicado por: AnSanVal
Fecha de publicación: 02/Julio/2010 a las 11:14
A tu código le falta el END IF.
 
Prueba con:
  For Each control In Me.Controls
    If TypeName(control) = "CommandButton" Then
        MsgBox "Ha pasado un botón de comando."
    ElseIf TypeName(control) = "Label" Then
        MsgBox "Ha pasado una etiqueta."
    ElseIf TypeName(control) = "TextBox" Then
        MsgBox "Ha pasado un cuadro de texto."
    End If
  Next control


-------------
Aprendemos intentando resolver dudas ajenas (ayuda cuando puedas/sepas).

Mi http://achinet.mvp-access.es/" rel="nofollow - sitio_web con ejemplos Excel.


Publicado por: rigolino29
Fecha de publicación: 02/Julio/2010 a las 15:23
Si s eme paso escribir el end if, pero si lo tenía. De cualquier forma, ahora ya está corregido como me lo has puesto, MUCHAS GRACIAS.



Imprimir página | Cerrar ventana