Propriété Screen.PreviousControl (Access)

Utilisez la propriété PreviousControl avec l’objet Screen pour renvoyer une référence au dernier contrôle qui a reçu le focus. En lecture seule.

Syntaxe

expression. PreviousControl

Expression Variable qui représente un objet Screen .

Remarques

La propriété PreviousControl contient une référence au contrôle qui a le focus la dernière. Après avoir établi une référence au contrôle, vous pouvez accéder à toutes les propriétés et méthodes du contrôle.

Vous ne pouvez pas utiliser la propriété PreviousControl jusqu'à ce que plus d'un contrôle sur un formulaire a été activé après l'ouverture d'un formulaire. Microsoft Access génère une erreur si vous tentez d'utiliser cette propriété lorsqu'un seul contrôle sur un formulaire a été activé.

Exemple

Dans l'exemple suivant, un message s'affiche si le dernier contrôle activé n'est pas la zone de texte txtEntréefinale.

Public Function ProcessData() As Integer 
 
 ' No previous control error. 
 Const conNoPreviousControl = 2483 
 Dim ctlPrevious As Control 
 
 On Error GoTo Process_Err 
 
 Set ctlPrevious = Screen.PreviousControl 
 If ctlPrevious.Name = "txtFinalEntry" Then 
 ' 
 ' Process Data Here. 
 ' 
 ProcessData = True 
 Else 
 ' Set focus to txtFinalEntry and display message. 
 Me!txtFinalEntry.SetFocus 
 MsgBox "Please enter a value here." 
 ProcessData = False 
 End If 
 
Process_Exit: 
 Set ctlPrevious = Nothing 
 Exit Function 
 
Process_Err: 
 If Err = conNoPreviousControl Then 
 Me!txtFinalEntry.SetFocus 
 MsgBox "Please enter a value to process.", vbInformation 
 ProcessData = False 
 End If 
 Resume Process_Exit 
 
End Function

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.