Eindeutige Mitgliedsnummer in Access-Datenbank

Question

Ich habe eine Datenbank in Access 2010, wo das 1. Feld eine eindeutige Mitgliedsnummer ist. Das Feld ist Indiziert, keine Duplikate. Wenn ein Duplikat auf dem Eingabeformular eingegeben wird, wird keine Fehlermeldung angezeigt und nichts anderes funktioniert, bis eine eindeutige Nummer eingegeben wird. Ich benötige den Code, der den Fehler im Nummernfeld auffängt und den Fokus verliert, so dass ein Meldungsfeld den Benutzer über das Problem informiert und dann den Fokus zurück auf das Zahlenfeld setzt oder den Benutzer alle Eingaben abbrechen lässt. Diese ist das, was ich habe, und es verursacht Datentyp Fehler

Private Sub Grumpy_No_BeforeUpdate(Cancel As Integer) 
    If DLookup(Str("[Grumpy_No]"), "Grumpy", Str("[Grumpy_No]") = Me!Str(Grumpy_No)) Then 
    MsgBox "Number has already been entered in the database." 
    Cancel = True 
    Me!Grumpy_No.Undo 
    End If 
End Sub 

Irgendwelche Hinweise darauf, wo ich falsch werde sehr geschätzt werden würde

Answer 1

mir Sieht aus wie Sie in die richtige Richtung, aber sie müssen Ihren DLookup Ausdruck beheben. Das dritte Argument muss eine einzelne Zeichenfolge sein. Ich sehe nicht, warum Str() ist nützlich --- nur eine Zeichenfolge erstellen. Eigentlich würde ich DCount anstelle von DLookup verwenden, aber dann gelten die gleichen Probleme immer noch.

Private Sub Grumpy_No_BeforeUpdate(Cancel As Integer) 
    If DCount("[Grumpy_No]", "Grumpy", "[Grumpy_No] = " & Me!Grumpy_No.Value) > 0 Then 
     MsgBox "Number has already been entered in the database." 
     Cancel = True 
     'Me!Grumpy_No.Undo '<- consider allowing the user to see the value which failed 
    End If 
End Sub 

Hinweis, wenn Sie Grumpy_No ein Autoprimärschlüssel machen kann, wird der Zugriff automatisch eindeutige Werte liefern, so dass Sie nicht Ihren eigenen Code brauchen, um diese Werte zu überprüfen.