Propriedade MailMergeDataSource.TableName (Word)

Retorna uma cadeia de caracteres com a consulta SQL usado para recuperar os registros do arquivo de fonte de dados anexado a um documento de mala direta. Somente leitura.

Sintaxe

expressão. Tablename

Expressão Uma variável que representa um objeto 'MailMergeDataSource'.

Comentários

Esta propriedade poderá estar vazia se o nome da tabela for desconhecido ou não aplicável à fonte de dados atuais.

Exemplo

Este exemplo verifica se a tabela Customers é o nome da tabela na fonte de dados anexada. Se não for, a tabela Customers será anexada ao banco de dados Northwind.

Observação

[!OBSERVAçãO] Este exemplo usa a função InStr do Visual Basic, que retorna a posição do primeiro caractere na segunda seqüência se ela existir na primeira cadeia de caracteres. Um valor de zero (0) é retornado se a primeira cadeia de caracteres não contiver a segunda cadeia de caracteres. Configuração do valor condicional para menos de um (1) indica que a tabela vinculada não é nomeada Customers.

Sub DataSourceTable() 
 With ActiveDocument.MailMerge 
 If InStr(1, .DataSource.TableName, "Customers") < 1 Then 
 .OpenDataSource Name:="C:\ProgramFiles\Microsoft Office\Office\" & _ 
 "Samples\Northwind.mdb", LinkToSource:=True, _ 
 AddToRecentFiles:=False, Connection:="TABLE Customers" 
 End If 
 End With 
End Sub

Confira também

Objeto MailMergeDataSource

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.