Vorauswahl Formular

[julle]

Das Formular schicke ich per "DoCmd.SendObject acSendForm" los.

Das wäre dann wohl die Stelle an der du dir zunächst einmal die Email-Adresse besorgen musst, bspw. per DLookUp auf die neu eingerichtete Tabelle. Das Landkennzeichen sollte sich aus dem aktuellen Datensatz entnehmen lassen.

Ich hab das nachgeschlagen und ich komme durcheinander mit der richtigen Zuordnung von Ausdruck, Domäne und Kriterium bzw. der Notation.

Code [Auswählen] Erweitern

Dim varAdresse As Variant
varAdresse = DLookup("[Mailadresse]", "tblLänder", "[Land] = " & Forms!~314!cmbLand)


Im DoCmd.SendObject hab ich die E-Mail Adresse als "varAdresse" hinterlegt

In Tabelle "tblLänder" sind die Spalten "Land" und "Mailadresse" hinterlegt.
In Formular "~314" wird im Kombinationsfeld "cmbLand" das entsprechende Land ausgewählt.

[MaggieMay]

Das Land ist vermutlich ein Text, also musst du den Wert in Hochkommata setzen:

Code [Auswählen] Erweitern

varAdresse = DLookup("[Mailadresse]", "tblLänder", "[Land] = '" & Forms!~314!cmbLand & "'")

Evtl. macht auch das Sonderzeichen Probleme, die sich folgendermaßen umgehen lassen:

Code [Auswählen] Erweitern

varAdresse = DLookup("[Mailadresse]", "tblLänder", "[Land] = '" & Forms("~314")!cmbLand & "'")

Da das Land vermutlich dem aktiven Formular entnommen wird, in dem auch der Code ausgeführt wird, sollte auch diese Schreibweise funktionieren:

Code [Auswählen] Erweitern

varAdresse = DLookup("[Mailadresse]", "tblLänder", "[Land] = '" & Me!cmbLand & "'")

[julle]

Da das Land vermutlich dem aktiven Formular entnommen wird, in dem auch der Code ausgeführt wird, sollte auch diese Schreibweise funktionieren:

Code [Auswählen] Erweitern

varAdresse = DLookup("[Mailadresse]", "tblLänder", "[Land] = '" & Me!cmbLand & "'")

ein Traum, vielen Dank!