[Resolvido]Exportando txt de 02 tabelas relacionadas

Boa Tarde

Novamente preciso da ajuda do pessoal do Fórum.

Peguei uma dica do pessoal do Forum e fiz um código para exportar para .txt.
Quando a exportação sai de uma unica tabela não encontrei problemas.
O que preciso agora é fazer uma exportação para arquivo .txt de duas ou mais tabelas relacionadas e não consegui achar a solução para o código.

DoCmd.OpenQuery "cnt EFD ICMS - C100"
DoCmd.OpenQuery "cnt EFD ICMS - C100 AGRUPADA"
DoCmd.OpenQuery "cnt EFD ICMS - C350"
DoCmd.OpenQuery "cnt EFD ICMS - C170"

Dim N As Integer
Dim rs, rs00, rs01, rs02 As Recordset
Dim Caminho As String

N = FreeFile
Caminho = "c:\BACKUP 2011\EFD ICMS\CLIENTE - ARQUIVO EFD ICMS .txt"

Open Caminho For Output As #N

Set rs = CurrentDb.OpenRecordset("EFD ICMS - C100")
Set rs00 = CurrentDb.OpenRecordset("EFD ICMS - C100 AGRUPADA")
Set rs01 = CurrentDb.OpenRecordset("EFD ICMS - C350")
Set rs02 = CurrentDb.OpenRecordset("EFD ICMS - C170")

Do While Not rs.EOF ‘(tem o rs, rs00 e rs02 e não sei como nomear)

Print #N, "|" & rs!C100_01 & "|" & rs!C100_02 & "|" & rs!C100_03 & "|"
Print #N, "|" & rs00!C170_01 & "|" & rs00!C170_04 & rs00!C170_13 & "|"
Print #N, "|" & rs02!C190_01 & "|" & rs02!C190_02 & "|"; rs02!C190_03 & "|"
rs.MoveNext
rs.Close
Set rs = Nothing

Close #N

End Sub

Boa tarde

Depois de apanhar muito e muitas tentativas, consegui o que precisava em partes.

Para fazer a exportação foi colocado o código abaixo, mas quando chega no ultimo registro do rs02 dá "Erro em tempo de execução" "Nenhum registro atual".

Alguem pode me ajudar? Já tentei colocar rs02.close em vários lugares mas não deu certo.

Do While Not rs.EOF

Print #N, "|" & rs!C100_01 & "|" & rs!C100_02 & "|" & rs!C100_03 & "|"

Do While rs!LANCAMENTO = rs02!LANCAMENTO
Print #N, "|" & rs02!C170_01 & "|" & rs02!C170_04 & rs02!C170_13 & "|"
rs02.MoveNext
Loop

Print #N, "|" & rs!C190_01 & "|" & rs!C190_02 & "|"; rs!C190_03 & "|"
rs.MoveNext
Loop

rs.Close
Set rs = Nothing

Close #N

End Sub


.

Boa noite, silvestri
Não sei o circuito pretendido mas suponho que seja este:
Do While rs!LANCAMENTO = rs02!LANCAMENTO
Print #N, "|" & rs02!C170_01 & "|" & rs02!C170_04 & rs02!C170_13 & "|"
if rs02.eof then rs02.movefirst else rs02.MoveNext
Loop

Alexandre

Ainda continua parando no ultimo registro do item assinalado em vermelho abaixo.

Não está dando continuidade nas instruções.

Private Sub Comando190_Click()


DoCmd.SetWarnings False

DoCmd.OpenQuery "cnt ATUALIZA PERIODO" 'rs04
DoCmd.OpenQuery "cnt EFD ICMS - R000" 'rs03
DoCmd.OpenQuery "cnt EFD ICMS - C100" 'rs
DoCmd.OpenQuery "cnt EFD ICMS - C100 AGRUPADA" 'rs00
DoCmd.OpenQuery "cnt EFD ICMS - C350" 'rs01
DoCmd.OpenQuery "cnt EFD ICMS - C170" 'rs02

Dim N As Integer
Dim rs, rs00, rs01, rs02, rs03, rs04 As Recordset
Dim Caminho As String

N = FreeFile
Caminho = "c:\BACKUP 2011\EFD ICMS\CLIENTE - ARQUIVO EFD ICMS .txt"

Open Caminho For Output As #N

Set rs = CurrentDb.OpenRecordset("EFD ICMS - C100")
Set rs00 = CurrentDb.OpenRecordset("EFD ICMS - C100 AGRUPADA")
Set rs01 = CurrentDb.OpenRecordset("EFD ICMS - C350")
Set rs02 = CurrentDb.OpenRecordset("EFD ICMS - C170")
Set rs03 = CurrentDb.OpenRecordset("EFD ICMS - R000")
Set rs04 = CurrentDb.OpenRecordset("PERIODO")

' comando abaixo para cabeçalho do arquivo

Print #N, "|" & rs03!r000_01 & "|" & rs03!r000_02 & "|" & rs03!r000_03 & "|" & Format(rs03!r000_04, "ddmmyyyy") & "|" & Format(rs03!r000_05, "ddmmyyyy") & "|" & rs03!r000_06 & "|" & rs03!r000_07 & "|" & rs03!r000_08 & "|" & rs03!r000_09 & "|" & rs03!r000_10 & "|" & rs03!r000_11 & "|" & rs03!r000_12 & "|" & rs03!r000_13 & "|" & rs03!r000_14 & "|" & rs03!r000_15 & "|"
Print #N, "|0001|0|"
Print #N, "|" & rs03!r0005_01 & "|" & rs03!r0005_02 & "|" & Format(rs03!r0005_03, "00000000") & "|" & rs03!r0005_04 & "|" & rs03!r0005_05 & "|" & rs03!r0005_06 & "|" & rs03!r0005_07 & "|" & rs03!r0005_08 & "|" & rs03!r0005_09 & "|" & rs03!r0005_10 & "|"
Print #N, "|" & rs03!r0100_01 & "|" & rs03!r0100_02 & "|" & rs03!r0100_03 & "|" & rs03!r0100_04 & "|" & rs03!r0100_05 & "|" & rs03!r0100_06 & "|" & rs03!r0100_07 & "|" & rs03!r0100_08 & "|" & rs03!r0100_09 & "|" & rs03!r0100_10 & "|" & rs03!r0100_11 & "|" & rs03!r0100_12 & "|" & rs03!r0005_10 & "|" & rs03!r0100_14 & "|"

Do While Not rs00.EOF

Print #N, "|" & rs00!C150_01 & "|" & rs00!C100_04 & "|"; rs00!C150_03 & "|"; rs00!C150_04 & "|"; rs00!C150_05 & "|"; rs00!C150_06 & "|"; rs00!C150_07 & "|"; rs00!C150_08 & "|"; rs00!C150_09 & "|"; rs00!C150_10 & "|"; rs00!C150_11 & "|"; rs00!C150_12 & "|"; rs00!C150_13 & "|"

rs00.MoveNext
Loop

' comando abaixo para os dados do rodapé do arquivo

Print #N, "|0990|99|"
Print #N, "|C001|0|"

' comando abaixo para os dados do corpo do arquivo

Do While Not rs.EOF

Print #N, "|" & rs!C100_01 & "|" & rs!C100_02 & "|" & rs!C100_03 & "|" & rs!C100_04 & "|" & rs!C100_05 & "|" & rs!C100_06 & "|" & rs!C100_07 & "|" & rs!C100_08 & "|" & rs!C100_09 & "|" & Format(rs!C100_10, "ddmmyyyy") & "|" & Format(rs!C100_11, "ddmmyyyy") & "|" & rs!C100_12 & "|" & rs!C100_13 & "|" & rs!C100_14 & "|" & rs!C100_15 & "|" & rs!C100_16 & "|" & Format(rs!C100_17, "#;(#)") & "|" & rs!C100_18 & "|" & rs!C100_19 & "|" & rs!C100_20 & "|" & rs!C100_21 & "|" & rs!C100_22 & "|" & Format(rs!C100_23, "#.#0; (#.#0)") & "|" & rs!C100_24 & "|" & rs!C100_25 & "|" & rs!C100_26 & "|" & rs!C100_27 & "|" & rs!C100_28 & "|" & rs!C100_29 & "|"

Do While rs!LANCAMENTO = rs02!LANCAMENTO

Print #N, "|" & rs02!C170_01 & "|" & rs02!C170_02 & "|"; rs02!C170_03 & "|"; rs02!C170_04 & "|"; rs02!C170_05 & "|"; rs02!C170_06 & "|"; rs02!C170_07 & "|"; rs02!C170_09 & "|"
If rs02.EOF Then rs02.MoveFirst Else rs02.MoveNext
'rs02.MoveNext
Loop
Print #N, "|" & rs!C190_01 & "|" & rs!C190_02 & "|"; rs!C190_03 & "|"; rs!C190_04 & "|"; rs!C190_05 & "|"; rs!C190_06 & "|"; rs!C190_07 & "|"; rs!C190_08 & "|"; rs!C190_09 & "|"; rs!C190_10 & "|"; rs!C190_11 & "|"; rs!C190_12 & "|"

rs.MoveNext
Loop

Do While Not rs01.EOF

Print #N, "|" & rs01!C350_01 & "|" & rs01!C350_02 & "|"; rs01!C350_03 & "|"; rs01!C350_04 & "|" & Format(rs01!C350_05, "ddmmyyyy") & "|" & rs01!C350_06 & "|" & rs01!C350_07 & "|" & rs01!C350_08 & "|" & rs01!C350_09 & "|" & rs01!C350_10 & "|" & rs01!C350_11 & "|" & rs01!C350_12 & "|"
Print #N, "|" & rs01!C390_01 & "|"; rs01!C390_02 & "|"; rs01!C390_03 & "|"; rs01!C390_04 & "|"; rs01!C390_05 & "|"; rs01!C390_06 & "|"; rs01!C390_07 & "|"; rs01!C390_08 & "|"; rs01!C390_09 & "|"

rs01.MoveNext
Loop

' comando abaixo para os dados do rodapé do arquivo

Print #N, "|C990|304|"
Print #N, "|E001|0|"
Print #N, "|E100|" & Format(rs04!datainicial, "ddmmyyyy") & "|" & Format(rs04!datafinal, "ddmmyyyy") & "|"

rs.Close
Set rs = Nothing

Close #N

End Sub

Veja a evolução do valor neste ponto e se obedece ao que pretende

Alexandre

Me desculpe, mas não entendi a sua colocação.

O que acontece é que no ultimo registro o sistema dá erro pois na~encontra mais nenhum registro da instrução rs02.

Isso devia ser resolvido pela instrução
If rs02.EOF Then rs02.MoveFirst Else rs02.MoveNext

Alexandre

COntinua dando o mesmo erro quando chega ao ultimo registro. Mesmo com essa instrução.

disponibilize bd com o essencial para teste

Alexandre

Fui anexar mas arquivo ficou grande.

Qual outra maneira de enviar?

Alexandre

Apaguei alguns registros e fiz o teste. Agora consegui compactar para poder enviar por aqui

falta ficheiro txt

Alexandre

Segue anexo

Só para voce saber, as informações que pede ao processar são:

A empresa é 13 e o layout 008. A data pode ser qualquer uma entre 01/01/2013 e 31/03/2013

Coloque este trecho
Do While Not Rs.EOF 'Or rs02.EOF

Print #N, "|" & Rs!C100_01 & "|" & Rs!C100_02 & "|" & Rs!C100_03 & "|" & Rs!C100_04 & "|" & Rs!C100_05 & "|" & Rs!C100_06 & "|" & Rs!C100_07 & "|" & Rs!C100_08 & "|" & Rs!C100_09 & "|" & Format(Rs!C100_10, "ddmmyyyy") & "|" & Format(Rs!C100_11, "ddmmyyyy") & "|" & Rs!C100_12 & "|" & Rs!C100_13 & "|" & Rs!C100_14 & "|" & Rs!C100_15 & "|" & Rs!C100_16 & "|" & Format(Rs!C100_17, "#;(#)") & "|" & Rs!C100_18 & "|" & Rs!C100_19 & "|" & Rs!C100_20 & "|" & Rs!C100_21 & "|" & Rs!C100_22 & "|" & Format(Rs!C100_23, "#.#0; (#.#0)") & "|" & Rs!C100_24 & "|" & Rs!C100_25 & "|" & Rs!C100_26 & "|" & Rs!C100_27 & "|" & Rs!C100_28 & "|" & Rs!C100_29 & "|"
If rs02.EOF Then rs02.MoveFirst 'nova linha
Do While Rs!LANCAMENTO = rs02!LANCAMENTO

Print #N, "|" & rs02!C170_01 & "|" & rs02!C170_02 & "|"; rs02!C170_03 & "|"; rs02!C170_04 & "|"; rs02!C170_05 & "|"; rs02!C170_06 & "|"; rs02!C170_07 & "|"; rs02!C170_09 & "|"
rs02.MoveNext
Loop

Print #N, "|" & Rs!C190_01 & "|" & Rs!C190_02 & "|"; Rs!C190_03 & "|"; Rs!C190_04 & "|"; Rs!C190_05 & "|"; Rs!C190_06 & "|"; Rs!C190_07 & "|"; Rs!C190_08 & "|"; Rs!C190_09 & "|"; Rs!C190_10 & "|"; Rs!C190_11 & "|"; Rs!C190_12 & "|"

Rs.MoveNext
Loop

Alexandre

Agora deu certo. Valeu pelo esforço e ajuda

Alexandre

Desculpepela falha. Já marquei ocmo resolvido

Já tinha feito a marcação