[Resolvido]Salvar arquivo em uma pasta na rede

Prezados, bom dia a todos.

Tenho comigo o seguinte código:

Código:

Private Sub bt_gerarPDF_Click()
Dim strarquivo As String
Dim strlocal As String

strarquivo = "Óbito Nº" & Me.CodObito & "   " & Me.Prop & ".pdf"
strlocal = CurrentProject.PATH & "\Obito\" & strarquivo
 
'Abre o relatório devidamente filtrado e oculto
DoCmd.OpenReport "obito", acViewPreview, , "CodObito=  " & Me!CodObito, acHidden
 '                                
'Gera arquivo pdf do relatório previamente aberto e filtrado.
DoCmd.OutputTo acOutputReport, "Obito", acFormatPDF, strlocal
 
'Fecha o relatório
DoCmd.Close acReport, "Obito"

Por azar, deu PT no HD de BKP que eu uso, com vários comandos e exemplos.

O que acontece, preciso centralizar ( salvar ) todos os PDF gerados ( são vários ) no Front End para varias pastas que estão no servidor da rede.

Sei que tenho que mudar essa linha, mas não consigo mais lembrar....

strlocal = CurrentProject.PATH & "\Obito\" & strarquivo
onde Obito é a pasta

O servidor cujo nome é: SRVW01000.

Não sei se seria isso:

strlocal = \\srvw01000 & "\Obito\" & strarquivo

Se alguém souber, fico agradecido.

Olá Silvio, teste assim:

altere na linha:
strlocal = CurrentProject.PATH & "\Obito\" & strarquivo

por:
strlocal = "\\SRVW01000\Obito\" & strarquivo

Abraço

Grande Alvaro, daqui a pouco eu te falo....estou em cliente e longe do sistema....fazendo outras atividades em outros computadores.

Ok Silvio.
Abraço

Alvaro, ficou dessa forma...

strlocal = "\\mesa\autopeças\orçamentos\" & strarquivo

onde:
mesa= nome do servidor.
autopeças = nome da pasta.
orçamentos= nome da subpasta.

Eu não me lembrava, tanto que vou deixar aqui, para que outros que passam pela mesma situação já tenham algo como referencia.

Grato e um grande abraço a ti.

Ps....São aspas duplas e não apostrofo no inicio e no fim

Olá Silvio, obrigado pelo retorno.
Mais uma dica de como costumo fazer.
Normalmente nos meus projectos tenho o caminho dos dados configurável em que por defeito normalmente é na pasta:

Application.CurrentProject.Path & "\Dados\"
Ficando por exemplo C:\AHTapps\NomeProjecto\Dados\

Quando pretendo colocar em rede ou escolher outra pasta, vou às configurações e altero (selecionando) o caminho.

Ao abrir o projecto é logo atribuído o caminho a uma variável do tipo LocalDados
Depois no código fica mais fácil, neste seu caso ficaria:

strlocal = LocalDados &"orçamentos\" & strarquivo

Repare que para fazer backup ou passar os dados para outra máquina é só copiar todo o conteúdo da pasta configurada.

Abraço

Pombas, me passa a sequencia correta em vba para eu estudar aqui.

Olá, não é nada de especial.
Temos um bom exemplo do Mestre Avelino, no Maestro ou até no Telemax.
Segue o link http://www.usandoaccess.com.br/download.asp

No entanto também disponibilizo pequeno exemplo de um projecto que ajudei colega aqui do fórum.

AHTprog.zip

Repare na tabela Config no front_end com o local dos ficheiros.
É esta localização que vou buscar para colocar no código.
Imagine que ia fazer arquivo de PDFs só tinha que dizer
localPDFs = LocalFicheirosDados &"PDF\"
Abraço