Als Me.package.Text = "" en IsNull (Me.orderedBy) toen
MsgBox („te kiezen gelieve een naam van Opdracht gegeven tot door doos“)
Anders
RunCommand acCmdSaveRecord
RunCommand acCmdSaveRecord
DoCmd.SendObject acSendReport, „ontvangend Vraag“, acFormatRTF, Me.orderedBy.Column (1), „Pakket: “ & pakket & „aangekomen bij“ & receivedDate, Vals
DoCmd.Close acForm, „ontvangend“, acSaveNo
Eind als
Het eind Sub |