Using OrderBy to dynamically change sort order in reports

[fecket]

The following code is used in my db to change the sort order of the
report to various fields. I want to take this one stage further and
use maybe a Case Select to give 2 or 3 different options to sort the
report.

Is ther any way I can adress the report name as is used in strDocName
and strSQL so instead of having

Reports![Summary Information Report].OrderBy = strSQL

I could Dim reportstr as String

and use

Reports![reportstr].OrderBy = strSQL
This way i could probably hold all of the info in a table and call up
the fields as required to specify report name and sort option...... I
realise it may not be possible, or it may be and it is an issue of
syntax which I have not grasped.
Thanks.

fecket
Example Code

Private Sub annsummaryprev_ Click()
On Error GoTo Err_annsummaryp rev_Click

DoCmd.SetWarnin gs False
Dim stDocName As String

stDocName = "Create Summary Info Table Query"
DoCmd.OpenQuery stDocName, acViewNormal

stDocName = "Summary Information Report"

Dim strSQL As String
strSQL = "CatASubmar ine"

DoCmd.OpenRepor t stDocName, acPreview
Reports![Summary Information Report].OrderByOn = True
Reports![Summary Information Report].OrderBy = strSQL
DoCmd.SetWarnin gs True
Exit_annsummary prev_Click:
Exit Sub

Err_annsummaryp rev_Click:
MsgBox Err.Description
Resume Exit_annsummary prev_Click

End Sub

[Tom van Stiphout]

On Sun, 13 Mar 2005 21:48:14 +0000, fecket <ne*********@ho tmail.com>
wrote:

Yes. Use syntax like:
Reports(reports tr).OrderBy = strSQL

-Tom.

The following code is used in my db to change the sort order of the
report to various fields. I want to take this one stage further and
use maybe a Case Select to give 2 or 3 different options to sort the
report.

Is ther any way I can adress the report name as is used in strDocName
and strSQL so instead of having

Reports![Summary Information Report].OrderBy = strSQL

I could Dim reportstr as String

and use

Reports![reportstr].OrderBy = strSQL
This way i could probably hold all of the info in a table and call up
the fields as required to specify report name and sort option...... I
realise it may not be possible, or it may be and it is an issue of
syntax which I have not grasped.
Thanks.

fecket
Example Code

Private Sub annsummaryprev_ Click()
On Error GoTo Err_annsummaryp rev_Click

DoCmd.SetWarni ngs False
Dim stDocName As String

stDocName = "Create Summary Info Table Query"
DoCmd.OpenQuery stDocName, acViewNormal

stDocName = "Summary Information Report"

Dim strSQL As String
strSQL = "CatASubmar ine"

DoCmd.OpenRepor t stDocName, acPreview
Reports![Summary Information Report].OrderByOn = True
Reports![Summary Information Report].OrderBy = strSQL
DoCmd.SetWarnin gs True
Exit_annsummar yprev_Click:
Exit Sub

Err_annsummary prev_Click:
MsgBox Err.Description
Resume Exit_annsummary prev_Click

End Sub