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
If IsNull(DLookup("emailadresse", "Kunden", "emailadresse = '" & Email & "'")) Then ...
nun hier mein Problem, dass wenn Sie vorhanden ist, brauche ich die id
Hallo,
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)
genau -
dann lege ich die Adresse an -
+++- 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
das ist nun der Code
lngID = Nz(DLookup("'Kunden-Nr'", "Kunden", "Email = '" & Email & "'"), 0)
wenn die Mailadresse nun vorhanden ist, dann bekomme ich Kunden-Nr ausgegeben
ah [] fehlte - lieben Dank - klappt prima
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!