Order the results of a combo box filter help needed

[arthur-e]

I use a combobox to limit the records shown on a form with an event
procedure:
Private Sub Combo2684_AfterUpdate()
If Me![Combo2684] = "<All>" Then
DoCmd.ShowAllRecords
Else
DoCmd.ApplyFilter , "[PI Last Name] =
Forms![Grant3AEmodified]![combo2684]"
End If

End Sub

I'd like those records Sorted (ordered by) a field on the form called
[End Date]

I just can't get it to work - HELP Please

Where do I add the order by ...
[qryGRANTS-AWARDED-AE].[grants - awarded].[END DATE] DESC
Thanks so much in advance
ArthurE

-warning e-mail address altered- arthureNOSPACE@

[Salad]

arthur-e wrote:

I use a combobox to limit the records shown on a form with an event
procedure:
Private Sub Combo2684_AfterUpdate()
If Me![Combo2684] = "<All>" Then
DoCmd.ShowAllRecords
Else
DoCmd.ApplyFilter , "[PI Last Name] =
Forms![Grant3AEmodified]![combo2684]"
End If

End Sub

I'd like those records Sorted (ordered by) a field on the form called
[End Date]

I just can't get it to work - HELP Please

Where do I add the order by ...
[qryGRANTS-AWARDED-AE].[grants - awarded].[END DATE] DESC
Thanks so much in advance
ArthurE

-warning e-mail address altered- arthureNOSPACE@

You can use OrderBy/On. Ex:
Me.OrderBy = "[END DATE] DESC"
Me.OrderByOn = True

Check OrderBy in help.

[arthur-e]

Great, Thanks - I was using Order By
..... Arthur
Salad <oi*@vinegar.com> wrote:

arthur-e wrote:

I use a combobox to limit the records shown on a form with an event
procedure:
Private Sub Combo2684_AfterUpdate()
If Me![Combo2684] = "<All>" Then
DoCmd.ShowAllRecords
Else
DoCmd.ApplyFilter , "[PI Last Name] =
Forms![Grant3AEmodified]![combo2684]"
End If

End Sub

I'd like those records Sorted (ordered by) a field on the form called
[End Date]

I just can't get it to work - HELP Please

Where do I add the order by ...
[qryGRANTS-AWARDED-AE].[grants - awarded].[END DATE] DESC
Thanks so much in advance
ArthurE

-warning e-mail address altered- arthureNOSPACE@

You can use OrderBy/On. Ex:
Me.OrderBy = "[END DATE] DESC"
Me.OrderByOn = True

Check OrderBy in help.

-warning e-mail address altered- arthureNOSPACE@