Access – Listbox Zeilen per Code selektieren

Hier ein Beispiel wie man in Access – Listbox Zeilen per Code selektieren kann.

So wird es gemacht:

    
    '============================================
    ' Access Beispiel in VBA
    ' © thealhambra@briso.de
    '============================================
Private Sub BTN_Product_1_Click()

    Dim rs As DAO.Recordset
    Dim intI As Integer

    'Clear all currently selected Items.
    ClearProductSelections

    Set rs = CurrentDb.OpenRecordset( _
        "SELECT ProductID, ProductName FROM tbl_Product " & _
        "WHERE authorisied = -1 ")

    'Select the Items currently on record for this ID's.
    With Me.lst_Products
        Do Until rs.EOF
            For intI = 0 To (.ListCount - 1)
                If .ItemData(intI) = CStr(rs!ProductID) Then
                    .selected(intI) = True
                    Exit For
                End If
            Next intI
            rs.MoveNext
        Loop
        rs.Close
        Set rs = Nothing
    End With

End Sub

Private Sub ClearProductSelections()

    Dim intI As Integer

    With Me.lst_Products
        For intI = (.ItemsSelected.Count - 1) To 0 Step -1
            .selected(.ItemsSelected(intI)) = False
        Next intI
    End With

End Sub


 

Bei Fragen verwenden Sie bitte die Kommentarfunktion des Artikels.
Vielen Dank für Ihr Interesse an bridgesolution BLOG !

Author: admin

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.