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

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.

Date de création :22/03/2006 02:09 Dernière modification :07/04/2010 12:27