Hi Leite ich habe folgenden Code hinter einem Button im Formular:
Code:
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:
SELECT tabKontakte.Mail
FROM tabKontakte
WHERE ((([Formulare]![Sanktionen]![LSB])=[tabKontakte]![Nachname_Vorname]));
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"
.
.
vielen Dank :)