Ändern der E-Mail-Adresse von E-Mail-Empfängern bedingt mit vba

Question

Ich habe eine Schaltfläche in meinem Access-Teilformular, die je nach Wert in einem Kombinationsfeld eine neue E-Mail basierend auf einer bestimmten Vorlage erstellt. Die meisten dieser Vorlagen haben bereits eine vorhandene E-Mail-Adresse. Dies muss in den meisten Fällen auf die E-Mail-Adresse im Elternformular des Unterformulars ersetzt werden (und das wird mit dem aktuellen Code getan), aber wenn der Wert des Kombinationsfelds ist, sagen wir 'x' oder 'y' Dann sollte eine zweite E-Mail in ein zweites Formular eingefügt werden, in dem das Hauptformular und das zweite Formular verknüpfte Felder enthalten. Der Code, den ich bisher haben:

If Me![cboEmail].Value = "Your patient Initial" Then 
oMail.To = Nz(DLookup("[strEmail]", "tblAddress", "[longDoctorID] = " & Me.Parent!longDoctorID)) 
ElseIf Me![cboEmail].Value = "Follow Up of your patient" Then 
oMail.To = Nz(DLookup("[strEmail]", "tblAddress", "[longDoctorID] = " & Me.Parent!longDoctorID)) 
Else 
oMail.To = Me.Parent![strEmailAddress].Value 
End If 

Was nicht ist die ersten beiden Bedingungen nicht funktioniert, wo der Wert „Ihr Patient initial“ ist oder wenn es „Up Ihrem Patienten Follow“ Jede Hilfe wird werde geschätzt!

Answer 1

[longDoctorID] = " & Me.Parent!longDoctorID) 

Ist dies eine Zeichenfolge oder eine ganze Zahl? Wenn es eine Zeichenfolge ist, muss es zwei einzelne enthalten. Zitate

Ich verstehe nicht den Grund für Nz, wenn Sie nicht den leeren Wert angegeben haben? Sie versuchen dann, um E-Mail zu senden „“

Debug.print Me![cboEmail].Value 

Was es Ihnen nicht geben?

Answer 2

Es tut mir leid, Jungs, Sie hatten Recht mit der Frage, was nicht funktioniert? Weil es Code funktionierte! Als ich die Debug.Print-Zeile eingab, gab es einen leeren Wert, da in der ursprünglichen Tabelle kein Wert war und daher die Standard-E-Mail-Adresse angegeben wurde. Entschuldigung, dass du deine Zeit verbraucht hast. Dieser originale Code funktioniert. Danke, dass Sie sich mit dem Problem befasst haben.