Visual Basic - Validar textbox que no queden vacios

Life is soft - evento anual de software empresarial
   
Vista:

Validar textbox que no queden vacios

Publicado por William Varguez G. william.varguez.wv@gmail.com (2 intervenciones) el 12/08/2015 23:07:27
Amigos...

Me estoy metiendo a vba para realizar un formulario que cuenta con 34 textbox que hay que llenar,

ya logre realizarlo, sin embargo necesito que cuando se le de gravar valide si existen campos vacios y envie un msg de advertencia

podrían ayudarme

saludos Gracias

William
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Validar textbox que no queden vacios

Publicado por Facundo (58 intervenciones) el 13/08/2015 01:27:28
En la sub del botón grabar poné al principio:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
Dim Conttrol As control
For Each Conttrol In Controls
If TypeOf Conttrol Is TextBox Then
    If Conttrol.Text = "" Then
        MsgBox "Hay algún TextBox vacío!"
        Exit Sub
    End If
End If
Next
MsgBox "Todos los TextBox tienen contenido!"
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JoaoM

Validar textbox que no queden vacios

Publicado por JoaoM (72 intervenciones) el 13/08/2015 18:07:36
Esta linea al inicio de la macro de guardar

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
Dim Conttrol As control
 
If TextBox1 = "" Or TextBox2 = "" Or ComboBox1 = "" Or ComboBox2 = "" Then
MsgBox "No dejes ningun campo en blanco", vbOKOnly + vbInformation, "AVISO"
TextBox1.SetFocus
Exit Sub
End If
 
'AQUI tu codigo
 
End Sub

Cambia el nombre de los TextBox y Combos por los tuyos.
Si tienes mas TextBox o Combos, puedes agregarlos en la linea del If, la cantidad que tengas
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JoaoM

Validar textbox que no queden vacios

Publicado por JoaoM (72 intervenciones) el 13/08/2015 18:29:41
Otra opcion mas larga
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Command1_Click()
 
If TextBox1 = Empty Or TextBox2 = Empty Or TextBox3 = Empty Or TextBox6 = Empty Or TextBox7 = Empty _
Or TextBox8 = Empty Or TextBox9 = Empty Or TextBox10 = Empty Or TextBox11 = Empty Or TextBox12 = Empty _
Or TextBox13 = Empty Or TextBox14 = Empty Or TextBox4 = Empty And OptionButton1 = False _
Or OptionButton2 = False And OptionButton3 = False Then
    MsgBox (Chr(13) & vbTab & "Por favor, revisa el formulario" _
    & Chr(13) & Chr(13) & "  Debes completar los datos necesarios  para poder continuar"), _
    vbOKOnly + vbInformation, " Datos incompletos"
Else
End If
 
'Aqui tu codigo
 
End Sub

En ves de la palabra Empty, puedes ccambiarla por "" como está en el 1º

El False para los OptionButton o ChekBox que puedas tener

Cambia el nombre de los controles por los tuyos. Quita o agrega controles, segun tu necesidad
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Validar textbox que no queden vacios

Publicado por Facundo (58 intervenciones) el 13/08/2015 21:21:05
La línea 4 (¡a 7!) me hizo doler la cabeza. Una delicia para el que tenga que debuguear el código...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Validar textbox que no queden vacios

Publicado por Facundo (58 intervenciones) el 14/08/2015 00:18:29
¿Probaste el código? ¿Seguro que anda?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JoaoM

Validar textbox que no queden vacios

Publicado por JoaoM (72 intervenciones) el 14/08/2015 22:36:39
Lo tengo en varias plantillas, uno en algunas y el 2º en otras.

Recuerda que los controles tiene que tener su nombre en If

Tambien los que no necesites, tienes que quitarlos y puedes colocar solo lo que tengas o quieres no dejar vacios

Estas lineas, en la ventana de codigo NO PUEDEN TENER ESPACIO ENTRE LAS LINEAS

1
2
3
4
5
6
7
8
If TextBox1 = Empty Or TextBox2 = Empty Or TextBox3 = Empty Or TextBox6 = Empty Or TextBox7 = Empty _
Or TextBox8 = Empty Or TextBox9 = Empty Or TextBox10 = Empty Or TextBox11 = Empty Or TextBox12 = Empty _
Or TextBox13 = Empty Or TextBox14 = Empty Or TextBox4 = Empty And OptionButton1 = False _
Or OptionButton2 = False And OptionButton3 = False Then
'''''''''''''''''''SOLO AQUI PUEDE EXISTIR UN ESPACION ENTRE LA LINEA ANTERIOR Y LA POSTERIOR
    MsgBox (Chr(13) & vbTab & "Por favor, revisa el formulario" _
    & Chr(13) & Chr(13) & "  Debes completar los datos necesarios  para poder continuar"), _
    vbOKOnly + vbInformation, " Datos incompletos"

Al tener el guion ( _ )bajo, quier decir al codigo que se trata de UNA SOLA LINEA
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Validar textbox que no queden vacios

Publicado por William Varguez G. (2 intervenciones) el 19/08/2015 01:06:21
Gracias por tu información fue de utilidad

saludos

William
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JoaoM

Validar textbox que no queden vacios

Publicado por JoaoM (72 intervenciones) el 19/08/2015 20:14:04
Si dfe algo te sirvio, existe abajo del mensage una flecha para

Valora esta respuesta
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar