MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Salvar arquivo em uma pasta na rede

    Compartilhe

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    Registrado : 20/04/2011

    [Resolvido]Salvar arquivo em uma pasta na rede

    Mensagem  Silvio em Qua 22 Abr 2015, 14:38

    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.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3216
    Registrado : 15/03/2013

    Re: [Resolvido]Salvar arquivo em uma pasta na rede

    Mensagem  ahteixeira em Qua 22 Abr 2015, 16:50

    Olá Silvio, teste assim:

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

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

    Abraço

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    Registrado : 20/04/2011

    Re: [Resolvido]Salvar arquivo em uma pasta na rede

    Mensagem  Silvio em Qua 22 Abr 2015, 18:53

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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3216
    Registrado : 15/03/2013

    Re: [Resolvido]Salvar arquivo em uma pasta na rede

    Mensagem  ahteixeira em Qui 23 Abr 2015, 12:47

    Ok Silvio.
    Abraço

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    Registrado : 20/04/2011

    Re: [Resolvido]Salvar arquivo em uma pasta na rede

    Mensagem  Silvio em Qui 23 Abr 2015, 19:35

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3216
    Registrado : 15/03/2013

    Re: [Resolvido]Salvar arquivo em uma pasta na rede

    Mensagem  ahteixeira em Qui 23 Abr 2015, 19:53

    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

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    Registrado : 20/04/2011

    Re: [Resolvido]Salvar arquivo em uma pasta na rede

    Mensagem  Silvio em Qui 23 Abr 2015, 20:46

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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3216
    Registrado : 15/03/2013

    Re: [Resolvido]Salvar arquivo em uma pasta na rede

    Mensagem  ahteixeira em Qui 23 Abr 2015, 22:46

    Olá, não é nada de especial.
    Temos um bom exemplo do Mestre Avelino, no Maestro ou até no Telemax.
    Segue o link [Você precisa estar registrado e conectado para ver este link.]

    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

      Data/hora atual: Qui 08 Dez 2016, 23:59