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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour