Partager via

Propriété Screen.ActiveDatasheet (Access)

  • Article

Utilisez la propriété ActiveDatasheet avec l’objet Screen pour identifier ou faire référence à la feuille de données qui a le focus. Objet de formulaire en lecture seule.

Syntaxe

expression. ActiveDatasheet

Expression Variable qui représente un objet Screen .

Remarques

La propriété ActiveDatasheet contient l'objet de feuille de données qui est activé lors de l'exécution.

Utilisez cette propriété pour faire référence à une feuille de données active avec l’une de ses propriétés ou méthodes. Par exemple, le code suivant utilise la propriété ActiveDatasheet pour faire référence à la ligne supérieure de la sélection dans la feuille de données active.

TopRow = Screen.ActiveDatasheet.SelTop

Exemple

L'exemple suivant utilise la propriété ActiveDatasheet pour identifier la cellule de la feuille de données qui est active ou, si plusieurs cellules ont été sélectionnées, l'emplacement de la première ligne et colonne de la sélection.

Public Sub GetSelection() 
 ' This procedure demonstrates how to get a pointer to the 
 ' current active datasheet. 
 
 Dim objDatasheet As Object 
 Dim lngFirstRow As Long 
 Dim lngFirstColumn As Long 
 Const conNoActiveDatasheet = 2484 
 
 On Error GoTo GetSelection_Err 
 
 Set objDatasheet = Screen.ActiveDatasheet 
 
 lngFirstRow = objDatasheet.SelTop 
 lngFirstColumn = objDatasheet.SelLeft 
 MsgBox "The first item in this selection is located at " & _ 
 "Row " & lngFirstRow & ", Column " & _ 
 lngFirstColumn, vbInformation 
 
GetSelection_Bye: 
 Exit Sub 
GetSelection_Err: 
 If Err = conNoActiveDatasheet Then 
 MsgBox "No data sheet is active.", vbExclamation 
 Resume GetSelection_Bye 
 End If 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.