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

 1224094 visiteurs

 1 visiteur en ligne

Nous contacter

Contact

FAQ

Déplier Fermer  Formulaire

Comment lister les indentifiants (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.

Dernière modification :07/04/2010 : 12:27 Hyperlien 

Vous êtes ici :   Accueil » FAQ