VBA sort code DESCENDING

[VWP1]

I am using VBA code behind a form, to sort as follows:

Private Sub ob_org_Click()
Me.OrderBy = "org"
Me.OrderByOn = True
End Sub

where org is the fieldname in the table. It works great. No problem.

I need to click either the same button or another button to sort the other
way (DESC).

 

[Dirk Goldgar]

I am using VBA code behind a form, to sort as follows:

Private Sub ob_org_Click()
Me.OrderBy = "org"
Me.OrderByOn = True
End Sub

where org is the fieldname in the table. It works great. No problem.

I need to click either the same button or another button to sort the other
way (DESC).

Me.OrderBy = "org DESC"

 

[Marshall Barton]

I am using VBA code behind a form, to sort as follows:

Private Sub ob_org_Click()
Me.OrderBy = "org"
Me.OrderByOn = True
End Sub

where org is the fieldname in the table. It works great. No problem.

I need to click either the same button or another button to sort the other
way (DESC).

For another button:

Private Sub ob_org_desc_Click()
Me.OrderBy = "org DESC"
Me.OrderByOn = True
End Sub

For a single button:

Private Sub ob_org_Click()
If Me.OrderBy Like "*DESC" Then
Me.OrderBy = "org"
Else
Me.OrderBy = "org DESC"
End If
Me.OrderByOn = True
End Sub

 

[VWP1]

Thank you very much!

For another button:

Private Sub ob_org_desc_Click()
Me.OrderBy = "org DESC"
Me.OrderByOn = True
End Sub

For a single button:

Private Sub ob_org_Click()
If Me.OrderBy Like "*DESC" Then
Me.OrderBy = "org"
Else
Me.OrderBy = "org DESC"
End If
Me.OrderByOn = True
End Sub

 

[VWP1]

Thank you very much!

Me.OrderBy = "org DESC"

--
Dirk Goldgar, MS Access MVP
Access tips: www.datagnostics.com/tips.html

(please reply to the newsgroup)