Compartilhar via

Propriedade Source

  • Artigo

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; A expressão geralmente é o nome da classe do objeto ou ID programática.

Use o Source para fornecer informações quando o código não conseguir 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 o código de erro desse erro e definirá Fonte como Excel.Application.

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

Quando ocorre um erro inesperado em seu código, a propriedade Source é preenchida automaticamente. Para erros em um módulo padrão, a origem contém o nome do projeto . Para erros em um módulo de classe, a origem 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 à variável MyObjectIDe atribui isso à propriedade Source do objeto Err quando ele gera um erro com o método Raise .

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