Jeżeli Me.package.Text = "" I IsNull (Me.orderedBy) Wtedy
MsgBox ("Zadawalać wybierać imię od the Rozkazywać Pudełko")
Inny
RunCommand acCmdSaveRecord
RunCommand acCmdSaveRecord
DoCmd.SendObject acSendReport, "otrzymywać Zapytanie", acFormatRTF, Me.orderedBy.Column (1), "Pakunek: " & pakunek & "przyjeżdżać przy" & receivedDate, Fałszywy
DoCmd.Close acForm, "otrzymywać", acSaveNo
Kończyć Jeżeli
Końcówka Sub |