Vergleiche ob Name in der Tabelle vorhanden ist

hi,
wenn der selbe Nachname + Vorname in der Tabelle Adresse vorhanden ist soll eine Fehlermeldnug erscheinen.
Mein Problem ist das ich es nicht schaffe die ganze Tablle Adresse zu durchsuchen. Wie mache das am besten mit der For schleife das er jeden einzelnen Datensatz überprüpft?

Set db = CurrentDb()
Set Tabelle = db.OpenRecordset(„Adresse“)

For i = 1 To Len(Tabelle![ID])

If (Tabelle![Nachname] = Me![Nachname]) And (Tabelle![Vorname] = Me![Vorname]) Then
MsgBox „Der Name " & Me![Vorname] & Me![Nachname] & " ist schon vorhanden möchten Sie dennoch diesen Datensatz hinzufügen?“, vbYesNo, „Hinweis“
End If
Next i

Thanks

Hallo,

nimm lieber eine Do-Until-Schleife:

Set db = CurrentDb()
Set Tabelle = db.OpenRecordset(„Adresse“)
Tabelle.MoveFirst
Do Until Tabelle.EOF = True

If (Tabelle![Nachname] = Me![Nachname]) And
(Tabelle![Vorname] = Me![Vorname]) Then
MsgBox „Der Name " & Me![Vorname] & Me![Nachname] & "
ist schon vorhanden möchten Sie dennoch diesen Datensatz
hinzufügen?“, vbYesNo, „Hinweis“
End If

Tabelle.MoveNext
Loop

ujk

Noch ein Hinweis
Hallo nochmal,

Du kannst einen Datensatz direkt über die FindFirst-Methode finden:

Tabelle.FindFirst (Hier die WHERE-Klausel ohne „WHERE“ einfügen)

If Tabelle.NoMatch = True Then
'Hat Access keinen gefunden
Else
'Doch
End If

ujk

hi ujk,

vielen Dank du hast mir echt weiter geholfen

Gruss Albert

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]