If Me.package.Text = "" And IsNull(Me.orderedBy) Then
MsgBox ("Please choose a name from the Ordered By box")
Else
RunCommand acCmdSaveRecord
RunCommand acCmdSaveRecord
DoCmd.SendObject acSendReport, "receiving Query", acFormatRTF, Me.orderedBy.Column(1), , , "Package: " & package & " arrived at " & receivedDate, , False
DoCmd.Close acForm, "receiving", acSaveNo
End If
End Sub |