ayuda en un sistema

norma
06 de Mayo del 2004
estoy realizando un sistema de celulares de tarea su funcion es dar de altas,bajas,cambios desde una interfaz el problema es ke la maestra me pide que despliegue mensajes de error al no llenar un campo o cualquier otro tipo de error que tengamos al usar el sitema pero no se como haverlos ? me podrian ayudar respondan lo mas pronto posoble porfaaaaaaa

frangel
06 de Mayo del 2004

checa esta rutina ....
Private Sub CHECA_CAMPOS()
NOEXISTE = 0
If Len(txtap) < 4 Then
MsgBox (" AP. PATERNO INCORRECTO CORREGIR ?? "), 64, Aspirantes.Caption
txtap.SetFocus
cmdaceptar.Enabled = True
NOEXISTE = 9
Exit Sub
End If
If Len(txtnombre) < 3 Then
MsgBox (" NOMBRE INCORRECTO CORREGIR ?? "), 64, Aspirantes.Caption
txtnombre.SetFocus
cmdaceptar.Enabled = True
NOEXISTE = 9
Exit Sub
End If
If Len(txtExpediente) < 1 Then
MsgBox (" EXPEDIENTE INCORRECTO CORREGIR ??"), 64, Aspirantes.Caption
txtExpediente.SetFocus
cmdaceptar.Enabled = True
NOEXISTE = 9
Exit Sub
End If
If Len(txtcuip) < 17 Then
REPLY = MsgBox(" CUIP INCOMPLETO CONTINUAR ?? ", vbYesNo + vbQuestion, Aspirantes.Caption)
If REPLY = vbNo Then
txtcuip.SetFocus
cmdaceptar.Enabled = True
NOEXISTE = 9
Exit Sub
End If
End If
If cbomunpo = "" Then
MsgBox (" Municipio / Empresa Incorrecto Corregir ??"), 64, Aspirantes.Caption
cbomunpo.SetFocus
cmdaceptar.Enabled = True
NOEXISTE = 9
Exit Sub
End If
If cbopuesto = "" Then
MsgBox (" Puesto Erroneo Corregir ??"), 64, Aspirantes.Caption
cbopuesto.SetFocus
cmdaceptar.Enabled = True
NOEXISTE = 9
Exit Sub
End If
If cbosexo = "" Then
MsgBox (" Sexo Incorrecto Corregir ??"), 64, Aspirantes.Caption
cbosexo.SetFocus
cmdaceptar.Enabled = True
NOEXISTE = 9
Exit Sub
End If
End Sub

norma
06 de Mayo del 2004
gracias aver si me sirve