Propriedade Application.CodeContextObject (Access)

Use a propriedade CodeContextObject para determinar o objeto no qual uma macro ou código do Visual Basic está sendo executado. Objeto somente leitura.

Sintaxe

expressão. CodeContextObject

expressão Uma variável que representa um Aplicativo objeto.

Comentários

A propriedade CodeContextObject é definida pelo Microsoft Access e é somente leitura em todos os modos.

As propriedades ActiveControl, ActiveDatasheet, ActiveForm e ActiveReport do objeto Screen sempre retornam o objeto que atualmente tem o foco. O objeto com o foco pode ou não ser o objeto em que uma macro ou código do Visual Basic está em execução, por exemplo, quando o código do Visual Basic é executado no evento Timer em um formulário oculto.

Exemplo

No exemplo a seguir, a propriedade CodeContextObject é usada em uma função para identificar o nome do objeto no qual ocorreu um erro. Em seguida, o nome do objeto é utilizado no título da caixa de mensagem, bem como no corpo da mensagem de erro. A instrução Error é utilizada no evento Click do botão de comando para gerar o erro para este exemplo.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.