Is it possible for me to use VBA to sort records ??? 2

[e1k4l3cs]

Is it possible for me to use VBA to sort records ??? Eg: I need to sort our 3 different fields: ANumber, BNumber & CNumber. More priority will be given to "ANumber", "BNumber" then "CNumber". How should I go about programming it ??? Should I use VBA or ADO ???

A Million Thanks...

 

[cmmrfrds]

You can always sort in a query with the Order By clause.

You can sort an ADO recordset that you create with vba code.

What are you going to do with the data once it is sorted?

 

[Trainingjason]

There are various techniques in vba

me.orderby

this is in a table
gotocontrol("nameofcontrol&quot
docmd.runcommand accmdsortdescending

hope it helps

jason

 

[e1k4l3cs]

Ermm... I am sorting base on priority...

As for the "me.orderby" code, can I have a more complete example ??? Thx...

 

[Trainingjason]

In the following example I open the companies table and then sort by the service control, followed by another control.

Sub Docmd1()
DoCmd.OpenTable "Companies"
DoCmd.GoToControl "Service"
DoCmd.RunCommand acCmdSortDescending
DoCmd.GoToControl "DateEntered"
DoCmd.RunCommand acCmdSortAscending
End Sub

For the me.orderby

Create agrouped option group control and place as many options as necesssary. Give the value 1 2 3 etc

then type equivalent to the following code in the after update event

Private Sub grpSortBy_AfterUpdate()
'code to change the order of the records based on the
'selection in the option group grpSortBy
Select Case grpSortBy.Value
Case 1
'code to order by the CompanyName field
Me.OrderBy = "CompanyName"
Case 2
'code to order by the ContactName field
Me.OrderBy = "ContactName"
Case 3
'code to order by the City and CompanyName fields
Me.OrderBy = "City, CompanyName"
Case 4
'code to order by the Country, City and CompanyName fields
Me.OrderBy = "Country, City, CompanyName"
Case 5
'code to order by the Country, City and CompanyName fields
Me.OrderBy = "phone"

End Select

Regards


Jason

 

[e1k4l3cs]

I understood all ur other cases but not this

'code to order by the Country, City and CompanyName fields
Me.OrderBy = "phone"

Is it typo or wat ???

Thanks a lot...

Kelvin

 

[e1k4l3cs]

May I also know which object is the "grpSortBy" refering to ???

Thanks...

 

[Trainingjason]

The grpSortBy is an option group, and the phone is a typo

sorry

jason