Comparar Id de una tabla, para evitar duplicados

Este es un ejemplo sencillo de una pregunta que realizaron en todoexpertos.com

Es meramente para evitar duplicados en las tablas cuando el campo Id no es autonumerico, este  caso el campo Id es Notas

Sub comparar()
Dim SalidosClave As String
Dim EventosCNotas As ADODB.Recordset
Set EventosCNotas = New ADODB.Recordset

‘Aqui colocas la clave que quieres verificar si se puede utilizar, esto es solo un ejemplo

SalidosClave = «DJ125757 – Color GRIS PLATA»
With EventosCNotas
.ActiveConnection = CurrentProject.Connection
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open «Select Notas from Eventos where Notas = ‘» & SalidosClave & «‘»
End With

If EventosCNotas.RecordCount > 0 Then
MsgBox «El registro ya se utilizo»
Else
MsgBox «El registro no se utilizo, puede utilizarlo»
End If
Set EventosCNotas = Nothing
End Sub

Publicado por yashirorig el septiembre 4, 2012

https://todoaccessvba.wordpress.com/2012/09/04/comparar-id-de-una-tabla-para-evitar-duplicados/