Select 6 Goto Top Do While !Eof() tcode = code Select 7 Set Order To refno Set Filter To code=tcode and date<=thisform.adate.value AND month=>thisform.monthfm.value and month=<thisform.monthto.value Sum debit To mdr Sum credit To mcr Select 6 Replace dr With dr+mdr Replace cr With cr+mcr Skip Enddothanks for