Cómo evitar los registros duplicados ?
Publicado por enpracticas (4 intervenciones) el 11/08/2004 12:44:06
Buenos dias:
Estoy elaborando una aplicacion en Access en la que tengo insertar unos datos en una tabla mediante un formulario, en este formulario existen un boton que hace que los datos se introduzcan en la tabla. No tengo problemas a la hora de introducir los nuevos registros en la tabla, pero tengo un buen problemilla cuando duplico la clave principal (que es normal).
El codigo que he creado para hacer que se introduzca los datos es el siguiente:
Private Sub CMDINSERTAR2_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Select Vendedor FROM CLientes-devolucion Where Nº albaran=[INSERTAR_CLIENTE_INCIDENCIA]![TXTNUMALB]")
rs.MoveFirst
If rs.NoMatch Then
DoCmd.GoToRecord , , acSave ''Si no encuentra nada se guarda el registro
Else
MsgBox "Lo siento el numero de albaran esta repetido: "
End If
rs.Close
Set valor = Nothing
Exit_CMDINSERTAR2_Click:
Exit Sub
Err_CMDINSERTAR2_Click:
MsgBox Err.Description
Resume Exit_CMDINSERTAR2_Click
End Sub
End If
End Sub
No sé si tengo bien la expresion con sql, lo que pretendo evitar es que se duplique la clave principal (Nº albaran), pero por mucho que lo intento, lo pasa por alto. Espero que me podais ayudarme, de todos modos muchas gracias por leer este mensaje.
Estoy elaborando una aplicacion en Access en la que tengo insertar unos datos en una tabla mediante un formulario, en este formulario existen un boton que hace que los datos se introduzcan en la tabla. No tengo problemas a la hora de introducir los nuevos registros en la tabla, pero tengo un buen problemilla cuando duplico la clave principal (que es normal).
El codigo que he creado para hacer que se introduzca los datos es el siguiente:
Private Sub CMDINSERTAR2_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Select Vendedor FROM CLientes-devolucion Where Nº albaran=[INSERTAR_CLIENTE_INCIDENCIA]![TXTNUMALB]")
rs.MoveFirst
If rs.NoMatch Then
DoCmd.GoToRecord , , acSave ''Si no encuentra nada se guarda el registro
Else
MsgBox "Lo siento el numero de albaran esta repetido: "
End If
rs.Close
Set valor = Nothing
Exit_CMDINSERTAR2_Click:
Exit Sub
Err_CMDINSERTAR2_Click:
MsgBox Err.Description
Resume Exit_CMDINSERTAR2_Click
End Sub
End If
End Sub
No sé si tengo bien la expresion con sql, lo que pretendo evitar es que se duplique la clave principal (Nº albaran), pero por mucho que lo intento, lo pasa por alto. Espero que me podais ayudarme, de todos modos muchas gracias por leer este mensaje.
Valora esta pregunta


0