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]Abrir pasta especifica a partir da faixa de opção (Ribbons)

    avatar
    Vanderlei
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 141
    Registrado : 20/01/2011

    [Resolvido]Abrir pasta especifica  a partir da faixa de opção (Ribbons) Empty [Resolvido]Abrir pasta especifica a partir da faixa de opção (Ribbons)

    Mensagem  Vanderlei em 19/9/2019, 14:02

    Olá

    Gostaria de saber se tem como ao clicar no icone PDF na faixa de opções ir diretamente para uma pasta especifica sem passar pelo assistente. Toda vez tem que indicar o caminho onde quero salvar o arquivo


    Grato
    Anexos
    [Resolvido]Abrir pasta especifica  a partir da faixa de opção (Ribbons) AttachmentFaixaOpções.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (41 Kb) Baixado 27 vez(es)
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 739
    Registrado : 11/11/2009

    [Resolvido]Abrir pasta especifica  a partir da faixa de opção (Ribbons) Empty Re: [Resolvido]Abrir pasta especifica a partir da faixa de opção (Ribbons)

    Mensagem  scandinavo em 20/9/2019, 14:43

    Você já tentou por mais um botão nesta faixa com a opção on action e no código colocar o caminho especifico da pasta.
    avatar
    Vanderlei
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 141
    Registrado : 20/01/2011

    [Resolvido]Abrir pasta especifica  a partir da faixa de opção (Ribbons) Empty Re: [Resolvido]Abrir pasta especifica a partir da faixa de opção (Ribbons)

    Mensagem  Vanderlei em 20/9/2019, 18:10

    Olá

    Não.

    será que poderia me ajudar, sou meio devagar

    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 739
    Registrado : 11/11/2009

    [Resolvido]Abrir pasta especifica  a partir da faixa de opção (Ribbons) Empty Re: [Resolvido]Abrir pasta especifica a partir da faixa de opção (Ribbons)

    Mensagem  scandinavo em 23/9/2019, 13:05

    ver anexo

    Este código é para um único relatório, caso queira salvar outros relatórios nesta pasta o código precisa ser alterado.
    mas já é um começo.
    Anexos
    [Resolvido]Abrir pasta especifica  a partir da faixa de opção (Ribbons) Attachmentrribon.txt
    Você não tem permissão para fazer download dos arquivos anexados.
    (4 Kb) Baixado 17 vez(es)
    avatar
    Vanderlei
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 141
    Registrado : 20/01/2011

    [Resolvido]Abrir pasta especifica  a partir da faixa de opção (Ribbons) Empty Re: [Resolvido]Abrir pasta especifica a partir da faixa de opção (Ribbons)

    Mensagem  Vanderlei em 23/9/2019, 19:36

    achei meio complexo o codigo, sei que para muitos este codigo é balela, mas para eu...

    Achei um codigo do colega Gilberlandio Rocha que esta perfeito para mim, so que esta dando um erro e eu não consigo enxergar o que é

    "erro em tempo de execução 424" - Objeto e obrigatorio

    Dim strArquivo As String
    Dim strLocal As String
      strArquivo = "" & NomeRecibo & "-" & "Id" & Me.NumPac & ".pdf"
      strLocal = CurrenteProject.Path & "\enviados\" & strArquivo
      DoCmd.OutputTo acOutputReport, "RelRecibo", acFormatPDF, strLocal
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 739
    Registrado : 11/11/2009

    [Resolvido]Abrir pasta especifica  a partir da faixa de opção (Ribbons) Empty Re: [Resolvido]Abrir pasta especifica a partir da faixa de opção (Ribbons)

    Mensagem  scandinavo em 24/9/2019, 01:29

    Este código você vai por no botão da rribon? Coloca seu banco de dados ai fica mais fácil.
    avatar
    Vanderlei
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 141
    Registrado : 20/01/2011

    [Resolvido]Abrir pasta especifica  a partir da faixa de opção (Ribbons) Empty Re: [Resolvido]Abrir pasta especifica a partir da faixa de opção (Ribbons)

    Mensagem  Vanderlei em 24/9/2019, 10:42

    O código será inserirdo em um botão no formulário FRMRECIBO.

    A intenção é abrir a pasta ENVIADOS  e salvar o RELRECIBO do registro corrente em questão como PDF dentro dela

    A pasta ENVIADOS encontra-se no na mesma pasta do banco

    Caso somente estas informações não seja suficiente, darei um jeito de postar parte do projeto.

    Grato
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 739
    Registrado : 11/11/2009

    [Resolvido]Abrir pasta especifica  a partir da faixa de opção (Ribbons) Empty Re: [Resolvido]Abrir pasta especifica a partir da faixa de opção (Ribbons)

    Mensagem  scandinavo em 24/9/2019, 14:32

    tente

    strArquivo = "" & me.NomeRecibo & "-" & "Id" & Me!NumPac & ".pdf"


    se não conseguir, adivinha
    avatar
    Vanderlei
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 141
    Registrado : 20/01/2011

    [Resolvido]Abrir pasta especifica  a partir da faixa de opção (Ribbons) Empty Abrir pasta especifica e gravar relatório em PDF

    Mensagem  Vanderlei em 24/9/2019, 16:55

    Resolvido com o código abaixo, agora o unica coisa é que ele  não testa se já ha um arquivo com este nome, dai sobrepõe.
    Precisaria de uma condição, caso já tenha um arquivo PDF com este nome, o sistema de opção de gravar com outro nome, já que no decorrer do ano um paciente pode consultar mais de uma vez e solicitar o recibo. Tendo isso quando for prestar conta com Imposto de Renda, ficaria mais fácil
    fora isso, o código funciona beleza.

    '(creditos: Gilberlandio Rocha)

    Private Sub btSalvarPDF_Click()
    Dim strArquivo As String
    Dim strLocal As String

    ' nome do arquivo a ser salvo      chave prima
    strArquivo = "" & Me!NomeRecibo & "-" & "Id" & Me.NumPac & ".pdf" 'Nome do arquivo a ser salvo baseado em campos do formulário. (me!nosso pedido / Me!cliente/ me.Forneoculta )

    strLocal = CurrentProject.Path & "\Enviados\" & strArquivo ' criar essa pasta ( Pedidos )onde está o banco de dados

    'Abre o relatório devidamente filtrado e oculto
    DoCmd.OpenReport "RelRecibo", acViewPreview, , "NumPac=" & Me!NumPac
    '                   nome do relatorio                     chave prima       chave prima

    'Gera arquivo pdf do relatório previamente aberto e filtrado.
    DoCmd.OutputTo acOutputReport, "Relrecibo", acFormatPDF, strLocal

    'Fecha o relatório
    DoCmd.Close acReport, "RelRecibo"
    End Sub
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 739
    Registrado : 11/11/2009

    [Resolvido]Abrir pasta especifica  a partir da faixa de opção (Ribbons) Empty Re: [Resolvido]Abrir pasta especifica a partir da faixa de opção (Ribbons)

    Mensagem  scandinavo em 26/9/2019, 14:32

    Adapta ai

    Dim strArquivo As String
    Dim strLocal As String
    Dim OldName, NewName As String

    strArquivo = "" & Me.cboClientes.Column(1) & "-" & "Id" & Me!nProposta & ".pdf"
    strLocal = CurrentProject.Path & "\enviados\" & strArquivo

    If Dir(strLocal) = vbNullString Then ' verifica e existencia do arquivo
    'MsgBox ("Não encontrado")
    Else

    If MsgBox("Já existe um arquivo com o mesmo nome no diretório que você indicou." & _
    " Se você prosseguir o arquivo será renomeado!!!" & Chr(10) & _
    Chr(10) & "Deseja prosseguir?", vbQuestion + vbYesNo, "Arquivo Existente...") = vbYes Then

    OldName = strLocal: NewName = strLocal & "_" & Day(Date) & Month(Date) & Year(Date) & ".pdf" ' Definir nomes de arquivos.

    Name OldName As NewName ' Renomear arquivo.


    End If
    End If
    avatar
    Vanderlei
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 141
    Registrado : 20/01/2011

    [Resolvido]Abrir pasta especifica  a partir da faixa de opção (Ribbons) Empty Re: [Resolvido]Abrir pasta especifica a partir da faixa de opção (Ribbons)

    Mensagem  Vanderlei em 26/9/2019, 19:49

    O interessante seria ao invés de renomear o arquivo com a data atual, o sistema sempre pegasse a data do recibo DATARECIBO e adicionasse ao nome do arquivo 
    Exemplo: MARIA DA SILVA SOUZA_25092019 (Nunca haverá um recibo de uma mesma pessoa com a mesma data) assim ficaria diferenciado
    'OldName = strLocal: NewName = strLocal & "_" & Day(Date) & Month(Date) & Year(Date) & ".pdf" ' Definir nomes de arquivos.


    Dim strArquivo As String
    Dim strLocal As String
    Dim OldName, NewName As String

    ' nome do arquivo a ser salvo      chave prima
    strArquivo = "" & Me!NomeRecibo & "-" & Me!NumPac & "-" & ".pdf"   'Nome do arquivo a ser salvo baseado em campos do formulário. (me!nosso pedido / Me!cliente/ me.Forneoculta )

    strLocal = CurrentProject.Path & "\Enviados\" & strArquivo ' criar essa pasta ( Pedidos )onde está o banco de dados

    If Dir(strLocal) = vbNullString Then ' verifica e existencia do arquivo
    MsgBox ("Não encontrado")
    Else

    If MsgBox("Já existe um arquivo com o mesmo nome no diretório que você indicou." & _
    " Se você prosseguir o arquivo será renomeado!!!" & Chr(10) & _
    Chr(10) & "Deseja prosseguir?", vbQuestion + vbYesNo, "Arquivo Existente...") = vbYes Then

    OldName = strLocal: NewName = strLocal & "_" & Day(Date) & Month(Date) & Year(Date) & ".pdf" ' Definir nomes de arquivos.


    Name OldName As NewName ' Renomear arquivo.
    End If
    End If

    'Abre o relatório devidamente filtrado e oculto
    DoCmd.OpenReport "RelRecibo", acViewPreview, , "NumPac=" & Me!NumPac
    '                   nome do relatorio                     chave prima       chave prima

    'Gera arquivo pdf do relatório previamente aberto e filtrado.
    DoCmd.OutputTo acOutputReport, "Relrecibo", acFormatPDF, strLocal

    'Fecha o relatório
    DoCmd.Close acReport, "RelRecibo"
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 739
    Registrado : 11/11/2009

    [Resolvido]Abrir pasta especifica  a partir da faixa de opção (Ribbons) Empty Re: [Resolvido]Abrir pasta especifica a partir da faixa de opção (Ribbons)

    Mensagem  scandinavo em 26/9/2019, 20:12

    modifique a linha por esta


    OldName = strLocal: NewName = strLocal & "_" & Day(Me.DataRecibo) & Month(Me.DataRecibo) & Year(Me.DataRecibo) & ".pdf" ' Definir nomes de arquivos.
    avatar
    Vanderlei
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 141
    Registrado : 20/01/2011

    [Resolvido]Abrir pasta especifica  a partir da faixa de opção (Ribbons) Empty Re: [Resolvido]Abrir pasta especifica a partir da faixa de opção (Ribbons)

    Mensagem  Vanderlei em 27/9/2019, 15:02

    Valew pela ajuda. 

    Ficou Perfeito agora

    Grato
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 739
    Registrado : 11/11/2009

    [Resolvido]Abrir pasta especifica  a partir da faixa de opção (Ribbons) Empty Re: [Resolvido]Abrir pasta especifica a partir da faixa de opção (Ribbons)

    Mensagem  scandinavo em 30/9/2019, 12:39

    pig Valeu pelo retorno pig

      Data/hora atual: 26/5/2020, 21:06