Por favor ¿Como puedo evitar repeticiones?Publicado por jorge (25 intervenciones) el 22/11/2002 19:51:28Me podrian indicar como compruebo que no exista un numero de pedido en una tabla? Muchas graciasValora esta pregunta0Responder
RE:Por favor ¿Como puedo evitar repeticiones?Publicado por Rodolfo del Peru (454 intervenciones) el 22/11/2002 20:19:59Antes de insertar llamas a una funcion que verifique la existencia If Not Existe_Pedido(txtPedido) Then .... Instrucciones para el Insert Else MsgBox "Pedido ya existe" End If Function Existe_Pedido(ByVal wPedido As String) As Boolean Dim sql as String Dim rs As New ADODB.Recordset sql = "SELECT * FROM PEDIDO " sql = sql & "WHERE COD_PEDIDO = '" & wPedido & "' " Set rs = New ADODB.Recordset Set rs.ActiveConnection = cnConsig With rs .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockReadOnly .Open sql End With If rs.EOF Then Existe_Pedido = False Else Existe_Pedido = True End If rs.Close Set rs = Nothing End Function Saludos desde LimaValora esta respuesta0Comentar
RE:Por favor ¿Como puedo evitar repeticiones?Publicado por jorge (25 intervenciones) el 23/11/2002 10:55:30Muchas gracias Rodolfo , ¿pero me podrias explicar como lo hago cuando se trata de un control Data. Un saludo y mi agradeciemiento de nuevoValora esta respuesta0Comentar
RE:Por favor ¿Como puedo evitar repeticiones?Publicado por josé (83 intervenciones) el 24/11/2002 01:21:32Jorge, te envie a tu correo un ejemplo, en el cual verifica si existe un codigo existente, si existe, avisa que ya existe, sino, entonces inserta el nuevo registro del X pedido. En verdad no sé si es lo que necesitas. Saludos.Valora esta respuesta0Comentar