Als Me.Requestor.Value = „Barry Sanders“ toen
DoCmd.SendObject acSendReport, „WOEmailReport“, acFormatPDF, „[email protected]“, de „Orde van het Werk“ & Valse Me.WOID,
DoCmd.Close acForm, de „Orden van het Werk“, acSaveNo
DoCmd.OpenForm het „Logboek van het Onderhoud“, acNormal
ElseIf Me.Requestor.Value = „Miguel Cabrera“ toen
DoCmd.SendObject acSendReport, „WOEmailReport“, acFormatPDF, „[email protected]“, de „Orde van het Werk“ & Valse Me.WOID,
DoCmd.Close acForm, de „Orden van het Werk“, acSaveNo
DoCmd.OpenForm het „Logboek van het Onderhoud“, acNormal
enz.….
Eind If |