Si Me.package.Text = "" e IsNull (Me.orderedBy) entonces
MsgBox (“elegir por favor un nombre del pedido por la caja”)
acCmdSaveRecord de RunCommand
acCmdSaveRecord de RunCommand
acSendReport de DoCmd.SendObject, “recibiendo pregunta”, acFormatRTF, Me.orderedBy.Column (1), “paquete: ” y paquete y “llegado” y receivedDate, falso
acForm de DoCmd.Close, “recibiendo”, acSaveNo
Terminar si
El class= >
I del extremo Sub