En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1224335 visiteurs

 10 visiteurs en ligne

Nous contacter

Contact

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.

Catégorie : Les mémos - Formulaires
Page lue 6910 fois
Vous êtes ici :   Accueil » Enumérer les identifiants d'un Form continu