Duplicate ID Message

[Traviscon]

Hi everyone,

I have a table called "shapes" with a unique ID field in that table.

When I add the shapes to the table, if it is a duplicate, it doesn't complete until the whole of the form is complete. Is there anyway you can set it so that if this single unique field is a duplicate, a message will popup instantly once the mouse goes onto the next field?

Regards,


Travis

[JeroenMioch]

Yes you can detect duplicate entries in any field of a table.

In my next example i do exactly this.

Private Sub Sticker_BeforeUpdate(Cancel As Integer)
Dim Answer As Variant
Answer = DLookup("[Sticker]", "Parkeerbeheer", "[Sticker] = '" & Me.Sticker & "'")
If Not IsNull(Answer) Then
MsgBox "This Sticker number is allready in use" & vbCrLf & "Please check if the number is correct" & vbCrLf & "Use a new sticker", vbCritical + vbOKOnly + vbDefaultButton1, "Double entry"

Cancel = True
Me.Sticker.Undo

Else
End If
End Sub

You can customize it to your situatium by changing the fields and table.

Hope it helps