Método Application.CreateAdditionalData (Access)

Cria um objeto AdditionalData que pode ser usado para adicionar tabelas e consultas adicionais à tabela pai que está sendo exportada pelo método ExportXML .

Sintaxe

expressão. CreateAdditionalData

expressão Uma variável que representa um Aplicativo objeto.

Valor de retorno

AdditionalData

Exemplo

O exemplo a seguir exporta o conteúdo da tabela Customers no banco de dados de exemplo da Northwind Traders, juntamente com o conteúdo das tabelas Orders e Orders Details para um arquivo de dados XML denominado Customer Orders.xml.

Sub ExportCustomerOrderData() 
 Dim objOrderInfo As AdditionalData 
 
 Set objOrderInfo = Application.CreateAdditionalData() 
 
 ' Add the Orders and Order Details tables to the data to be exported. 
 objOrderInfo.Add "Orders" 
 objOrderInfo.Add "Order Details" 
 
 ' Export the contents of the Customers table. The Orders and Order 
 ' Details tables will be included in the XML file. 
 Application.ExportXML ObjectType:=acExportTable, DataSource:="Customers", _ 
 DataTarget:="Customer Orders.xml", _ 
 AdditionalData:=objOrderInfo 
End Sub

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.