Propriété Application.CodeContextObject (Access)

Utilisez la propriété CodeContextObject pour déterminer l’objet dans lequel une macro ou du code Visual Basic s’exécute. Type de données Object en lecture seule.

Syntaxe

expression. CodeContextObject

expressionUne variable qui représente un objetApplication.

Remarques

La propriété CodeContextObject est définie par Microsoft Access et est accessible en lecture seule dans tous les modes.

Les propriétés ActiveControl, ActiveDatasheet, ActiveForm et ActiveReport de l’objet Screen retournent toujours l’objet qui a actuellement le focus. L’objet avec le focus peut ou non être l’objet sur lequel une macro ou du code Visual Basic est en cours d’exécution, par exemple, lorsque du code Visual Basic s’exécute dans l’événement Timer sur un formulaire masqué.

Exemple

Dans l’exemple suivant, la propriété CodeContextObject est utilisée dans une fonction pour identifier le nom de l’objet dans lequel une erreur s’est produite. Le nom de l'objet est alors utilisé dans le titre de la zone de message et dans le corps du message d'erreur. L'instruction Error est utilisée dans l'événement Clic du bouton de commande pour générer l'erreur de cet exemple.

Private Sub Command1_Click() 
 On Error GoTo Command1_Err 
 Error 11 ' Generate divide-by-zero error. 
 Exit Sub 
 
 Command1_Err: 
 If ErrorMessage("Command1_Click() Event", vbYesNo + _ 
 vbInformation, Err) = vbYes Then 
 Exit Sub 
 Else 
 Resume 
 End If 
End Sub 
 
Function ErrorMessage(strText As String, intType As Integer, _ 
 intErrVal As Integer) As Integer 
 Dim objCurrent As Object 
 Dim strMsgboxTitle As String 
 Set objCurrent = CodeContextObject 
 strMsgboxTitle = "Error in " & objCurrent.Name 
 strText = strText & "Error #" & intErrVal _ 
 & " occurred in " & objCurrent.Name 
 ErrorMessage = MsgBox(strText, intType, strMsgboxTitle) 
 Err = 0 
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.