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

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

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!!!!

Por cierto, muchas gracias y se puede cerrar el hilo

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