Sorterings-combobox

Prøv dette:

På din komboboks sætter du egenskaben "Rækkekildetype" = Feltliste
Som Rækkekilde vælges tabellen eller forespørgslen, som din formular er baseret på.

På komboboksens EfterOpdatering-hændelse lægges denne kode:


If Me!DinKomboboks = "" then
  Me.Orderbyon = false
else
  Me.Orderby = "'" & Me!DinKoboboks & "'"
  Me.Orderbyon = True
endif

/Thomas

Tak, Thomas, nu virker det. Først kunne jeg ikke få det til at virke, den spurgte om parameterværdi. Men da jeg fjernede de to ' på hver side af Me!MinKomboboks virker det som det skal. Hvorfor den ikke ville have dem med, kan jeg ikke gennemskue, men det kan du måske?

/Dorit

ja, nu du siger det, så er datatypen af DinKomboboks jo allerede tekst. og der er vist (af en eller anden grund) kun en egenskab, som ikke opfører sig på den måde - jeg mener, at det er DefaultValue som skal have ' omkring, hvis du skal sætte den vha kode.
Det er så rart, at Microsoft altid er så konsekvente ;o)

Lige til din orientering, Thomas, så var jeg nødt til at ændre første linie i koden til:

If Me!MinKomboboks = ""  OR IsNull(Me.MinKomboboks) Then

ellers sagde den "Invalid use of Null" hvis man slettede hvad der stod i boksen.

God weekend!

ja, jeg tænkte godt på det, men kom væk fra det igen.

Jeg har altid selv denne funktion liggende i et modul:
Function Tom(MyControl As Control) As Integer
    Tom = False

    If IsNull(MyControl) Then
        Tom = True
    Else
        If MyControl = "" Then
            Tom = True
        End If
    End If
End Function

Derved kunne du bare have skrevet:
If Tom(Me!MinKomboboks) then ...