Abfrage und Rückgabewert

[jhaustein]

Hallo Gemeinschaft,

ich frage eine Tabelle im Vorfeld ab, ob eine email Adresse vorhaben ist, wenn sie vorhanden ist, dann möchte ich gerne die id dazu haben

Tabelle sieht so aus
id__emailadresse__Name_Strasse

das ist meine Abfrage bisher

Code [Auswählen] Erweitern

If IsNull(DLookup("emailadresse", "Kunden", "emailadresse = '" & Email & "'")) Then ...
nun hier mein Problem, dass wenn Sie vorhanden ist, brauche ich die id

[DF6GL]

Hallo,

Code [Auswählen] Erweitern

Dim lngID As Long

lngID  = nz(DLookup("KundID", "Kunden", "emailadresse = '" & Email & "'"), 0)
bei lngID = 0 gibt es die EMail-Adresse nicht.

Bessere Benamsung von Objekten und Variablen wäre sinnvoll:

lngID  = nz(DLookup("KundID", "tblKunden", "emailadresse = '" & Me!EmailAdresse & "'"), 0)

[jhaustein]

genau -
dann lege ich die Adresse an -
+++-

Code [Auswählen] Erweitern

    Set db = CurrentDb
    Set rs = db.OpenRecordset("Kunden", dbOpenDynaset)
   
 
anlegen:
    rs.AddNew
   
    rs!Anrede = Anrede
    rs!Vorname = Vorname
    rs!Straße = Strasse
    rs!Name = Nachname
    rs!Postleitzahl = PLZ
    rs!Ort = Ort
    rs!Land = Land
    rs![Telefon 1] = Telefon
    rs!Email = Email
aber wenn sie existiert, dann brauche ich die id

[jhaustein]

das ist nun der Code

Code [Auswählen] Erweitern

lngID = Nz(DLookup("'Kunden-Nr'", "Kunden", "Email = '" & Email & "'"), 0)
wenn die Mailadresse nun vorhanden ist, dann bekomme ich Kunden-Nr ausgegeben

[jhaustein]

ah [] fehlte - lieben Dank - klappt prima

[DF6GL]

Hallo,

bestimmt schon 100000 Mal gesagt:


Vermeide dringend Sonder- und LeerZeichen bei Namen von selbstdefinierten Objekten und verzichte dringend auf reservierte Wörter als Namen!