[Resolvido]Exportação TXT - Último campo não exporta

Olá Amigos!

Novamente venho aqui buscar uma ajuda valiosa.

No arquivo em anexo, existe um formulário chamado "Pendencias". Ao acessar o mesmo, vão ver um registro de controle número "7" já preenchido.

Quando clico no botão"Exportar Arquivo", o arquivo é gerado na área de trabalho da seguinte forma:

Primeira linha: Os campos do "Header do Arquivo", que são do H1 ao H6;
Segunda linha: Os campos do "Registro de Pendências", que são do 1 ao 22;
Terceira linha: Os campos do "Trailler do Arquivo", que são do T1 ao T7;

Os campos de exportação estão discriminados na consulta "qryExport_header","qryExport_pendencias" e "qryExport_trailler";
O Exportador usado foi criado pelo grande colaborador deste grupo, JPaulo, que chama "modExportaParaTXT";

Meu problema é que tanto o campo H6 (do header) e T7 (do trailler), que são campos fixos com espaços em branco, não são exportados.

Fiz um teste, onde se eu criar um campo após esses dois, como por exemplo um H7 e um T8 preenchidos, eles são exportados e o H7 e T8 não, ou seja, imagino que "problema"seja serem os últimos de cada bloco.

Ao clicar no botão "Exportar Arquivo", o valor que devem inserir é 078666 ou somente cliquem em CTRL + V que o sistema cola o valor do campo lote.

Podem me ajudar?

Exemplo_Download

Olá;

O seu H6 e T7 não tem valores e são os ultimos campos.

Como pretende que seja exportado se estiver Nulo ?

Se você adicionar uma nova coluna exemplo: H7 e escrever lá algo, funciona.

Veja:
Download

Olá JPaulo, como vai?

Os dois campos (H6 e T7) precisam gerar 177 e 193 espaços em branco (ambos possuem um evento ao perder o foco) respectivamente e como pode conferir no print em anexo, os mesmos estão com esses espaços, por isso deu a ideia de estarem vazios, mas não estão.

Esses espaços precisam ser exportados.

Não posso criar um campo após esses dois, pois realmente são os últimos e preciso seguir o layout que foi enviado.

Desde já obrigado

Olá;

A unica alternativa para isso é usarmos a função interna "Space" no Do Until.

Código:

            If Left(rs.Fields(i).Value, 1) = "H" Then
            OutputLine = rs.Fields(i).Value & Space(177) 'acrescenta 177 espaços no final do header
            Else
            OutputLine = rs.Fields(i).Value
            End If

Veja se assim já serve;

Download

Olá JPaulo!

Perfeito!!! Muito obrigado pelo apoio de sempre.

Abs

Obrigado pelo retorno o forum agradece.