Help With Sorting Records

[gator9]

Hi everyone, I have a records access field that tells me the date a record was last worked. I have it currently setup so that when I click a button it filters the records that are thirty days from the date last worked and shows those records. I would like to be able to filter the records like I have them but I wont to have it sort the records by the largest amount and by the date last worked. After it does that I want it to only show 25 records for that date, then residual the rest buy one day. My gold is to make sure I only have 25 records a day to work at the most and have the rest reschedule but always sort by date and largest account so that the oldest, and most money accounts get worked first.

Private Sub DailyTask_Click()
Me.Filter = "(((Projects.RecordAccessed)<Date()-30)) And (((Projects.SuitArchive)=No)) And (((Projects.FiledSuit)=No)) And (((Projects.UnableToCollect)=No)) And (((Projects.AddFee)=No)) And (((Projects.Chapter13)=No)) And (((Projects.Chapter11)=No)) And (((Projects.ReturnedMail)=No)) And (((Projects.SCMoreInfo)=No))"
Me.FilterOn = True
End Sub


Sincerely,

Charles

http://gator9.com

 

[gator9]

Private Sub DailyTask_Click()
Me.Filter = "(((Projects.RecordAccessed)<Date()-30))"
Me.FilterOn = True
End Sub

Here is a better cod to work with

Sincerely,

Charles

http://gator9.com