validacion de datos

[pilar_tellez]

hola tengo una duda, necesito validar un dato tengo la idea, pero no se muy bien donde se debe colocar. Tengo un formulario donde ingreso informacion en una tabla en access de un elemento quimico, donde se ingresa:

nombre del quimico
nombre comercial
numero cas
numero nu que se ingresan en un text y por ultimo tipo de peligrosidad, este ultimo dato esta relacionado con esta tabla quimico, por lo cual en mi formulario lo muestro en un combobox, pero al momento de presionar el boton guardar se me cae el programa cuando no ingreso nada en este dato.

yo en el form load desactive los text para que el primer dato q sea ingresado sea el "tipo de peligrosidad" y quiero poner el sgte codigo pa q lo valide:

if combo1= " "
MSGBOX "ELIJA EL TIPO DE PELIGROSIDAD"
ELSE
TEXT1.ENABLED=TRUE
TEXT2.ENABLED=TRUE
TEXT3.ENABLED=TRUE
TEXT4.ENABLED=TRUE
END IF

pero no se donde colocarlo para que no se caiga el programa cuando presiono el boton guardar, y no haya ningun dato ingresado en el combobox.... desde ya garcias.

[Avellaneda]

Iniciado por pilar_tellez

hola tengo una duda, necesito validar un dato tengo la idea, pero no se muy bien donde se debe colocar. Tengo un formulario donde ingreso informacion en una tabla en access de un elemento quimico, donde se ingresa:

nombre del quimico
nombre comercial
numero cas
numero nu que se ingresan en un text y por ultimo tipo de peligrosidad, este ultimo dato esta relacionado con esta tabla quimico, por lo cual en mi formulario lo muestro en un combobox, pero al momento de presionar el boton guardar se me cae el programa cuando no ingreso nada en este dato.

yo en el form load desactive los text para que el primer dato q sea ingresado sea el "tipo de peligrosidad" y quiero poner el sgte codigo pa q lo valide:

if combo1= " "
MSGBOX "ELIJA EL TIPO DE PELIGROSIDAD"
ELSE
TEXT1.ENABLED=TRUE
TEXT2.ENABLED=TRUE
TEXT3.ENABLED=TRUE
TEXT4.ENABLED=TRUE
END IF

pero no se donde colocarlo para que no se caiga el programa cuando presiono el boton guardar, y no haya ningun dato ingresado en el combobox.... desde ya garcias.

Hola, según lo que entiendo deberías ponerlo al principio del evento Click del botón guardar y poner una instrucción Exit Sub a continuación del MsgBox.

[rulsanchez]

Hola Pillar_tellez, no se muy bien si te he entendido, creo que quieres que te valide que el combo lo rellenen obligatoriamente, es decir, que siempre te metan algo, yo lo suelo hacer en el evento lost_focus, asi:

Private Sub Combo1_LostFocus()
If Combo1.Text = "" Then
MsgBox "Debe ingresar un valor"
Combo1.SetFocus
End If
End Sub

Mira a ver si es eso, sino ya vemos otra cosa.
Saludos y suerte

[seba123neo]

Hola, yo lo haria asi:

Código:

Private Sub Command1_Click()
    If Combo1.ListIndex = -1 Then
        MsgBox "Debe Elegir un Valor"
        Combo1.SetFocus
        Exit Sub
    End If
    'aca abajo va el codigo de insertar el registro...
End Sub

saludos.