Procedimiento publico

[juanutcm]

Hola a todos miren el codigo es el siguiente:

Sub getConvierteMayusculas(frmFormularioConvertir As Object)
'----------------------------------------------------------------------------------------------------------------------
'Descripción: <Obtiene el número de controles tipo caja de texto que existen en el formulario, convierte a mayusculas
' el texto que contiene la caja de texto y elimina los espacios en ambos lados>
'Parámetros: <Ninguno>
'Regresa: <Nada>
'Fecha: <23/02/06>
'Programación: <Juan Jesus Hernandez Castañeda>
'-----------------------------------------------------------------------------------------------------------------------
Dim n As Integer 'Declarar variable
For n = 0 To frmFormularioConvertir.Controls.Count - 1 'Asigna a n un valor consecutivo para contar cuantos controles existen
If TypeOf frmFormularioConvertir.Controls(n) Is TextBox Then 'Si el control actual es una caja de texto
frmFormularioConvertir.Controls(n).Text = UCase(Trim(frmFormularioConvertir.Controls(n).Text )) 'Convierte a mayusculas el texto contenido en las cajas de texto
End If 'Fin de la condicion
Next n 'Sigueinte control
End Sub

ESTE CODIGO LO TENGO EN UN MODULO LLAMADO mdlPublicos Y LO MANDO LLAMAR DESDE CUALQUIER FORMULARIO COMO mdlPublicos.getConvierteMayusculas (NombreDelFormulario) PERO ME MANDA EL SIGUIENTE ERROR :

Error '438' en tiempo de ejecucion
El objeto no admite esta propiedad o metodo

Y EN SEGUIDA ME MANDA A ESTA LINEA:

For n = 0 To frmFormularioConvertir.Controls.Count - 1 'Asigna a n un valor consecutivo para contar cuantos controles existen

OJALA ME PUEDAN AYUDAR ....ESPERO SUS RESPUESTAS GRACIAS DE ANTEMANO....

[Mickel]

no me acuerdo muy bien vb pre .NET pero creo que deberia ser nombrado como

Public Sub getConvierteMayusculas(frmFormularioConvertir As Object)

y deberia ser invocado como

getConvierteMayusculas (NombreDelFormulario)

[juanutcm]

Aaaa Se Me Olvidaba Decir Que Estoy Trabajando En Vb 6.0 Pero Boy A Probar La Opcion De Mickel..... Haber Si Se Soluciona....

[juanutcm]

ya lo probe y no me funcionó me marco el mismo error

[Jefe_Negro]

Si que falla, prueba con esta pequeña modifcacion

Código:

Private Sub Form_Load()
    getConvierteMayusculas (Me.Name)
End Sub


Sub getConvierteMayusculas(strFormName As String)
'----------------------------------------------------------------------------------------------------------------------
'Descripción: <Obtiene el número de controles tipo caja de texto que existen en el formulario, convierte a mayusculas
' el texto que contiene la caja de texto y elimina los espacios en ambos lados>
'Parámetros: <Ninguno>
'Regresa: <Nada>
'Fecha: <23/02/06>
'Programación: <Juan Jesus Hernandez Castañeda>
'-----------------------------------------------------------------------------------------------------------------------
Dim n As Integer 'Declarar variable
Dim i As Integer
For i = 0 To Forms.Count - 1
    If Forms(i).Name = strFormName Then
        For n = 0 To Forms(i).Controls.Count - 1 'Asigna a n un valor consecutivo para contar cuantos controles existen
            If TypeOf Forms(i).Controls(n) Is TextBox Then 'Si el control actual es una caja de texto
                Forms(i).Controls(n).Text = UCase(Trim(Forms(i).Controls(n).Text))  'Convierte a mayusculas el texto contenido en las cajas de texto
            End If 'Fin de la condicion
        Next n 'Sigueinte control
    End If
Next
    
End Sub

[juanutcm]

Excelente... ya me funcionó a la perfección muchas gracias jefe negro.... te debo una amigo....