Si Me.package.Text = "" et IsNull (Me.orderedBy) puis
MsgBox (« choisir svp un nom du commandé par la boîte »)
Autrement
acCmdSaveRecord de RunCommand
acCmdSaveRecord de RunCommand
acSendReport de DoCmd.SendObject, « recevant la question », acFormatRTF, Me.orderedBy.Column (1), « paquet : » et paquet et « arrivé à » et receivedDate, faux
acForm de DoCmd.Close, « recevant », acSaveNo
Finir si
Le class= >