Private Funktion TemplateComparison (WorkFlowTemplate als ganze Zahl) als DAO.Recordset
Auf Störung Goto- ErrorHandle
Schwaches qry1SQL als Schnur
qry1SQL = „AUSERWÄHLTES tblWorkFlowTemplates.MasterProcessID, tblWorkFlowAssignmentsDetail.WorkFlowAssignmentID, tblWorkFlowTemplates.ProcessSequence,“ u. _
„tblWorkFlowTemplates.TemplateMasterID, tblWorkFlowAssignmentsDetail.Completed“ u. _
„Vom INNEREN tblWorkFlowAssignmentsDetail tblWorkFlowTemplates AUF“ u. _ sich ANSCHLIESSEN
„tblWorkFlowAssignmentsDetail.WorkFlowProcessID = tblWorkFlowTemplates.WorkFlowProcessID“ u. _
„, WO tblWorkFlowAssignmentsDetail.WorkFlowAssignmentID =“ u. mWorkFlowAssignmentID u. _
„AUFTRAG DURCH tblWorkFlowTemplates.ProcessSequence; “
Schwaches qry1 als QueryDef
Einstellen qry1 = CurrentDb.CreateQueryDef („CurrentTemplate“, qry1SQL)
qry2SQL als Schnur verdunkeln
qry2SQL = „AUSERWÄHLTES tblWorkFlowTemplates.MasterProcessID, tblWorkFlowTemplates.ProcessSequence,“ u. _
„tblWorkFlowTemplates.TemplateMasterID, tblWorkFlowTemplates.WorkFlowProcessID“ u. _
„Von den tblWorkFlowTemplates“ u. vom _
„, WO tblWorkFlowTemplates.TemplateMasterID =“ u. WorkFlowTemplate u. _
„AUFTRAG DURCH tblWorkFlowTemplates.ProcessSequence; “
Einstellen qry2 = CurrentDb.CreateQueryDef („NewTemplate“, qry2SQL)
templateSQL als Schnur verdunkeln
templateSQL = „AUSERWÄHLTES NewTemplate.ProcessSequence, NewTemplate.MasterProcessID, NewTemplate.WorkFlowProcessID“ u. _
„Vom CurrentTemplate RECHT NewTemplate AUF VERBINDEN CurrentTemplate.MasterProcessID =“ u. _
„NewTemplate.MasterProcessID“ u. _
„WO (((CurrentTemplate.MasterProcessID) ist ungültig),“ u. _
„ODER ((CurrentTemplate.Completed) = falsch))“ u. _
„AUFTRAG DURCH NewTemplate.ProcessSequence“
Schwaches rst als DAO.Recordset
Rst = CurrentDb.OpenRecordset (templateSQL) einstellen
TemplateComparison = rst einstellen
Rst einstellen = nichts
CurrentDb.QueryDefs.Delete qry1.Name
CurrentDb.QueryDefs.Delete qry2.Name
ExitHandle:
Funktion herausnehmen
ErrorHandle:
MsgBox Err.Description
DoCmd.SetWarnings (zutreffend)
Zusammenfassung ExitHandle
Enden-Funktion
|