Evento References.ItemRemoved (Access)
O evento ItemRemoved ocorre quando uma referência for removida do projeto.
Sintaxe
expressão. ItemRemoved (Referência)
Expressão Uma variável que representa um objeto References .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Reference | Obrigatório | Reference | A referência que foi removida do projeto. |
Comentários
O evento ItemRemoved se aplica à coleção References . Não está associado a um controle, formulário ou relatório, assim como a maioria dos outros eventos. Portanto, para criar uma definição de procedimento para o procedimento de evento ItemRemoved , você deve usar uma sintaxe especial.
O evento ItemRemoved só pode executar um procedimento de evento quando ocorrer; ele não pode executar uma macro.
Esse evento ocorrerá somente quando for removida uma referência do código. Isso não ocorre quando você remove uma referência da caixa de diálogo Referências , disponível escolhendo Referências no menu Ferramentas quando a janela Módulo é a janela ativa.
Exemplo
O exemplo a seguir inclui procedimentos de evento para os eventos ItemAdded e ItemRemoved. Para experimentar este exemplo, primeiro crie um novo módulo de classe escolhendo Módulo de Classe no menu Inserir . Cole o código a seguir no módulo de classe e salve o módulo como RefEvents.
' Declare object variable to represent References collection.
Public WithEvents evtReferences As References
' When instance of class is created, initialize evtReferences
' variable.
Private Sub Class_Initialize()
Set evtReferences = Application.References
End Sub
' When instance is removed, set evtReferences to Nothing.
Private Sub Class_Terminate()
Set evtReferences = Nothing
End Sub
' Display message when reference is added.
Private Sub evtReferences_ItemAdded(ByVal Reference As _
Access.Reference)
MsgBox "Reference to " & Reference.Name & " added."
End Sub
' Display message when reference is removed.
Private Sub evtReferences_ItemRemoved(ByVal Reference As _
Access.Reference)
MsgBox "Reference to " & Reference.Name & " removed."
End Sub
O procedimento function a seguir remove uma referência especificada. Quando uma referência é removida, o procedimento de evento ItemRemoved definido na classe RefEvents é executado.
Por exemplo, para remover uma referência ao controle de calendário, você poderia passar a cadeia de caracteres "MSACAL", que é o nome do objeto Reference que representa o controle de calendário.
Function RemoveReference(strRefName As String) As Boolean
Dim ref As Reference
On Error GoTo Error_RemoveReference
' Return object representing existing reference.
Set ref = objRefEvents.evtReferences(strRefName)
' Remove reference from collection.
objRefEvents.evtReferences.Remove ref
RemoveReference = True
Exit_RemoveReference:
Exit Function
Error_RemoveReference:
MsgBox Err & ": " & Err.Description
RemoveReference = False
Resume Exit_RemoveReference
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.