Visual Basic - Validar al Momento de Guardar un Registro

Life is soft - evento anual de software empresarial
 
Vista:

Validar al Momento de Guardar un Registro

Publicado por Cesar (80 intervenciones) el 30/10/2001 23:56:49
Hola tengo una tabla con los siguentes campos ORIGEN, DESTINO

1. Primer Registro de la tabla (esta bien)
Origen = Santiago
Destino = Calama

2. Segundo Registro de la tabla (esta bien)
Origen = calama
Destino = Santiago

3. Tercer Registro de la tabla (esta bien)
Origen = Concepción
Destino = Santiago

4. Cuarto Registro de la tabla (esta Mal porque existe)
Aquí es en donde quisiera validar atraves de un mensaje al momento de guardar , debido a que se encuentran ingresados
Origen = Santiago
Destino = Calama

Si pudieran darme una ayuda se lo agradecería

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:Validar al Momento de Guardar un Registro

Publicado por afogutu (321 intervenciones) el 31/10/2001 13:37:19
es muy fácil, Primero en la base de datos establecé los campos como clave.
luego cuando vallas a grabar hacé lo siguiente (RS es el récordset que estas manejando.

Function Grabar
On error Goto Fin
RS!Origen = Text1.text
RS!Destino = Text2.text
RS.Update

Exit Function
Fin:
RS.CancelUpdate
MsgBox err.number & " " & Err.Description

End Function
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

No sirve Porque estoy Preguntando Por un campo

Publicado por cesar (80 intervenciones) el 31/10/2001 18:38:55
la idea es que valdea cuando estos sea iguales y no cuanto ya se encuentren
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:Validar al Momento de Guardar un Registro

Publicado por felipe (74 intervenciones) el 31/10/2001 21:35:22
no se como estas trabajando la base de datos, si como un objeto o con comandos... pero creo que te podre dar una pista de como solucionarlo ...

BASEDATOS.RECORDSOURCE =" SELECT * FROM TABLA WHERE ORIGEN='" &TEXT1.TEXT&"' AND DESTINO='"&TEXT2.TEXT&"'"
IF BASEDATOS.RECORDSET.EOF THEN
NO EXISTEN EN LOS CAMPOS
AQUI ES DONDE GRABAS
ELSE
MSGBOX("EL ORIGEN Y EL DESTINO EXISTEN VERIFIQUE")
ENDIF

espero que te sirva ya que estoy en la oficina y no tengo instalado el VB
pero x logica deberia funcionar

saludos


Felipe
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