Visual Basic - PROBLEMA CON CAMPOS VACIOS / VACIAR DATOS

Life is soft - evento anual de software empresarial
   
Vista:

PROBLEMA CON CAMPOS VACIOS / VACIAR DATOS

Publicado por roxxane (8 intervenciones) el 29/10/2008 18:44:38
Hola, de nuevo yo...
Estoy haciendo un sistema en el cual tengo que validar si no hay nada escrito en las cajas de texto o no cumpla con la cantidad de caracteres en cada campo no me deje guardar, lo realizo con el siguiente codigo en el boton guardar:

[i]If Text5.Text = "" Or Len(Text5.Text) < 10 Then
AgregarMsg ("- EL NUMERO TELEFONICO ES OBLIGATORIO Y DEBE CONTENER 10 DIGITOS")
End If
If Text7.Text = "" Or Len(Text7.Text) < 8 Then
AgregarMsg ("- LA ORDEN DE SERVICIO ES OBLIGATORIA Y DEBE CONTENER 8 DIGITOS")
End If
If (MostrarMsg() = 0) Then
Adodc1.Recordset.Update
HabilitarBotones
CMD_GUARDA.Enabled = False
CMD_CANCELA.Enabled = False
InhabilitarCajas
DTPicker1.Visible = False
DTPicker2.Visible = False
End If[/i]

Y FUNCIONA!! Pero solo la primera vez que deseo darlo de alta, si al mismo registro ya guardado correctamente lo edito y dejo cajas de texto vacias, cuando le doy clic en guardar permite almacenar el registro con datos vacios. No se porque pase esto yo lo atribuyo a que los datos se quedan en el cache, el buffer o la memoria, y si esto es asi quisisera saber si alguien sabe alguna instruccion para vaciar donde se haya quedado. O si hay alguna otra razon me lo pudieran explicar ya que no lo he podido solucionar..
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

RE:PROBLEMA CON CAMPOS VACIOS / VACIAR DATOS

Publicado por quique (64 intervenciones) el 29/10/2008 21:44:33
Hola roxxane samantha_bonita (yo agregaría algo mas, pero no quiero que me tiren piedras)

mas bien no creo que sea culpa del buffer o de la memoria, me inclino mas a creer que es por culpa del código, que me parece que no lo pones del todo correcto ya que me extraña que la primera vez lo des de alta sin un AddNew

¿seguro que el boton guardar es el mismo para un caso y para el otro?
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

RE:PROBLEMA CON CAMPOS VACIOS / VACIAR DATOS

Publicado por roxxane (2 intervenciones) el 29/10/2008 22:22:01
Si tengo un AddNew en un boton de AGREGAR... Es decir le doy en agregar me inserta el espacio para el nuevo registro y activa las cajas de texto, despues de llenar el formulario le doy clic en el boton GUARDAR que es el que contiene el texto, pero como comento, cuando agrego nuevo registro si funcionan las validaciones pero cuando le doy en editar permite campos vacios. Anexo el codigo de los 3 botones:

Private Sub CMD_EDITA_Click()
HabilitarCajas
InhabilitarBotones
DTPicker1.Visible = True
DTPicker2.Visible = True
CMD_GUARDA.Enabled = True
CMD_CANCELA.Enabled = True
Text1.SetFocus
End Sub

Private Sub CMD_GUARDA_Click()
If Len(Text1.Text) <> 12 Or Text1.Text = "" Or Len(Text1.Text) < 12 Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Len(Text5.Text) < 10 Or Text6.Text = "" Or Text7.Text = "" Or Len(Text7.Text) < 8 Then
AgregarMsg ("- DEBE LLENAR TODOS LOS CAMPOS OBLIGATORIOS")
AgregarMsg ("- EN NUMERO DE SERIE DEBE TENER 12 DIGITOS")
AgregarMsg ("- EL TELEFONO DEBE CONTENER 10 DIGITOS")
AgregarMsg ("- LA ORDEN DE SERVICIO DEBE TENER 8 DIGITOS")
End If
If (MostrarMsg() = 0) Then
Adodc1.Recordset.Update
HabilitarBotones
CMD_GUARDA.Enabled = False
CMD_CANCELA.Enabled = False
InhabilitarCajas
DTPicker1.Visible = False
DTPicker2.Visible = False
End If
Tamanio = 0
End Sub

Private Sub CMD_AGREGA_Click()
HabilitarCajas
InhabilitarBotones
CMD_GUARDA.Enabled = True
CMD_CANCELA.Enabled = True
DTPicker1.Visible = True
DTPicker2.Visible = True
Adodc1.Recordset.AddNew
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
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