Wenn Me.package.Text = "" und IsNull (Me.orderedBy) dann
MsgBox („einen Namen von bitte wählen bestellt durch Kasten“)
Sonst
RunCommand acCmdSaveRecord
RunCommand acCmdSaveRecord
DoCmd.SendObject acSendReport, „, Frage empfangend“, acFormatRTF, Me.orderedBy.Column (1), „Paket: “ u. Paket u. „angekommen in“ u. receivedDate, falsch
DoCmd.Close acForm, „empfangend“, acSaveNo
Beenden wenn
Ende Sub |