MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3648
    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.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4480
    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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3648
    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.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4480
    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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3648
    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.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4480
    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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3648
    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.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4480
    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.

    [Você precisa estar registrado e conectado para ver este link.]

    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: Ter 24 Out 2017, 08:41