Propiedad Application.CodeContextObject (Access)

Use la propiedad CodeContextObject para determinar el objeto en el que se ejecuta una macro o código de Visual Basic. Object de solo lectura.

Sintaxis

expresión. CodeContextObject

expresión Variable que representa un objeto Application.

Comentarios

La propiedad CodeContextObject la establece Microsoft Access y es de sólo lectura en todas las vistas.

Las propiedades ActiveControl, ActiveDatasheet, ActiveForm y ActiveReport del objeto Screen siempre devuelven el objeto que actualmente tiene el foco. El objeto con el foco puede ser o no el objeto en el que se está ejecutando actualmente una macro o código de Visual Basic, por ejemplo, cuando el código de Visual Basic se ejecuta en el evento Timer en un formulario oculto.

Ejemplo:

En el ejemplo siguiente, la propiedad CodeContextObject se usa en una función para identificar el nombre del objeto en el que se produjo un error. El nombre del objeto se usa luego en el título del cuadro de mensaje y en el texto del mensaje de error. La instrucción Error se utiliza en el evento Click del botón de comando para generar el error de este ejemplo.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.