E-Mail Empfänger aus Abfrage

[kruemel2302]

Hi Leite ich habe folgenden Code hinter einem Button im Formular:
Code:

Code [Auswählen] Erweitern


Private Sub Befehl_Bericht_senden_Click()
DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunMacro "Makro_LSB"
On Error GoTo Err_Befehl_Bericht_senden_Click

   Dim stDocName As String

   stDocName = "rpt_Sanktion_LG"
   DoCmd.SendObject acReport, stDocName, acFormatSNP, , , , "Sanktion", "Ich bitte um beachtung der angehängten Datei"
   
   
Exit_Befehl_Bericht_senden_Click:
   Exit Sub

Err_Befehl_Bericht_senden_Click:
   MsgBox Err.Description
   Resume Exit_Befehl_Bericht_senden_Click
   
End Sub


ich wollte gern, dass der Mail Empfänger anhand der Abfrage "qry_Mail_LSB" Spalte "Mail" eingefügt wird. Wie kann ich das realisieren?

Die Abfrage in SQL:

Code [Auswählen] Erweitern

SELECT tabKontakte.Mail
FROM tabKontakte
WHERE ((([Formulare]![Sanktionen]![LSB])=[tabKontakte]![Nachname_Vorname]));

[DF6GL]

Hallo,

etwa so:


Dim strMA as String
.
.

strMA= nz(Dlookup("Mail","tabKontakte","[Nachname_Vorname] = '" & Me!LSB & "'"),"Missing MailAddress")
DoCmd.SendObject acReport, stDocName, acFormatSNP,  strMA , , , "Sanktion", "Ich bitte um Beachtung der angehängten Datei"
.
.

[kruemel2302]

vielen Dank