Not to dance around the issue, but I use two command buttons for this
procedure. I size them exactly the same and place one on top of the other.
I set the visible property of the descending button to false. Then use the
on click event of the buttons as follows. I didn't design the code and
can't remember where I got it so I can't give credit where it's due. Hope
it helps!
Private Sub cmdSortAscTitle_Click()
On Error GoTo cmdSortAscTitle_Click_Err
DoCmd.Echo False, "Sorting records ..."
Screen.ActiveForm.AllowAdditions = False
DoCmd.GoToControl "Title"
DoCmd.RunCommand acCmdSortAscending
Me![cmdSortDescTitle].Visible = True
Me![cmdSortDescTitle].SetFocus
Me![cmdSortAscTitle].Visible = False
DoCmd.Echo True, ""
Exit Sub
cmdSortAscTitle_Click_Exit:
DoCmd.GoToRecord , , acFirst
Exit Sub
cmdSortAscTitle_Click_Err:
Resume cmdSortAscTitle_Click_Exit
End Sub
Private Sub cmdSortDescTitle_Click()
On Error GoTo cmdSortDescTitle_Click_Err
DoCmd.Echo False, "Sorting records ..."
Screen.ActiveForm.AllowAdditions = False
DoCmd.GoToControl "Title"
DoCmd.RunCommand acCmdSortDescending
Me![cmdSortAscTitle].Visible = True
Me![cmdSortAscTitle].SetFocus
Me![cmdSortDescTitle].Visible = False
DoCmd.Echo True, ""
Exit Sub
cmdSortDescTitle_Click_Exit:
DoCmd.GoToRecord , , acFirst
Exit Sub
cmdSortDescTitle_Click_Err:
Resume cmdSortDescTitle_Click_Exit
End Sub
--
Reggie
www.smittysinet.com
----------
"Aravind" <solaris_nite@hotmail.com> wrote in message
news:6174ca57.0405281927.2cea9844@posting.google.c om...[color=blue]
> Hi folks.
>
> I have a form, frmHistory, which has 4 command buttons: Sort Title
> (cmdSortTitle), Sort Name (cmdSortName), Due Today (cmdDueToday), and
> Due List (cmdDueList).
>
> Sort Title and Sort Name uses VBA code, and sorts the form either
> ascending or descending, by title and by name respectively.
>
> Due Today and Due List uses macros, and filters the form to display
> records of books that are due on the current date and the entire list
> of due books respectively.
>
> The reason why I used command buttons to sort the form instead of
> toggle buttons is that the toggle buttons would only go through a
> "loop" once i.e. I can only click it twice to sort the form ascending
> and descending, then it wouldn't work anymore.
>
> The problem is that, while the sort buttons work fine, it doesn't work
> once I used either one of or both of the filter buttons. Does anyone
> know why? I have included the coding for the buttons below. Thanks for
> your help.
>
> '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''
> Private Sub Form_Open(Cancel As Integer)
>
> Me.OrderBy = ""
> Me.OrderByOn = True
>
> End Sub
>
> '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''
> Private Sub cmdSortTitle_Click()
>
> Static x
> x = x + 1
> If x > 2 Then x = 1
>
> Select Case x:
> Case 1: Me.OrderBy = "Title"
> Case 2: Me.OrderBy = "Title DESC"
> End Select
>
> End Sub
>
> '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''
> Private Sub cmdSortName_Click()
>
> Static x
> x = x + 1
> If x > 2 Then x = 1
>
> Select Case x:
> Case 1: Me.OrderBy = "MemName"
> Case 2: Me.OrderBy = "MemName DESC"
> End Select
>
> End Sub
>
> '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''
> cmdDueToday: OpenForm
> Form Name: frmHistory
> Where Condition: ([Return] Is Null) And ([Due]=Date())
>
> cmdDueList: OpenForm
> Form Name: frmHistory
> Where Condition: ([Return] Is Null)
>
> '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''[/color]
comand buttons not sorting after filtering form 
