Propriedade Source

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

Comentários

A propriedade Source especifica uma expressão de cadeia de caracteres que representa o objeto que gerou o erro; geralmente a expressão é o nome da classe do objeto ou a ID programática.

Use Source para fornecer informações quando o código não for capaz de lidar com um erro gerado em um objeto acessado. Por exemplo, se você acessar o Microsoft Excel e ele gerar um Division by zero erro, o Excel definirá Err.Number como seu código de erro para esse erro e definirá Source como Excel.Application.

Ao gerar um erro de código, Source é a ID programática do aplicativo. Para módulos de classe, o Source deve conter um nome com o formato project.class.

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

Exemplo

Este exemplo atribui a ID programática de um objeto de automação criado no Visual Basic para a variável MyObjectIDe, em seguida, atribui isso à propriedade Source do objeto Err quando ele gera um erro com o método Raie .

Ao lidar com erros, você não deve usar a propriedade Source (ou qualquer propriedade Err diferente de Number) programaticamente. O único uso válido de propriedades diferentes de Número é exibir informações avançadas para um usuário final nos casos em que você 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