Imprimir página | Cerrar ventana

Propiedad visible en formulario desde modulo

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85140
Fecha de impresión: 26/Marzo/2026 a las 15:42


Tema: Propiedad visible en formulario desde modulo
Publicado por: 01loko
Asunto: Propiedad visible en formulario desde modulo
Fecha de publicación: 10/Abril/2020 a las 10:53
Dado este modulo para poner primera letra en mayuscula:
Public Function mAY(nombre_form As Form)
Dim crtl As control, prueba As String
Dim x As String, y As String, z As String

    For Each crtl In nombre_form.Controls
   
        If crtl.ControlType <> acTextBox Then GoTo fin
        If Forms(nombre_form).Controls(crtl.Name).Visible = False Then GoTo fin 'aqui me da el error "Error 13 - no coinciden los tipos"
        If crtl.value = "" Or IsNull(crtl.value) Then GoTo fin
        x = crtl.value
        z = StrConv(crtl.value, vbProperCase)
        crtl.value = z
        nombre_form.Refresh
fin:
    Next
End Function

me da error en los campos que no son visibles pero aun no entiendo porque, estoy intentando (de momento) evitarlos.

Una manita por favor


-------------
Recordar de que soy nuevo y estoy aprendiendo.



Respuestas:
Publicado por: Mihura
Fecha de publicación: 10/Abril/2020 a las 11:15
Te complicas muuuuucho la vida ...  Tongue

Sub PrimeraMayuscula(MeForm As Form)
    Dim ctl As Control
    For Each ctl In MeForm
        If ctl.ControlType = acTextBox Then
            ctl = StrConv(ctl, vbProperCase)
        End If
    Next
End Sub

y para llamarla:
    PrimeraMayuscula Me


-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: 01loko
Fecha de publicación: 10/Abril/2020 a las 11:19
me estas diciendo que llevo 3 dias con esto, para quitarme de cada formulario la funcion y la tenias escondida por algun sitio de tu web?

Donde teneis la viga escondida que marcho a comprarme una soga!!!!


-------------
Recordar de que soy nuevo y estoy aprendiendo.


Publicado por: 01loko
Fecha de publicación: 10/Abril/2020 a las 11:20
Por cierto, muchas gracias y se puede cerrar el hilo



Clap


-------------
Recordar de que soy nuevo y estoy aprendiendo.


Publicado por: Mihura
Fecha de publicación: 10/Abril/2020 a las 11:27
No está en la web, la he tecleado en un momentillo ... ten en cuenta que el tratamiento masivo de controles es el pan nuestro de cada día.

Por cierto, no te pese los tres días empleados, peleándose con las cosas es como se aprende.




-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es



Imprimir página | Cerrar ventana