Oprette headings i ms combobox

Du burde jo have kolonneoverskrifter med, da du angiver  lst.ColumnHeads = True

Men hvis du vil ændre dem, så skal du ændre SQL'en i din T.open-sætning:

T.Open ("Select Felt1 as 'Overskrift1', felt2 as 'Overskrift2' From Varer"

Du får lige hele metoden:

Private Sub CreateList()

    Set lst = lstEquipment.Object
    lst.ColumnCount = 3
    lst.ColumnWidths = "2 cm;4 cm;2,5 cm"
    lst.ColumnHeads = True
   
    Dim T As New ADODB.Recordset, i As Integer
    T.Open ("select Varenr as 'NR1',Beskrivelse as 'NR2' from tEquipment"), CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
    i = 0
    Do Until T.EOF
        lst.AddItem
        lst.Column(0, i) = Nz(T(0))
        lst.Column(1, i) = Nz(T(1), "")
        lst.Column(2, i) = Nz(T(2), "")
        i = i + 1
        T.MoveNext
    Loop
    T.Close
    Set T = Nothing
End Sub

Det virker bare ikke...

hvilken del virker ikke? Overskrifterne eller dine AddItem?

Du har forresten kun 2 felter med i din SQL, men du angiver at der skal være 3 kolonner.

sorry med antallet af kolonner, jeg rettede lidt til for ikke at sende for meget. Alt omkring at tilføje posterne til listen virker fint. Det eneste der ikke virker er overskrifterne.

Torben

Jeg prøvede lige selv at lave et eks. (hvorfor bruger du dog Forms 2-listboksen????)

Jeg kan godt se, at den er radikalt anderledes end de nyere listbokse. Jeg troede, at det var den samme listboks, som fandtes i Access 2.0. Men det er bestemt ikke tilfældet!

Det er desværre ikke lykkedes mig at finde frem til den egenskab, som angiver header'erne :o(

Du kan ikke vælge en anden listboks?

Det er ikke så afgørende for mig hvilken type af listbox. Jeg skal blot have en hvor der er mulighed for at at vælge (afkrydsningsbox) en række spredte elementer fra listen.

Har du et bedre forslag til en listbox?

Torben

Ja, bestem. Jeg har selv et par ksempler liggende på min hjemmeside: http://www.makeiteasy.dk/eksempler/Downloads.htm

Kig på eksemplerne "Multiselect i Listboks", "Flyt elementer mellem 2 listbokse" og "Benyt checkboxe i en Listbox"

De 2 første bruger Access' standard-listboks
Den sidste bruger Treeview-komponenten.

Treeview kan jeg ikke bruge i denne forbindelse. Der kan jeg ikke sætte kolonneoverskrifter på, men jeg kan fint leve med en almindelige listbox og en traditionel multiselect (som jo desværre ikke har afkrydsningsfelt...)

Torben

ok! Men kunne Forms 2-listboksen vise afkrydsningsbokse?

tak for point :o)

Bortset fra det, så kan du jo - når det er listbokse og ikke kombobokse - bare lave overskrifterne vha etiketter oven over listboksen. Det har jeg da tit brugt, da jeg ikke synes at de "indbyggede" overskrifter er særlig pæne.

Ja, men der kunne ikke komme overskrifter på. Det var jo der jeg startede...

Hvordan satte du checkbokse på? Det var da ikke med i koden....

Så du min forrige kommentar omkring overskrifterne som etiketter?

Jeg sætter liststile til option (via egenskaber). Ja, jeg har set mht. labels. Har også overvejet det...