[Resolvido]Exportar com largura fixa via VBA

Bom dia pessoal, sou relativamente novo no Fórum já tirei algumas dúvidas e gostaria de agradecer a todos vocês.

Estou com um problema ao exportar uma tabela para TXT, com layout definido onde migrarei para outro sistema. Já fiz várias formatações e o único problema que me falta resolver é que não consigo exportar com largura fixa um campo que não tenha dados, por exemplo:

Tenho uma tabela em que o campo data não é obrigatório, logo em alguns registros este campo estará em branco e é justamente ai que causa a distorção no meu TXT. Ao exportar obtenho o seguinte resultado:

Data             DataBaixa     CodUnidade    CodOrgao

Resultado Obtido:
 
01102013       29102013           6                 7
01102013       16102013           5                 7
01102013       6                 7
05102013       13102013           6                 7  
01102013       6                 7
01102013       16102013           5                 7

Resultado esperado:

01102013       29102013           6                 7
01102013       16102013           5                 7
01102013      ----------------         6                 7
05102013       13102013           6                 7
01102013      ----------------         6                 7
01102013       16102013           5                 7

Conto com a colaboração de todos e espero poder resolver esse probleminha aqui.

Olha, pelo que esta mostrando, é só voce fazer um tratamento de preencher "vazio" no campo data null ou que vem vazio, e voce pode fazer isso em uma outra consulta e depois exportar esta consulta,
bem se não for exatamente isso envie seu banco convertido em Access 2003, por favor, zipado, para dar uma olhada e te envio de volta

Obrigado Cleber, farei isso agora...

Segue BD e junto um txt com a formatação correta.

Carlos, não sei se posso te ajudar, achei que sua duvida não era sobre "recordset", e fiz usando especificações via DoCmd.TransferText,
se desta maneira servir, beleza, está em anexo

agora se voce quer fazer da maneira que estava fazendo, outra pessoa no site
vai poder te ajudar melhor, então refaça sua pergunta ou espere outro instrutor ok

até

Bom dia Cleber, ainda estou tentando adaptar a minha situação com a solução que você me apresentou.
Se eu tivesse como fazer essa exportação direto da tabela ao invés da consulta facilitaria para mim.

Enquanto isso se algum instrutor puder me ajudar a formatar esta string resolveria todo meu problema, pois é a única coisa que falta para terminar o meu projeto.

 Replace(Format(RSP!DataBaixa, "@@@@@@@@"), "/", "") & Space(0) & Format(RSP!CodOrgao, "@@@@") & Space(0) & Format(RSP!CodUnidadeOrcamentaria, "@@@@") & Space(0) & (RSP!Numeracao)
           
Preciso que me retorne espaços em branco caso o valor do registro seja Null

Ja tentou o IIF que é o mesmo SeImed tipo
IIF(IsNull(RSP!DataBaixa),"   10 espaços     ",Replace(Format(RSP!DataBaixa, "@@@@@@@@"), "/", ""))
pode ser que dê certo

ou
dim d
if Isnull(RSP!DataBaixa) then
d="  10 espaços      "
else
d = RSP!DataBaixa
end if
Replace(Format(d, "@@@@@@@@"), "/", "")

eu fiz e deu certo, veja em anexo

Olá Cleber, estou muito agradecido pela sua dedicação em querer me ajudar e foi à partir da sua ideia que consegui desenvolver a formatação necessária para exportação da minha tabela.
Eu consegui resolver através de uma consulta acréscimo em que faço a concatenação das duas datas "Data" e "DataBaixa", e no mesmo campo eu retiro os separadores através de um "Replace(SeuCampo; ","; ".")". Ao executar a consulta ela ja transfere as datas que eram os meus problemas formatadas para a tabela que preciso para fazer a exportação, no VBA eu formato essa String usando o "Len". Coloco tudo no "ao clicar" do botão exportar e pronto.

Do outro jeito ficou um pouco complicado para mim pelo fato de não possuir o conhecimento necessário para manipulação desses códigos que você me passou, mas tenho certeza que seria um forma sensacional para resolver o meu problema também.

Gostaria que você testasse para ver como ficou, só não sei como tirar essa primeira linha em branco que aparece no Txt, caso você saiba me ajude por favor.

Deixarei aqui o exemplo convertido para 2003 caso alguém precise.

Um grande abraço, e estarei sempre por aqui.

Obrigado.