Keuzelijst records selecteren

[Nico84]

Gebruik de volgende code om alles te selecteren in de keuzelijst.
Alleen als ik het vinkje weghaalt deselecteerd hij alle records, alleen blijft de keuzelijst
helemaal onderaan steken.
In mijn geval zie ik dan debiteur nr 1100 t/m 1140.
Zal graag willen dat ik het eerste debiteur nr (1000) weer te zien krijg.

Kort gezegd de scrollbar moet omhoog.

Private Sub Selectievakje44_AfterUpdate()

Dim x As Variant
If Me.Selectievakje44.Value = -1 Then
    For x = 0 To Me.lstDebiteur.ListCount - 1
         Me.lstDebiteur.Selected(x) = True
    Next x
Else
    For x = 0 To Me.lstDebiteur.ListCount - 1
         Me.lstDebiteur.Selected(x) = False
    Next x
End If

End Sub]

 

[Nico84]

Bestaat er voor het bovenstaande een oplossing?

 

[OctaFish]

Overal is een oplossing voor; ik wou iemand anders ook een kans geven

    If Me.Selectievakje44.Value = -1 Then
        For x = 0 To Me.lstDebiteur.ListCount - 1
            Me.lstDebiteur.Selected(x) = True
        Next x
    Else
        For x = 0 To Me.lstDebiteur.ListCount - 1
            Me.lstDebiteur.Selected(x) = False
        Next x
        Me.lstDebiteur.Selected(0) = True
        Me.lstDebiteur.Selected(0) = False
    End If

Het zal wel netter kunnen, maar het werkt...

 

[Nico84]

Klopt, dat het werkt!
Bedankt weer.