Boa noite
Temos um banco de dados que exporta uma tabela para .TXT. Quando realizamos a exportação é necessário que o campo PC da tabela esteja alinhado a direita. Busquei resolver mas não consegui.
Gostaria da ajuda do FORUM se possível me passar alguma referencia. Abaixo estou postando a macro VBA onde seria o local que precisaríamos colocar este novo comando ou outra sugestão para mim.
Obrigado
Leo Lobo
Option Compare Database
'------------------------------------------------------------
' SELENEENVIA
'------------------------------------------------------------
Function SELENEENVIA()
On Error GoTo SELENEENVIA_Err
DoCmd.TransferText acExportFixed, "EXPORTA PARA IMPORTAR WSHOP", "PLANILHA FLICKT FINAL", "\\Ad\C\Documents and Settings\All Users\Desktop\SELENE IMPORTACAO AUTOMATICA.txt", False, ""
DoCmd.TransferText acExportDelim, "Exporta o TXT", "LEOTXT2", "\\Ad\C\Documents and Settings\All Users\Desktop\SELENE.txt", False, ""
DoCmd.TransferText acExportDelim, "Exporta o TXT", "LEOTXT2CAD", "\\Ad\C\Documents and Settings\All Users\Desktop\SELENE CODIGOS CADASTRADOS.txt", False, ""
SELENEENVIA_Exit:
Exit Function
SELENEENVIA_Err:
MsgBox Error$
Resume SELENEENVIA_Exit
End Function
Temos um banco de dados que exporta uma tabela para .TXT. Quando realizamos a exportação é necessário que o campo PC da tabela esteja alinhado a direita. Busquei resolver mas não consegui.
Gostaria da ajuda do FORUM se possível me passar alguma referencia. Abaixo estou postando a macro VBA onde seria o local que precisaríamos colocar este novo comando ou outra sugestão para mim.
Obrigado
Leo Lobo
Option Compare Database
'------------------------------------------------------------
' SELENEENVIA
'------------------------------------------------------------
Function SELENEENVIA()
On Error GoTo SELENEENVIA_Err
DoCmd.TransferText acExportFixed, "EXPORTA PARA IMPORTAR WSHOP", "PLANILHA FLICKT FINAL", "\\Ad\C\Documents and Settings\All Users\Desktop\SELENE IMPORTACAO AUTOMATICA.txt", False, ""
DoCmd.TransferText acExportDelim, "Exporta o TXT", "LEOTXT2", "\\Ad\C\Documents and Settings\All Users\Desktop\SELENE.txt", False, ""
DoCmd.TransferText acExportDelim, "Exporta o TXT", "LEOTXT2CAD", "\\Ad\C\Documents and Settings\All Users\Desktop\SELENE CODIGOS CADASTRADOS.txt", False, ""
SELENEENVIA_Exit:
Exit Function
SELENEENVIA_Err:
MsgBox Error$
Resume SELENEENVIA_Exit
End Function