FAQ
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
'
' .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.