Subform OrderBy issue

[AbbottF]

I have a subform in a tab on my main form. The filter works properly...I see all the records I expect. But the OrderBy on the date field does not work, the rows are shown in ascending primary key sequence. The code follows ..
Any suggestions?

Private Sub Form_Load()
    If Me.Recordset.BOF <> Me.Recordset.EOF Then
        Me.filter = "ContactID = Contact.ID And CategoryIsFinancial = True"
        Me.OrderBy = "ActiveDate DESC"
    End If
End Sub

 

[pbaldy]

I think you need this at the end:

Me.OrderByOn = True

 

[AbbottF]

Paul, I tried that, but it still displays in primary key order. It did seem like an obvious fix.
Thanks
Abbott

 

[pbaldy]

Is the filter applying (is the code running at all)? Can you post the db here?

 

[AbbottF]

Paul,
I changed sort sequence of the query and that fixed everything.
Thanks

 

[pbaldy]

No problem, glad you got it working.