[Resolvido]Exportar Consulta em .txt para local na rede

Caros colegas do fórum,

Estou com um problema que agradecia uma resposta tão breve quanto possível.

Pretendo exportar para uma localização na rede uma consulta do access 2010 sob a forma de ficheiro .txt.

Mas essa consulta tem que ao ser exportada assumir um determinado nome para o ficheiro que vai ser criado.

O código que deveria fazê-lo funciona em termos de criação do ficheiro e exportação,  mas com um problema: não consigo atribuir ao ficheiro o nome desejado.

No parâmetro da função que atribui o nome ao ficheiro indico o caminho da localização na rede mas depois precisava que o nome do ficheiro assumisse o valor da variável, no caso concreto o valor da variável "strNomeFich". Só que  não estou a conseguir pois ele escreve o nome da variável e não o seu valor. Depois também tentei definindo uma outra variável (strFichFinal) que me desse o caminho completo mas não funciona também pois atribui ao ficheiro o nome da variável e exporta para a minha máquina e não para a localização devida. Como devo fazer???

Bem haja antecipadamente pelo vosso tempo e pela vossa "expertise"!!!!

Aqui segue o código para análise e correcção:

Private Sub Macro2()
On Error GoTo Macro2_Err

   Const Caminho = "\\ETJAD003\Users\Public\GESCOLATESTES\"

   Dim strNomeFich As String

   Dim strFichFinal As String


   strNomeFich = Forms!FormOperacoesMensais!TxtFichSIS

   strFichFinal = Caminho & strNomeFich
   
1ª Tentativa: DoCmd.OutputTo acOutputQuery, "Consulta SISCOLAR EXPORTFILE FINAL", "MS-DOSText(*.txt)", "\\ETJAD003\Users\Public\GESCOLATESTES\ & strNomeFich",  False, "", 1, acExportQualityPrint

2ª Tentativa: DoCmd.OutputTo acOutputQuery, "Consulta SISCOLAR EXPORTFILE FINAL", "MS-DOSText(*.txt)", "strFichFinal", False, "", 1, acExportQualityPrint


Macro2_Exit:
   Exit Sub

Macro2_Err:
   MsgBox Error$
   Resume Macro2_Exit

End Sub

Boa tarde,

Experimente adaptar código abaixo para sua necessidade....

Private Sub Command253_Click()
Dim strArquivo As String ' Nome que voce quer dar ao seu ficheiro txt
Dim strLocal As String 'Caminho onde vai ficar seu ficheiro txt
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
strArquivo = "NovoNomeFicheiro" & ".txt"
strLocal = "C:" & "\" & strArquivo
DoCmd.OutputTo acOutputReport, "SeuRelatório", acFormattxt, strLocal, False
MsgBox "Arquivo criado com sucesso.", vbInformation, "Enviar para " & strArquivo
End Sub

Caso preciso poste aqui sua BD para dar um help...

Abraço...

Caro colega Roberto_1977

Bem haja pela sua pronta resposta e óptima solução!!!

Abraço.

Boa tarde,

Ainda bem que pude ajudar...

Abraço....