Se Me.package.Text = "" e IsNull (Me.orderedBy) allora
MsgBox (“scegliere prego un nome dal ordinato dalla scatola„)
Altrimenti
acCmdSaveRecord di RunCommand
acCmdSaveRecord di RunCommand
acSendReport di DoCmd.SendObject, “ricevendo domanda„, acFormatRTF, Me.orderedBy.Column (1), “pacchetto: „ & pacchetto & “arrivato a„ & receivedDate, falso
acForm di DoCmd.Close, “ricevendo„, acSaveNo
Concluder se
Il class= >
I dell'estremità Sub