Avatar billede stinesondre Nybegynder
22. oktober 2003 - 09:46 Der er 2 kommentarer og
1 løsning

Hvordan kan jeg sortere en combobox jeg fyller med data ?

Jeg ønsker å kunne sortere dataene i en combobox som jeg fyller med data fra en tabell. Her er koden:

Private Sub kombo_Change()
    Dim sSQL As String
    navn = kombo.SelText
    sSQL = "SELECT * FROM oversikt where Kunde=" & "'" & navn & "'"

    With Me.liste
        Me.liste.RowSource = sSQL
        Me.liste.Requery
    End With
End Sub

Det som er problemet er at comboboxen sorterer feil. Jeg ønsker at dataene skal sorteres etter når de kom inn i tabellen. Slik at de nyeste dataene kommer øverst i comboboxen..Er dette mulig ?
Avatar billede jkrons Professor
22. oktober 2003 - 09:58 #1
Hvis du har et datofelt i din tabel oversikt, hvor du registrerer oprettelsestidspunkter kan du sortere på det:

sSQL = "SELECT * FROM oversikt where Kunde=" & "'" & navn & "'" ORDER BY Dato

Hvis du ikke selv registrerer datoen for oprettelser tror jeg det bliver meget svært.
22. oktober 2003 - 11:48 #2
Eller hvis du har en autonummerfelt, som f.eks. hedder ID:

Private Sub kombo_Change()
    Dim sSQL As String
    sSQL = "SELECT * FROM oversikt where Kunde=" & "'" & kombo.SelText & "' ORDER BY ID DESC"

    Me.liste.RowSource = sSQL
    Me.liste.Requery
End Sub
Avatar billede stinesondre Nybegynder
22. oktober 2003 - 12:05 #3
TAKKER !! Det fungerer kjempebra ! I AM A HAPPY BOY !
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester