Compartilhar via

Propriedade Source

Devolve ou define uma expressão de cadeia especificando o nome do objeto ou aplicação que gerou originalmente o erro. Leitura/gravação.

Comentários

A propriedade Origem especifica uma expressão de cadeia que representa o objeto que gerou o erro; normalmente, a expressão é o nome da classe ou ID programático do objeto.

Utilize a Origem para fornecer informações quando o código não consegue processar um erro gerado num objeto acedido. Por exemplo, se aceder ao Microsoft Excel e este gerar um Division by zero erro, o Excel define Err.Number como o código de erro para esse erro e define Origem como Excel.Application.

Ao gerar um erro a partir do código, Origem é o ID programático da sua aplicação. Para módulos de classe, Source deve conter um nome com o formulário project.class.

Quando ocorre um erro inesperado no código, a propriedade Origem é preenchida automaticamente. Para erros num módulo padrão, a Origem contém o nome do projeto . Para erros num módulo de classe, Origem contém um nome com o formulário project.class .

Exemplo

Este exemplo atribui o ID Programático de um objeto de Automatização criado no Visual Basic à variável MyObjectIDe, em seguida, atribui-o à propriedade Origem do objeto Err quando gera um erro com o método Raise .

Ao processar erros, não deve utilizar a propriedade Origem (ou quaisquer propriedades Err que não o Número) programaticamente. A única utilização válida de propriedades que não o Número é para apresentar informações avançadas a um utilizador final em casos em que não consegue lidar com um erro. O exemplo pressupõe que App e MyClass são referências válidas.

Dim MyClass, MyObjectID, MyHelpFile, MyHelpContext
' An object of type MyClass generates an error and fills all Err object
' properties, including Source, which receives MyObjectID, which is a 
' combination of the Title property of the App object and the Name
' property of the MyClass object.
MyObjectID = App.Title & "." & MyClass.Name
Err.Raise Number := vbObjectError + 894, Source := MyObjectID, _
          Description := "Was not able to complete your task", _
          HelpFile := MyHelpFile, HelpContext := MyHelpContext

Confira também

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.

  • Last updated on