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.

    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
        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


Spendierst du mir eine Tasse Kaffee? Ich würd mich riesig freuen. DANKE !! 🙂

Kategorien: Verschiedene Themen

Schreibe einen Kommentar

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