[[Solucionado]] pasar un formulario y sus controles a una funcion

[manzarinaa]

Hola a tod@s!
Os cuento por que ya le he dado muchas vueltas y no hay manera.
tengo una funcion (...pretendo hacerla) que se llama ValidarFormulario
pretende coger un formulario, recorrer sus textbox e informar de si falta alfun campo por rellenar
el codigo que tengo es este. No le hagais ya mucho caso por que lo he reescrito tantas veces....que perdio el sentido

validado = ValidarFormulario(frmCliente)

Public Function ValidarFormulario(formulario As Form) As Boolean
Dim i As Integer
Dim aux As String
Dim fallo As Boolean
Dim mensaje As String
Dim crtl As Control

fallo = False
mensaje = "Faltan los siguientes datos: " & vbCr
For Each crtl In formulario.Controls
If TypeOf formulario Is TextBox And TextBox.Caption = "" Then
fallo = True
mensaje = mensaje & TextBox.Tag & vbCr
End If
Next crtl
If fallo Then
MsgBox mensaje, , "Faltan datos"
Else
ValidarFormulario = True
End If


El fallo salta en esta linea
If TypeOf formulario Is TextBox And TextBox.Caption = "" Then
cuando me dice, Se requiere un objeto

a ver si alguien me puede echar un cable :) graciaaaas

[guille_el3]

Claro, fijate que estas haciendo

Código:

... TextBox.Caption ...

Y TextBox no es un objeto, es la clase... Ahí tendrias que hacer algo como:

Código:

         If TypeOf ctrl Is TextBox And ctrl.Caption = "" Then

Espero que te sirva,

[manzarinaa]

Gracias por responder tan rápido.
Ahora me dice que el objeto no admite esa propiedad o metodo
ya vi que las textbox no tienen caption si no .text, aun asi me sigue dando

AAAAGGGG ¿que hago?

[manzarinaa]

:P que pesada soy
ahora lo pongo asi
If TypeOf crtl(i) Is TextBox And crtl(i).Text = "" Then
el indice incrementa y tal por ahí
pero me dice que debo especificar el indice de la matriz

[David]

Iniciado por manzarinaa

:P que pesada soy
ahora lo pongo asi
If TypeOf crtl(i) Is TextBox And crtl(i).Text = "" Then
el indice incrementa y tal por ahí
pero me dice que debo especificar el indice de la matriz

Debes hacerlo con dos If. Así:

Código:

 
If TypeOf ctrl Is TextBox Then
     If ctrl.Text = "" Then
            'Aquí el código
     End If
End If

[manzarinaa]

Muuuuuchas gracias. Asi da gusto

[David]

Iniciado por manzarinaa

Muuuuuchas gracias. Asi da gusto

De nada, es muy amable de tu parte colocar en el título que has logrado solucionar tu problema. (Muchos ni siquiera lo colocan dentro de los temas).