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