If Me.Requestor.Value = "Barry Sanders" Then
DoCmd.SendObject acSendReport, "WOEmailReport", acFormatPDF, "[email protected]", , , "Work Order " & Me.WOID, , False
DoCmd.Close acForm, "Work Orders", acSaveNo
DoCmd.OpenForm "Maintenance Log", acNormal
ElseIf Me.Requestor.Value = "Miguel Cabrera" Then
DoCmd.SendObject acSendReport, "WOEmailReport", acFormatPDF, "[email protected]", , , "Work Order " & Me.WOID, , False
DoCmd.Close acForm, "Work Orders", acSaveNo
DoCmd.OpenForm "Maintenance Log", acNormal
etc....
End If |