Office 2007 Professional Sorting Nav Pane Objects

I've recently had some questions from users who used to sort their DBC by the description field and wanted to be able to do the same thing in the 2007 navigation pane. If you use this scenario,Cheap Windows 7, and you've tried in 2007,Office 2007 Professional, you'll know that the navigation pane doesn't have a sort by the description field. One way to work around this is to create a query that does it for you. Here's a sample that lists the user Query objects in the database along with their descriptions. Note because the Description property is not stored as a field in MSysObjects,Microsoft Office 2007 Key, you need some accompanying VBA logic to retrieve the description property from the property bag. First,Office Professional, add this function in VBA:Public Function stDesc(stQryName As String) As String
On Error Resume Next
stDesc = CurrentDb.QueryDefs(stQryName).Properties("Descrip tion")
End FunctionThen run this query:SELECT MSysObjects.Name,Windows 7 Pro Key, stDesc([Name]) AS Description
FROM MSysObjects
WHERE (((MSysObjects.Name) Not Like "~*") AND ((MSysObjects.Type)=5))
ORDER BY stDesc([Name]);
<div