** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Propiedad visible en formulario desde modulo
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoPropiedad visible en formulario desde modulo

 Responder Responder
Autor
Mensaje
01loko Ver desplegable
Colaborador
Colaborador


Unido: 17/Agosto/2017
Localización: Santander
Estado: Sin conexión
Puntos: 807
Enlace directo a este mensaje Tema: Propiedad visible en formulario desde modulo
    Enviado: 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.
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 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.

Access Aplicaciones
Tecsys.es
Arriba
01loko Ver desplegable
Colaborador
Colaborador


Unido: 17/Agosto/2017
Localización: Santander
Estado: Sin conexión
Puntos: 807
Enlace directo a este mensaje Enviado: 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.
Arriba
01loko Ver desplegable
Colaborador
Colaborador


Unido: 17/Agosto/2017
Localización: Santander
Estado: Sin conexión
Puntos: 807
Enlace directo a este mensaje Enviado: 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.
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 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.

Access Aplicaciones
Tecsys.es
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable