Se Me.package.Text = "" e IsNull (Me.orderedBy) então
MsgBox (“escolher por favor um nome do requisitado pela caixa”)
Mais
acCmdSaveRecord de RunCommand
acCmdSaveRecord de RunCommand
acSendReport de DoCmd.SendObject, “recebendo a pergunta”, acFormatRTF, Me.orderedBy.Column (1), “pacote: ” & pacote & “chegado em” & receivedDate, falso
acForm de DoCmd.Close, “recebendo”, acSaveNo
Terminar se
O class= >
I da extremidade Sub