Dynamisk sortering

Du kan angive sorteringsrækkefølge efter at rapporten er åbnet således:

  DoCmd.OpenReport \"MinRapport\", acViewPreview
  Reports!rptBOG.OrderBy = \"Felt3\"
  Reports!rptBOG.OrderByOn = True


/Thomas

Hi numsi and Thomas!
I have had a bit to do with this program so perhaps I can make some suggestions.
On the form where you enter the intervals, for example 2000-2400 you could place checkbox beside each one. Then when you build your WHERE clause for opening the report you can also build a SORT clause. If it is only one field then you can do it as its done with the VIS button.
Then you place the last two lines as Thomas says, after the docmd.openreport line.
NOTE: SortOrder is a variable you use for the chosen sort field

Reports(stDocName).OrderBy = SortOrder
Reports(stDocName).OrderByOn = True

I think it spossible to refrence a report like this.
Oh something else numsi. I havent looked so much at the report form before, but you could simplify this quite a lot. You have almost the same code for each button. Place this in a function and send the name of the report and the sort order to the function. If you alter somethng there will only be one place to make the alteration, now you have ten!

terry

Ok, jeg vil forsøge. Jeg har først tid til at kigge på det i aften, så jeg vender lige tilbage.

Men kan det så ikke lade sig gøre at sende navnet på rapporten til sorterings-formularen, så hvis brugeren trykker på sorteringen \"Navn\", så åbnes den pågældende rapport sorteret efter \"NAvn\"...?

terry
jeg prøver din checkbox-løsning, den lyder fornuftig.

OK!

Numsi-> mht at lave en funktion, så kunne den se således ud:

Public Function Udskriv(Rapportnavn as string, Sortering as String)
  docmd.Openreport Rapportnavn,acviewpreview
  Reports(Rapportnavn).OrderBy = SortOrder
  Reports(Rapportnavn).OrderByOn = True
end sub

Denne funktion kalder du så bare fra hver af dine knapper.

/Thomas

Hej med jer, jeg har tænkt lidt over jeres forslag, men ang. terrys forslag, så vil han ikke bruge checkbokse, fordi han vil bruge musen så lidt som muligt. Derfor vil jeg holde fast i en løsning som skal være følgende:
Brugeren indtaster kriterie, herefter vælger han en rapport og derefter popper der en formular op der spørger hvilke muligheder han vil sortere efter. Formularen der popper op skal se således ud:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim sOrder As String

If KeyCode = vbKey1 Then
    sOrder = \"Nummer\"
End If

Jeg har brugt autokeys, så han fx bare kan taste 1 for at sortere resultatet efter \"Nummer\". Men hvordan skal koden være for at sortering ved hvilken rapport brugeren har valgt at ville se, og derved skal åbne efter valgt sortering??

og når jeg skriver \"han\" så mener jeg ham der skal have databasen.

Det handler vel om at få mine 10 forskellige rapporter og formularen \"sortering\" til at spille sammen på en eller anden dynamisk måde.

halloo 8o)
er der slet ingen til at hjælpe??

you can send me the newest version and I will take a look - you have my address I think!

terry

thanks terry!