Partager via

Propriété Screen.ActiveControl (Access)

  • Article

Utilisez la propriété ActiveControl avec l’objet Screen pour identifier ou faire référence au contrôle qui a le focus. Objet Control en lecture seule.

Syntaxe

expression. ActiveControl

Expression Variable qui représente un objet Screen .

Remarques

Ce paramètre de propriété contient une référence à l'objet de contrôle qui a le focus en cours d'exécution.

Utilisez la propriété ActiveControl pour faire référence au contrôle qui a le focus au moment de l’exécution avec l’une de ses propriétés ou méthodes. L'exemple suivant affecte le nom du contrôle qui a le focus dans la variable strControlName .

Dim ctlCurrentControl As Control 
Dim strControlName As String 
Set ctlCurrentControl = Screen.ActiveControl 
strControlName = ctlCurrentControl.Name

Si aucun contrôle n'a le focus lorsque vous utilisez la propriété ActiveControl ou si tous les contrôles du formulaire actif sont masqués ou désactivés, une erreur se produit.

Exemple

L’exemple suivant affecte le contrôle actif à la ctlCurrentControl variable, puis effectue différentes actions en fonction de la valeur de la propriété Name du contrôle.

Dim ctlCurrentControl As Control 
 
Set ctlCurrentControl = Screen.ActiveControl 
If ctlCurrentControl.Name = "txtCustomerID" Then 
 . 
 . ' Do something here. 
 . 
ElseIf ctlCurrentControl.Name = "btnCustomerDetails" Then 
 . 
 . ' Do something here. 
 . 
End If

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.