Retroceder   Foros del Web > Temas generales de computación > Programación > Visual Basic

Respuesta
 
Herramientas Desplegado
Antiguo 30-may-2006, 19:10   #1 (permalink)
David_erh está en el buen camino
 
Fecha de Ingreso: noviembre-2003
Mensajes: 99
Comprobar q los campos estén llenos

Hola a todos los del foro;soy un autodidacte en Visual Basic y hago aplicaciones para excel; tengo un formulario con varios controles TextBox, y ComboBox; deseo que cuando intenten guardar los datos y falten llenar algunos campos del formulario les salga el aviso "Debe de llenar el [acá va el dato a llenar] ".
Yo lo he hecho con IF anidados pero era un formulario con 4 controles, ahora estoy haciendo uno con muchos controles y no me parece una menara eficiente, seguro que ustedes conocen una mejor manera de hacerlo y espero me ayuden.
Saludos y gracias.

David
David_erh está desconectado   Responder Citando
Antiguo 30-may-2006, 21:49   #2 (permalink)
marcos1979 está en el buen camino
 
Avatar de marcos1979
 
Fecha de Ingreso: abril-2004
Ubicación: 62º 06' 18" O / 33º 07' 47" S
Mensajes: 331
Proba asi:
A los controles que necesitas ver si tienen algo poneles un Tag con el nombre, por ejemplo si el textbox se llama txtDireccion y es para que ponga la direccion agregale un tag "Direccion", despues pone esto en el boton de guardar:

Código:
    Dim i As Control
    
    For Each i In Controls
        If TypeName(i) = "TextBox" Or TypeName(i) = "ComboBox" Then
            If Len(i.Text) = 0 Then
                MsgBox "Faltan datos en " & i.Tag
                Exit Sub
            End If
        End If
    Next
    
    MsgBox "Todos llenos"
El problema es que no se como ordenar los controles, los 'revisa' en un orden medio 'raro'.
Un saludo y espero que te sirva
__________________
Marcos

El dinero no da la felicidad... démelo y sea feliz!!!
marcos1979 está desconectado   Responder Citando
Antiguo 31-may-2006, 07:05   #3 (permalink)
juanutcm está en el buen camino
 
Avatar de juanutcm
 
Fecha de Ingreso: marzo-2005
Mensajes: 194
Enviar un mensaje por MSN a juanutcm
Mira lo que tambien podrias hacer y este revisa desde el primer control que encuentra y tambien depende del TabIndex que le pongas por que este te va a entregar el posicionamiento de un control en el formulario principal

Dim i As Control

For i=0 to Controls.Count-1
If TypeName(i) = "TextBox" Or TypeName(i) = "ComboBox" Then
If Len(i.Text) = 0 Then
MsgBox "Faltan datos en " & i.Tag
Exit Sub
End If
End If
Next i
MsgBox "Todos llenos"
Ojala te sirva y sea lo que buscas
__________________
L.C.I. Juan Jesús

--- El sabio no dice nunca todo lo que piensa, pero siempre piensa todo lo que dice. ---
juanutcm está desconectado   Responder Citando
Antiguo 31-may-2006, 09:41   #4 (permalink)
David_erh está en el buen camino
 
Fecha de Ingreso: noviembre-2003
Mensajes: 99
Voy a probarlo

Gracias Juanu y Marcus, sobre todo por que se toman la molestaia de ayudar a los nuevos.
Voy a probar co las rutinas que me indican y sobre todo gracias por que no sabía hasta ahora de la propiedad "TAG".
Saludos y gracias otra vez.
David
David_erh está desconectado   Responder Citando
Respuesta

No hay votos aún.


Herramientas
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder temas
No puedes subir archivos adjuntos
No puedes editar tus mensajes

BB code is Activado
Caritas están Activado
[IMG] está Activado
Código HTML está Desactivado


La Zona horaria es GMT -6. Ahora son las 15:18.


Message Board Statistics

LinkBacks Enabled by vBSEO 3.1.0

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93