bende birşeyler yaptım ama sanırım ayrı ayrı siliyor yani kurallara uyan ALIŞLARI ve SATISLAR'ı bağımsız olarak siliyor, yani müşterinin alış ve satış kuralları uyanları birlikte silme işlemini yapamadım,
Sql bilgisi daha iyi olan bir hocamız bunu düzenlerse uygun olacaktır.
.RunSQL "DELETE ALISLAR.ALIS_TARIHI, [ALIS_FIYATI]*[AADEDI]-[AODENEN] FROM ALISLAR WHERE (((ALISLAR.ALIS_TARIHI) < Date() - 365) And (([ALIS_FIYATI]*[AADEDI]-[AODENEN]) <=0))"
.RunSQL "DELETE SATISLAR.SATIS_TARIHI, [SATIS_FIYATI]*[SADEDI]-[SODENEN] FROM SATISLAR WHERE (((SATISLAR.SATIS_TARIHI) < Date() - 365) And (([SATIS_FIYATI]*[SADEDI]-[SODENEN]) <=0))"
.RunSQL " DELETE MUSTERILER.KAYITTARIHI, nz((SELECT sum(b.[ALIS_FIYATI]*b.[AADEDI]-b.[AODENEN]) FROM MUSTERILER as a INNER JOIN ALISLAR as b ON a.MNO =b.mno where MUSTERILER.mno=b.mno),0) AS Deyim2, MUSTERILER.MNO FROM MUSTERILER WHERE (((MUSTERILER.KAYITTARIHI)<Date()-365) AND ((nz((SELECT sum(b.[ALIS_FIYATI]* b.[AADEDI]-b.[AODENEN]) FROM MUSTERILER as a INNER JOIN ALISLAR as b ON a.MNO =b.mno where MUSTERILER.mno=b.mno),0))<=0));"
.RunSQL " DELETE MUSTERILER.KAYITTARIHI, nz((SELECT sum(b.[SATIS_FIYATI]*b.[SADEDI]-b.[SODENEN]) FROM MUSTERILER as a INNER JOIN SATISLAR as b ON a.MNO =b.mno where MUSTERILER.mno=b.mno),0) AS Deyim2, MUSTERILER.MNO FROM MUSTERILER WHERE (((MUSTERILER.KAYITTARIHI)<Date()-365) AND ((nz((SELECT sum(b.[SATIS_FIYATI]* b.[SADEDI]-b.[SODENEN]) FROM MUSTERILER as a INNER JOIN SATISLAR as b ON a.MNO =b.mno where MUSTERILER.mno=b.mno),0))<=0));"