Enumérer les identifiants d'un Form continu

Comment lister les identifiants (clés primaires) des enregistrements sélectionnés dans un formulaire continu.

Code à placer dans la Sub de l'événement "Sur clic" du formulaire.

Private Sub Form_Click()
    Dim IDselect() As Variant
    Dim lngTop As Long, lngHeight As Long, lngLoop As Long

    lngTop = Me.SelTop
    lngHeight = Me.SelHeight
    ReDim IDselect(lngHeight)

    With Me.RecordsetClone
        .AbsolutePosition = lngTop - 1
        For lngLoop = 1 To lngHeight
            IDselect(lngLoop) = .Fields(0)
            '
            ' .Fields(0)
            ' contient la valeur du premier champ
            ' qui est normalement la clé primaire
            '
            .MoveNext
        Next
    End With
    '
    ' La variable tableau IDselect() contient maintenant
    ' tous les ID des enregistrements sélectionnés
    '
    ' Pour exemple, nous affichons les valeurs
    ' dans la fenêtre d'exécution directe.
    '
    For lngLoop = 1 To UBound(IDselect)
        Debug.Print IDselect(lngLoop)
    Next
End Sub

Une base exemple est disponible dans la zone téléchargement.