formulardaten aus haupt- und verknüpftem unterformular als mail versenden

[Radi1311]

hallo,

sehr gerne bräuchte ich nochmals eure unterstützung zu folgendem problem:
ich habe ein hauptformular mit zeichnungsnummern; ebenso ein verknüpftes unterformular, in dem die einzelnen zeichnungsstände (sortiert nach zeichnungsdatum) gelistet sind.
nun möchte ich mit einem button eine mail verschicken, die:
aus dem hauptformular die zeichnungsnummer,
aus dem unterformular nur den jüngsten zeichnungsstand
und einen vorgefertigten text mit zeilenumbrüchen enthält.
schwierigkeiten bereitet mir mit diesem befehl:
"DoCmd.SendObject acSendNoObject....."
die einbindung der textfelder aus zwei unterschiedlichen formularen (haupt- und unterformular)
(setze ich den button ins unterformular, krieg ich die textfelder aus dem hauptformular nicht rein
setze ich den button ins hauptformular, krieg ich die textfelder aus dem unterformular nicht rein)
und zeilenumbrüche im vorgefertigten text
könnt ihr mir helfen?

[DF6GL]

Hallo,

siehe hier: http://www.donkarl.com/?FAQ4.2   bzgl. Zugriff auf Steuerelement im Unterformular.

Bzgl. "jüngster"  Ausgabezustand: 

Erstelle eine Public_Funktion in einem Standardmodul ähnlich:

Code [Auswählen] Erweitern

Public Function GetJZz (ZeichNrID as Long) 
GetJZz= Currentdb.Openrecordset(" Select top 1 Zeichnungsstand from tblZeichnungsstaende where ZeichnungNrID_f  = " & ZeichNrID & " order by Zeichnungsdatum desc", dbOpensnapshot )(0)
End Function


Das Zusammensetzen des Message-Parameters sollte damit kein Problem darstellen.

[Radi1311]

hallo DF6GL,
danke für deine rasche antwort; löst aber leider nicht mein problem :-(
verknüpft sind beide formulare mit "ID_Artikel"; im HF als AutoWert
momentan ist der button um Ufo mit diesem code:
Private Sub Befehl47_Click()
Dim stZG_Datum As String, stLieferant As String, stZeichnung As String
stZeichnung = Me!ZgNr
stZG_Datum = Me!ZG_Datum
stLieferant = Me!Lieferant
DoCmd.SendObject acSendNoObject, "subfrmZVerteiler", , stLieferant, , , "aktualisierte Zeichnung vom " & stZG_Datum, "Sehr geehrte Damen und Herren, in der Anlage finden Sie die Zeichnung vom " & stZG_Datum, True
End Sub
im UFo "subfrmZVerteiler" stehen "Me!Lieferant" & "Me!ZgNr"
im HF "frmZVerteiler" ist "Me!ZgNr". und das krieg ich nicht in meine mail :-(

[Radi1311]

es funktioniert jetzt :-)
danke für deine hilfe!!
nur noch eine frage:
wie kriege ich in der generierten mail mit diesem text einen zeilenumbruch hinter den "..Damen und Herren," hin?
DoCmd.SendObject acSendNoObject, "subfrmZVerteiler", , stLieferant, , , "aktualisierte Zeichnung vom " & stZG_Datum, "Sehr geehrte Damen und Herren, in der Anlage finden Sie die Zeichnung vom " & stZG_Datum, True

[Beaker s.a.]

Code [Auswählen] Erweitern

"Sehr geehrte Damen und Herren," & vbcrlf & "in der ... "

[Radi1311]

  * D * A * N * K * E *