[Resolvido]Exportar Duas Consultas para um arquivo Txt

Boa tarde.

Fiz uma busca no fórum e encontrei um tópico relacionado, porém não consegui entender, até porque o tópico foi dado como Resolvido mas não foi apresentada a solução.

Estou usando esse código abaixo para exportar as consultas. São consultas exclusão e quero exportá-las para caso seja necessário eu tenha onde consultas quem e quando elas foram executadas.

As consultas são exportadas porém, são sobrepostas, a segunda consulta substitui a primeira e eu fico somente com os dados da SubTabela.

Preciso do vosso apoio novamente, muito obrigado.

Private Sub Comando6_Click()
Dim NomeTxt As Integer
NomeTxt = Format(Now(), "yyyymmdd hhmmss ") & CurrentUser() & ".txt"
DoCmd.OutputTo acOutputQuery, "ConsExcluiServicoTabManutencao", acFormatTXT, NomeTxt
DoCmd.OutputTo acOutputQuery, "ConsExcluiServicoSubTabManutencao", acFormatTXT, NomeTxt
DoCmd.OpenQuery "ConsExcluiServicoSubTabManutencao"
DoCmd.OpenQuery "ConsExcluiServicoTabManutencao"
Me.Form.Requery
Me.Lista2.Requery
Me.Lista4.Requery
Me.Combinação0.Requery
End Sub

Olá Leandro,

Tente assim e vê se dá certo:

Private Sub Comando6_Click()
Dim NomeTxt As Integer
Dim i As Integer
Dim ordem As Integer

NomeTxt = Format(Now(), "yyyymmdd hhmmss ") & CurrentUser() & ".txt"

For i = 1 To 2
ordem = CInt(InputBox("Digite a ordem da exportação:", "NomedoForm"))
If ordem = 1 Then
DoCmd.OutputTo acOutputQuery, "ConsExcluiServicoTabManutencao", acFormatTXT, NomeTxt
Else
DoCmd.OutputTo acOutputQuery, "ConsExcluiServicoSubTabManutencao", acFormatTXT, NomeTxt
End If
Next
DoCmd.OpenQuery "ConsExcluiServicoSubTabManutencao"
DoCmd.OpenQuery "ConsExcluiServicoTabManutencao"
Me.Form.Requery
Me.Lista2.Requery
Me.Lista4.Requery
Me.Combinação0.Requery
End Sub

Good Guy, dessa jeito me retornou a mensagem de "Tipos Incompatíveis"
Private Sub Comando6_Click()
Dim NomeTxt As Integer
Dim i As Integer
Dim ordem As Integer

NomeTxt = Format(Now(), "yyyymmdd hhmmss ") & CurrentUser() & ".txt"
For i = 1 To 2
ordem = CInt(InputBox("Digite a ordem da exportação:", "NomedoForm"))
If ordem = 1 Then
DoCmd.OutputTo acOutputQuery, "ConsExcluiServicoTabManutencao", acFormatTXT, NomeTxt
Else
DoCmd.OutputTo acOutputQuery, "ConsExcluiServicoSubTabManutencao", acFormatTXT, NomeTxt
End If
Next
DoCmd.OpenQuery "ConsExcluiServicoSubTabManutencao"
DoCmd.OpenQuery "ConsExcluiServicoTabManutencao"
Me.Form.Requery
Me.Lista2.Requery
Me.Lista4.Requery
Me.Combinação0.Requery
End Sub

Olá Leandro,

Então sua declaração está errada. Reveja aí:

Dim NomeTxt As Integer
Troque por:

Dim NomeTxt As String

Ficou como "As Variant", na minha limitação VBAlística, acho que deve ser porque o critério do nome muda?

Mas não funcionou, as consultas não estão sendo colocadas num txt só, elas estão substituindo o arquivo.

Olá Leandro,

Teste aqui o código e deu certo. Não tem como salvar um arquivo como .txt com um nome e salvar o outro com um nome diferente e substituir o arquivo anterior. Não estou entendendo a sua dúvida.

Acho então que não fui claro na minha explicação, preciso que o conteúdo das duas consultas seja colocado dentro de apenas um arquivo texto, ex:

Consulta 1
OrdemExecucao...DataExecucao....ProtocoloExecucao
10..............19/4/2012.......20120309103911577

Consulta 2
RecursoSubTabExecucao...ServicoSubTabExecucao...QtdeServicoSubTabExecucao
2.......................130.....................1,00
2.......................42......................1,00
2.......................48......................1,00

É assim que eu preciso que seja o txt. Mas não serão só três colunas, fiz só como demonstração.

Olá Leandro,

Nestas duas consultas tem campo calculado? Senão, tente criar uma só consulta usando UNION ALL OU INNER JOIN ou mesmo ambas.

Good, elas não tem cálculos, são consultas exclusão, mas posso montar na ordem do código outras consultas seleção. Agora eu quero saber o seguinte, como funciona a Union All? Eu já usei a Union somente.
As consultas no total tem 16 e 10 campos, funciona mesmo assim?
Obrigado pela força.

Bom dia Leandro,

A UNION ALL permite que você combine o conjunto de resultados de 2(duas) ou mais consultas SELECT.

A principal diferença é que UNION eliminará qualquer registro em duplicata devolvido pela várias declarações SELECT que estão unidas considerando que a UNION ALL não fará isso. Esta devolverá todos os registros inclusive registros em duplicata.

Há vários exemplos na internet ou mesmo no Ajuda do Access. Segue alguns links:

http://www.techonthenet.com/sql/union_all.php

Link de assunto correlato:

http://www.expertaccess.com.br/forumnew/forum_posts.asp?TID=21340

"O temor do Senhor é o princípio do conhecimento..."(Sl 111.10); Disse Jesus: "Eu sou a luz do mundo. Quem me segue não andará em trevas,..."(Jo 8.12); "Provai e vede que o Senhor é bom..."(Sl 34.

Goodguy, tive outra solução para este caso, mesmo talvez não sendo a mais técnica, fiz um relatório com subrelatório, no caso as duas consultas, e usei o DoCmd.OutPut para exportar o relatório, ficou como eu quero!

Obrigado pela força.