Nach Eingabe auf doppelten Schlⁿsselwert prⁿfen

Zur Eingabe in meine Datenbank nutze ich Formulare. Das erste Eingabefeld speichert den PrimΣrschlⁿssel. Ist es m÷glich, dass Access gleich bei Eingabe in dieses Feld auf einen doppelten Wert prⁿft?

Eine VBA-Prozedur kann nach Eingabe des Schlⁿsselwerts in der Tabelle nach einem Datensatz mit demselben Schlⁿssel suchen und gibt im Konfliktfall eine Meldung aus.
╓ffnen Sie Ihr Formular in der Entwurfsansicht, klicken Sie mit der rechten Maustaste auf das Feld des PrimΣrschlⁿssels und rufen Sie die ╗Eigenschaften½ auf. Unter ╗Ereignis½ klicken Sie auf die SchaltflΣche neben ╗Vor Aktualisierung½. WΣhlen Sie den ╗Code-Editor½ und bestΣtigen Sie mit ╗OK½. Access legt eine leere Prozedur an, in die Sie den VBA-Code schreiben. Sie finden ihn im Kasten oder auf der Heft-CD: CHIP-Code FLDPRUEF. Sie mⁿssen ihn nur noch abstimmen. Der Quelltext geht von der Tabelle ╗Namen½ aus, deren Feld ╗Nachname½ als PrimΣrschlⁿssel dient. Das Eingabefeld trΣgt den Namen ╗EingabeNachname½; der Quelltext verweist mit ╗Me![EingabeNachname]½ auf dieses Feld.

Private Sub 
EingabeNachname_BeforeUpdate
(Cancel As Integer)
Dim dbs As Database
Dim rst As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(äNamenô, dbOpenDynaset)
rst.FindFirst ä[Nachname]= æä & Me![EingabeNachname] & äæä
If Not rst.NoMatch Then
  MsgBox äDieser Wert ist bereits vergeben! Bitte wΣhlen Sie einen anderen...ô
End If
rst.Close
Set dbs = Nothing
End Sub