validacion de cajas de texto
QUE TAL ME HA SERVIDO LO QUE ME HAS CONTESTADO, EL PROBLEMA AHORA ES QUE ME HACE LAS VALIDACIONES DE LAS CAJAS DE TEXTO, Y SE SUPONE QUE AL VALIDAR QUE HAY UNA CAJA VACIA, NO DEBE GUARDAR EL REGISTRO, SIN EMMBARGO LO HACE.... AUN CUANDO LA INSTRUCCION INSERT INTO NO SE ACTIVA. CABE MENCIONAR QUE ESTAS CAJAS DE TEXTO ESTAN LIGADAS A LOS CAMPOS DE UNA TABLA ...LO QUE QUIERO ES QUE SI DETECTA UNA CAJA VACIA, NO GUARDE EL REGISTRO. ESTE ES MI CODIGO:
Private Sub Comando29_Click()
Dim instruccion As String
Dim vacio As Boolean
Dim mensajenom As String
Dim mensajeApePat As String
Dim mensajeApeMat As String
Dim mensajeRelLab As String
Dim mensajePuesto As String
Dim mensajeFecIng As String
vacio = False
If IsNull(F_NOMBRE) Then
mensajenom = "NOMBRE"
vacio = True
MsgBox "NOMBRE VACIO" ' SOLO PARA SABER SI ENTRO A LA CONDICION
End If
If IsNull(F_APE_PAT) Then
mensajeApePat = "APELLIDO PATERNO"
vacio = True
MsgBox "APELLIDO PATERNO VACIO"
End If
If IsNull(F_APE_MAT) Then
mensajeApeMat = "APELLIDO MATERNO"
vacio = True
MsgBox "APELLIDO MATERNO VACIO"
End If
If IsNull(F_REL_LAB) Then
mensajeRelLab = "RELACION LABORAL"
vacio = True
MsgBox "RELACION LABORAL VACIO"
End If
'ElseIf F_PUESTO.Value = "" Then
If IsNull(F_PUESTO) Then
mensajePuesto = "PUESTO"
vacio = True
MsgBox "PUESTO VACIO"
End If
If IsNull(F_FEC_INGRESO) Then
mensajeFecIng = "FECHA DE INGRESO)"
vacio = True
MsgBox "FECHA DE INGRESO VACIO"
End If
If vacio = False Then
instruccion = "INSERT INTO EMPLEADOS1 (NOMBRE, APE_PATERNO, APE_MATERNO,CURP,RFC,CELULAR,TELEFONO,ESCOLARIDAD,REL_LABORAL,CATEGORIA,PUESTO,REGIDURIA,DIRECCION,FECHA_INGRESO) VALUES (F_NOMBRE.Value ,F_APE_PAT.Value,F_APE_MAT.Value,F_CURP.Value, F_RFC.Value,F_CELULAR.Value,F_TELEFONO.Value,F_ESCOLARIDAD.Value,F_REL_LAB.Value,F_CATEGORIA.Value,F_PUESTO.Value, F_REGIDURIA.Value,F_DIRECCION.Value,F_FEC_INGRESO.VALUE)"
MsgBox "EL REGISTRO FUE AGREGADO CORRECTAMENTE"
ElseIf vacio = True Then
MsgBox "ES NECESARIO LLENAR LOS CAMPOS:" & mensajenom & Space(2) & mensajeApePat & Space(2) & mensajeApeMat & mensajeRelLab & Space(2) & mensajePuesto & Space(2) & mensajeFecIng
End If
End Sub