Visual Basic - VALIDAR REGISTROS

Life is soft - evento anual de software empresarial
   
Vista:

VALIDAR REGISTROS

Publicado por jomar (1 intervención) el 14/11/2009 17:24:51
SOY NUEVO EN LA PROGRAMACION QUE ME AYUDEN PORFAVOR
VALIDAR CEDULA QUE NO SE DUPLIQUE

GRACIAS DE ANTEMANO

Private Sub cmdGuardar_Click()

On Error GoTo ErrorSub

'Agrega el registro
'''''''''''''''''''''''''''''''

Select Case ACCION
Case editar_registro
cnn.Execute "UPDATE Clientes set Cedula = '" & Text1(0) & _
"', Nombre = '" & Text1(1) & _
"', Direccion = '" & Text1(2) & _
"', Telefono = '" & Text1(3) & _
"' where Cedula = " & IdRegistro & ""

Case agregar_registro

cnn.Execute "INSERT INTO Clientes "&"(Cedula,Nombre,Direccion,Telefono,FechaDeAlta) VALUES('" & _
Text1(0) & "','" & _
Text1(1) & "','" & _
Text1(2) & "','" & _
Text1(3) & "','" & _
Format(Date, "dd/mm/yyyy") & "')"

End Select

rs.Requery 1

DoEvents
Unload Me
Set frmNvo = Nothing
Exit Sub
ErrorSub:
MsgBox Err.Description

End Sub
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 REGISTROS

Publicado por jaime guerrero (29 intervenciones) el 18/11/2009 15:02:12
tio, si quieres validar que la cedula no se duplique, tienes las siguientes opciones segun yo

tienes que poner ha ese campo como llave primaria
o puedes hacer un filtro antes de insertar, el cual busque en la tabla si esta cedula existe.
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