microsoft access error the command or action isn't available right now

[ahuffman24]

Hi,

I am using Microsoft Access 2016. I have a table called "Customer_Order_Info_Table" and a continuous form called "Inspection_Selection_Form1" that displays all the data from the Customer_Order_Info_Table. The Inspection_Selection_Form1 is shown below:



I am trying to add two combo boxes to the Inspection_Selection_Form1; one combo box (the Search By combo box shown in the upper right corner of the above picture) will allow the user to select a field from the Customer_Order_Info_Table to filter by, and the other combo box (the Sort combo box shown in the upper right corner of the picture) will allow the user to choose to sort the field by ascending or descending order.


I have set up the macros for the sort box to sort by ascending or descending order (As shown in another picture below):



However, I am receiving this error when I try to filter and sort my form:



What could be causing this error?

[Minty]

I think (and I don't use macro's so I may be out here), you appear to be trying to sort the combo boxes values, which you can't do!.

You need to simply apply the order you want to the form not the combo. In VBA (which is way easier to follow) it would be something like (aircode untested)

If Me.SortCombo = "Ascending" Then 
  
       Me.OrderBy = "[YourField] Asc"

Else 

       Me.OrderBy = "[YourField] Desc"

End If

Me.OrderByOn = True

[ahuffman24]

Where do I go to type in that code?

[Minty]

Click on the after update event of the combo and select Event Procedure in drop down box by the .... at the end.

It should open the VBA editor, and should create something that looks like

Private Sub SortCombo_AfterUpdate()

End Sub

Put the code in between those two statements. You have just made you first VBA code programming!

Simples

[ahuffman24]

Thanks! What does "YourField" represent?

[Minty]

Ok to break it down a bit for future reference.

Me. This references the current form object.
So Me.OrderBy is the sort order property the current form.

The "[YourField] Asc" bit you need to replace by the field name you want to sort by.
So if it was your customer name field (and get used to naming things without spaces or special characters please - you'll thank us in the long run)

Me.OrderBy = "[Customer Name] Desc"

[ahuffman24]

Thank you!