Brugersortering i rapport

You will need to alter the sort order BEFORE you open it if it gets printed at the same time.

Docmd.OpenReport "YourReportName", acViewDesign
reports!YourReportName.orderBy = "SortFieldName"
reports!YourReportName.orderByOn = Fasle
Docmd.OpenReport "YourReportName"

To use the current forms sort order you would use

reports!YourReportName.orderBy = Me.SortOrder

I've just noticed a little error n my first example

Docmd.OpenReport "YourReportName", acViewDesign
reports!YourReportName.orderBy = "SortFieldName"
reports!YourReportName.orderByOn = True
Docmd.OpenReport "YourReportName"

if you can give some feedback then its easier to help!

Jeg er ved at kigge på det, Terry, men jeg kan ikke umiddelbart få det til at fungere. Den vil ikke acceptere Me.SortOrder. Jeg vender tilbage igen så snart jeg har noget konkret at sige.

Sorry! Try Me.OrderBy

Ja, Me.OrderBy virkede da jeg huskede at fjerne den sortering jeg selv havde sat i rapportens design. Men samtidig har jeg et filter på, og jeg kan ikke få det til at fungere sammen. Jeg har følgende kode på min udskrift-knaps VedKlik-hændelse:

Private Sub cmdUdskrivSøgeresultat_Click()
        DoCmd.OpenReport "rppSøgeresultat", acViewDesign
        Reports!rppsøgeresultat.OrderBy = Me.OrderBy
        Reports!rppsøgeresultat.OrderByOn = True
    If Me.FilterOn Then
        DoCmd.OpenReport "rppSøgeresultat", acViewPreview, , Me.Filter
    Else
        DoCmd.OpenReport "rppSøgeresultat", acViewPreview
    End If
End Sub

Den ignorerer filteret og skriver alle poster, hvordan får jeg den til at tage hensyn til begge ting?

Hej Terry, nu har jeg fået det til at virke.

Jeg satte linien:
Reports!rppSøgeresultat.FilterOn = True
ind efter If Me.FilterOn

og linien:
Reports!rppSøgeresultat.FilterOn = False
ind efter Else

Så vidt jeg kan se virker det helt efter hensigten nu, ellers vender jeg tilbage.

Tak for hjælpen indtil videre!
Dorit

Great to hear you got it working Dorit, and thanks for the points.

Get back if you have any problems (with this question :o) )

mvh
Terry