extract form sortorder and apply to report

[xentaur]

Have developed a DB (Access 2000) which one user in my network seems to be using contrary to every other user. Much of it has to do with being able to sort reports according to any field within them.

The report data is presented in a form and, with the right-click menu, users can sort by any field. report is printed with a command button.

Is there a way to determine the form sort-order and then apply that sort order to the printed report via vba?

Cheers


xentaur.

 

[xentaur]

A little digging and I've found it myself.

declare public string variable
Public prorder as string

In form OnCurrent set event procedure:
prorder=me.orderby

in report OnOpen set event procedure:
me.orderby=prorder

I love it when a plan comes together.

Cheers

Xentaur.

 

[danvlas]

No need for the variable...

Private Sub Report_Open(Cancel As Integer)
Me.OrderBy = Forms("YourFormName&quot.OrderBy
Me.OrderByOn = Forms("YourFormName&quot.OrderByOn
End Sub

HTH




Daniel Vlas
Systems Consultant

http://www.geocities.com/danvlas/AutoMail.html