Visual Basic - validacion de entradas

Life is soft - evento anual de software empresarial
 
Vista:

validacion de entradas

Publicado por armando velasquez (1 intervención) el 08/06/2001 16:22:26
como se hace para validar las entradas de un formulario, en el momento que la entrada no cumpla las condiciones, el cursor(setfocus) se coloque en la entrada que posee el error y obligue al usuario a ingresar un valor valido
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
Imágen de perfil de diana

RE:validacion de entradas

Publicado por diana (139 intervenciones) el 08/06/2001 16:29:18
depende de lo que quieras validar, por ejemplo si la entrada a un cuadro de texto es solo numerica puedes hacer lo siguiente en el evento KeyPress:
If Not ((Chr(KeyAscii) >= "0" And Chr(KeyAscii) <= "9") Or (Chr(KeyAscii) = ".") Or (KeyAscii = 8)) Then
KeyAscii = 0
End If

Asi es que todo depende de las condiciones que desees manejar
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:validacion de entradas

Publicado por Miguel (243 intervenciones) el 08/06/2001 17:59:47
Hola.
Otra cosa que puedes hacer es crearte una función que compruebe todas las cajas y hacerlo en el momento de pulsar para grabar en caso de error te llevará a esa caja.

Ej.

Dim ErrorEntrada as Integer 'en declaraciones generales

Function ComprobarCajas ( )
If Trim(Text1.Text) = "" Then
ErrorEntrada = 1
msgbox "Introduzca valor",VBExclamation,"Campo vacío"
Text1.SetFocus
GoTo Error
End If
If IsNumeric (Text2.Text) = False Then
ErrorEntrada = 1
msgbox "Introduzca valor numérico",VBExclamation,"Error"
Text2.SetFocus
GoTo Error
End If
Error :
End Function

En el boton Grabar pones

Private Sub Command1_Click()
ComprbarCajas
If ErrrorEntrada = 0 Then
´Pones el código que tengas para grabar los datos
Else
ErrorEntrada = 0
End If
End Sub

De esta manera si añades cajas basta que pongas las condiciones que quieres que tengan sus datos en la Funcion ComprobarCajas.

Espero que te sirva
Saludos
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