Sortering af Combo Box

Jeg forstår ikke helt din beskrivelse, men du kan jo altid styre sorteringen ved at lade din rækkekilde være en forespørgsel og derved soretere denne, som du ønsker!

Take a look at this it may give you some ideas

http://www.mvps.org/access/forms/frm0028.htm

ja det er godt nok, men brugerne skal selv kunne vælge hvordan posterne i Combo2 skal soreteres. Den bruges til at filtere ca 22000 rækker af økonomiske data, omsætn, likviditet etc.
Nogen gange vil de gerne ha det ordre no. med størst omsætn. øverst i Combo2 andre gange det ordreno med størst likviditet etc.

As you can see in th example it uses the contents of one combo to set the contents of another and at the same time you could alter the sort order by including this in the SQL.

Du kan således, vha VBA, ændre SQL-sætningen i rækkekilden afhængig af andre valg, som brugeren har foretaget.

på EfterOpdatering på Combo1 kan lægge noget kode á la dette:

Private Sub Combo1_AfterUpdate()
  Select case Me!Combo1
    case "Prod-Asc"
      Me!Combo2.Rowsource = "Select * From Tabel Order By Prod"
    case "Prod_Desc"
      Me!Combo2.Rowsource = "Select * From Tabel Order By Prod Desc"
    ...
    ...
  end select
end sub

Dette er den simple (og ikke så smarte metode). Det kan formentlig gøres smartere, men så skal jeg 'se' databasen eller have flere oplysninger

Yes Terry, men det lader ikke brugerne ændre på sorteringen af Combo2

OK! The you have a combo containing ALL sort orders

For example
ORDER BY fld1 ASC
ORDER BY fld1 DESC
ORDER BY fld2 ASC

...

Then when the user selects a value from this combo they re-build the Rowsource of the other combo

...RowSource = "SELECT YourFields FROM YourTable WHERE whatever " &  & Me!cbxCombo1

where  & Me!cbxCombo1 contains for example "ORDER BY fld1 ASC"

ORDER BY fld1 ASC
ORDER BY fld1 DESC
ORDER BY fld2 ASC

You could also have a radio button Group and depend on what the user selects re-sorts the list. You can use a SELECT CASE for this as Thomas shows!

forgot to say
ORDER BY fld1 ASC
ORDER BY fld1 DESC
ORDER BY fld2 ASC
These values can be either from a table or from a value list.

Jeg vil umiddelbart også foreslå at lave 2 kontrolobjekter (kombobokse eller optionbuttons) således at brugeren først vælger Produkt, omsætning m.m. og derefter vælger om den skal sortere stigende eller faldende.

Dette kunne gøres simpelt ved at lave 2 kombobokse.

Derefter ser koden således ud:
Me!Combo2.Rowsource = "Select DitFelt From Tabel Order By [" & Me!combo1 & "] " & Me!cboSortering


cboSortering er den comboboks som indeholder Asc eller Desc

Koden placeres BÅDE på cboSortering_Afterupdate og combo1_AfterUpdate, således at det sker uanset hvilken af de 2, man vælger først

Hvordan ville koden se ud hvis man havde:

Tablenavn: Ordrer

Combo1:
Omsætn
Likviditet
Igv-Arbejde
OrdreIndgang
Udbud

Og man så havde en radio-button til Asc / Desc

Og i Combo2 brugte samme tabel med Ordrenr som Kontrolfelt.

Den kunne se således ud:
If Me!Radiobutton = 1 then
  Me!Combo2.Rowsource = "Select DitFelt From Ordrer Order By [" & Me!combo1 & "]"
else
  Me!Combo2.Rowsource = "Select DitFelt From Ordrer Order By [" & Me!combo1 & "] Desc"
endif

Man kunne godt gøre den lidt kortere ved at bruge IIF i slutningen af sætningen. Derved havde man kun én linie, men denne metode er 'kønnere', da IIF lidt er en FY-kommando

er lige smuttet 20 min, men vender tilbage...

Basically what this problem boils down to is having one or more controls (combo's, radio buttons) which are used to build the SQL for the combo's Rowsource. This is just a plain old SQL statment which has to be built in VBA code usingthe values chosen form your controls.

I would suggest ONE function to do this

Function ChangeRowSource()



'This is where your cod egoes to build the SQL fro the rowsource.

End Function

Then in each control (which you are using to build the Rowsource) AFTER UPDATE event property you write

=ChangeRowSource()

This will call the function every time you change one of the values of one of the controls.

Jeg har fået det til at virke, med "bits and pieces" fra hver af jer, og jeg takker.
Håber I er tilfreds med point fordelingen.

Hans

thnx :o)

Great, og tak :o)