order by not working

[mlrucci]

Good morning,
I have a continuous form that has multiple columns. The end user needs the ability to sort asc and desc in each of the columns. This is not possible without code on a continuous form. I have built command buttons to allow this in each of the columns. Works great on load of the form. There is the ability to use parameter to filter needed items based on a control in the form. (works great) When the form opens, I have set the default of the form "Me.OrderBy =PageID asc". The command code for each of the sort buttons is set to (based on the field I want to sort)

Private Sub cmdAsc2_Click()
Me.OrderBy = "MCFieldName ASC"
End Sub

and works great until I try and clear the parameter in the control using

Private Sub cmdClearFilter_Click()

txtFilterName = Null
Me.RecordSource = "qryMgtMCField_Page"
'Me.OrderBy = "PageID ASC"
End Sub

When I attempt to then go back and use the sort command buttons, they do not work. The property sheet shows that the sort should be with the corresponding field, but the command does not finish the execution by sorting (Orderby). Thoughts?

[Gicu]

You might need to show us some more of the code but if you want to remove the filter is always better to not only removing the value from the textbox and resetting the recordsource, but also turning the filter off in VBA:

Me.txtFilterName = Null
Me.Filter=""
Me.FilterOn=False

Can you show us all the code for the sort buttons, I assume that you use toggle buttons and change their caption depending if the sort they apply is ascending or descending.

Cheers,

[mlrucci]

ContinuousFormSort.zip

Here is an example. I am not using toggle buttons, but cmd buttons

[Gicu]

Please check this updated file.

Cheers,

[mlrucci]

Gicu, thank you very much. Can you please explain why I need to refresh after clicking the asc and desc buttons. It works before the clearing of filter without the refresh. I understand the other adjustments in the code, but not that one. Trying to grow. Appreciate you input and my insight very much

[June7]

If it works satisfactorily without Refresh, remove it.

[Gicu]

Or you can replace it with Me.OrderByOn=True to apply the new sort:
https://learn.microsoft.com/en-us/of...form-or-report

Cheers,

[Gicu]

Here is something that might make it easier for you if you want to do this on multiple forms\columns:
https://www.tek-tips.com/viewthread.cfm?qid=1750380
Cheers,

[CJ_London]

This is not possible without code on a continuous form

not quite true, you can use the shortcut menu on the textboxes (unless you have disabled shortcut menus)

[mlrucci]

oooo nice. Thank you