INSERT INTO tblProjectScheduleEv ( ProjectPracticeID, EvTypeID, EvDate, EvAccount, EvBFvalue, EvBFtypeID, EvBFDate, RemLetter, RemLetterGenDate, BatchID )
SELECT tblProjectPractices.ProjectPracticeID, [forms]![frmScheduler]![EvTypeID] AS EvTypeID, [forms]![frmScheduler]![EvDate] AS EvDate, [forms]![frmScheduler]![EvAccount] AS EvAccount, [forms]![frmScheduler]![EvBFValue] AS EvBFValue, [forms]![frmScheduler]![EvBFTypeID] AS EvBFTypeID, [forms]![frmScheduler]![EvBFDate] AS EvBFDate, [forms]![frmScheduler]![TogGenLetter] AS RemLetter, IIf([forms]![frmScheduler]![TogGenLetter]=-1,Date(),"") AS LetterGenDate, DMax("BatchID","tblBatchID") AS BatchID
FROM tblProjectPractices
WHERE (((tblProjectPractices.ProjectPracticeID) In (SELECT tblProjectPractices.ProjectPracticeID
FROM tblProjectPatients INNER JOIN tblProjectPractices ON (tblProjectPatients.ProjectID = tblProjectPractices.ProjectID) AND (tblProjectPatients.PracticeEID = tblProjectPractices.PracticeEID)
WHERE (((tblProjectPractices.ProjectID)=[forms]![frmScheduler]![txtProjects]) AND ((tblProjectPatients.[No])=-1)) OR (((tblProjectPractices.ProjectID)=[forms]![frmScheduler]![txtProjects]) AND ((tblProjectPatients.InD)=-1))
GROUP BY tblProjectPractices.ProjectPracticeID;) And (tblProjectPractices.ProjectPracticeID) Not In (SELECT tblProjectScheduleEv.ProjectPracticeID
FROM (tblProjectPractices INNER JOIN tblProjects ON tblProjectPractices.ProjectID = tblProjects.ProjectID) INNER JOIN tblProjectScheduleEv ON tblProjectPractices.ProjectPracticeID = tblProjectScheduleEv.ProjectPracticeID
WHERE (((tblProjectScheduleEv.EvTypeID)=1) AND ((tblProjects.ProjectStatus)=0));)) AND ((tblProjectPractices.ProjectID)=[forms]![frmScheduler]![txtProjects]));