Select All på en liste

Hvis du sætter egenskaben FlereMarkeringer til "Sammensat markering", så kan du markere den første, og derefter holde [Shift] nede mens du markerer den sidste på listen, derved bliver alle valgt...

Ja, det ved jeg, men hvis jeg nu ved at jeg skal bruge alle elementerne på en liste er det lidt dumt først at skulle markere dem.

F.eks. så har jeg denne kode som skal slette samtlige markerede elementer fra listen i en tabel:

Sub cmdDeleteResult_Click()
   
    Dim frm As Form, ctl As Control
    Dim varItm As Variant

    Set frm = Forms!frmSearchMember
    Set ctl = frm![frmCustSearchList]![lstCustSearchResult]
    For Each varItm In ctl.ItemsSelected
        CurrentDb.Execute "DELETE FROM tblSearchResult WHERE display_name = '" & ctl.ItemData(varItm) & "' "
    Next varItm

Me![lstCustSearchResult].Requery

End Sub

Men det ville bare være super hvis der var en 'SelectAll' funktion så jeg slap for at markere dem alle.

Jeg har ikke testet det, men kan man ikke bruge et eller andet med

Me!lstCustSearchResult.Selected(All) = True

går ud fra du mener vælge alle elementer/emner i en listbox på en gang?? Hvis ja, kan det gøres forholdsvis simpelt.

Opret 2 knapper på din formualar. Den ene vælger alle elementer på listen. Den anden fjerner markeringen

Koden til knappen der markerer alle emner på listen:
OBS ! Egenskaben på listboxen skal under "Flere markeringer" sættes til "Sammensat markering". Ellers virker koden ikke.

Private Sub cmdVaelgAlle_Click()
'Vælg alle emner i listboxen

Dim intList As Integer
    For intList = 0 To Me.MinListbox.ListCount - 1
        Me.MinListbox.Selected(intList) = True
    Next intList

End Sub

Koden på knap nr. 2 der clearer listboxen, så intet er markeret

Private Sub cmdDeselectValgte_Click()
'Deselect de valgte emner på listboxen
Dim intList As Integer
    For intList = 0 To Me.MinListbox.ListCount - 1
        Me.MinListbox.Selected(intList) = False
    Next intList

End Sub


....erstat selv MinListbox med navnet på din listbox

Looks OK to me Susanne :o) (NOT checked)

Another idea.

Function  ToggleList( Toggle as Boolean )
Dim intList As Integer
    For intList = 0 To Me.MinListbox.ListCount - 1
        Me.MinListbox.Selected(intList) = Toggle
    Next intList

End Sub

;) terry and works too - have checked G**

smarter that one ;)

I can't get it to work - I must do something wrong...?

Is this the way it should look?

Sub cmdAddAll_Click()
   
Function ToggleList(Toggle As Boolean)
Dim intList As Integer
    For intList = 0 To Me.[lstCustSearchList].ListCount - 1
        Me.[lstCustSearchList].Selected(intList) = Toggle
    Next intList

End Sub

Susanne: Jeg brugte dit og fik det til at virke helt fint. Da Terry ikke er kommet med svar og kun kommentar kan jeg jo ikke dele pointene mellem jer :(. Så du får dem...

Grunden til at du ikke kan få terrys kode til at virke er at det er en function. Den skal placeres i et modul, hvorefter du skal kalde functionen

men thnx for p

kan være en ret svær en den vba :)

I didnt place an answer BECAUSE Susanne gave a correct one, and she nees the points  :o)

G*** and theres a heck of a long way up to position nr 9