MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

    [Resolvido]Função SE_Adaptação

    cy_rangel
    cy_rangel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 67
    Registrado : 18/01/2018

    [Resolvido]Função SE_Adaptação Empty [Resolvido]Função SE_Adaptação

    Mensagem  cy_rangel 4/3/2022, 03:19

    Olá pessoal!

    Eu tenho um código que gera um relatório, salva e anexa no e-mail, porém preciso adicionar uma condição. Ele deve gerar o relatório, salvar e anexar no e-mail somente SE a data de emissão for <=31/12/2021. Conseguem me ajudar a adaptar o que tenho?

    Código:
    'Gera o arquivo anexo com base no relatório
        strArquivo = "CORE " & RamoRelat & " - " & SeguradoRelat & " - " & "Apólice " & Me("No Apólice") & " - " & "Vig. " & InícioVigRelat & " a " & FimVigRelat & " Taxa de Análise" & ".pdf" 'Chama a primeira variavel nome do arquivo
        strLocalDemonstrRenov = CurrentProject.Path & "\4_Enviar_Arquivos\" & strArquivo 'Chama a segunda variavel Local e concatena com o nome do arquivo
        
        DoCmd.OpenReport "REL_SeguradoCORE_Acumulado", acViewPreview, , "No Apólice=" & Me!NApólice, acHidden 'Abre o relatório devidamente filtrado e oculto.
        DoCmd.OutputTo acOutputReport, "REL_SeguradoCORE_Acumulado", acFormatPDF, strLocalDemonstrRenov  'DoCmd - acOutReport (ou Form) + Nome Relatório + Formato + Local
        DoCmd.Close acReport, "REL_SeguradoCORE_Acumulado" 'Fecha o relatório


    Desde já agradeço!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Função SE_Adaptação Empty Re: [Resolvido]Função SE_Adaptação

    Mensagem  Alvaro Teixeira 4/3/2022, 10:33

    Olá Cinthia,

    Tente assim com um IF
    Código:

    If InícioVigRelat <= #12/31/2021# Then  '

        strArquivo = "CORE " & RamoRelat & " - " & SeguradoRelat & " - " & "Apólice " & Me("No Apólice") & " - " & "Vig. " & InícioVigRelat & " a " & FimVigRelat & " Taxa de Análise" & ".pdf" 'Chama a primeira variavel nome do arquivo
        strLocalDemonstrRenov = CurrentProject.Path & "\4_Enviar_Arquivos\" & strArquivo 'Chama a segunda variavel Local e concatena com o nome do arquivo
       
        DoCmd.OpenReport "REL_SeguradoCORE_Acumulado", acViewPreview, , "No Apólice=" & Me!NApólice, acHidden 'Abre o relatório devidamente filtrado e oculto.
        DoCmd.OutputTo acOutputReport, "REL_SeguradoCORE_Acumulado", acFormatPDF, strLocalDemonstrRenov  'DoCmd - acOutReport (ou Form) + Nome Relatório + Formato + Local
        DoCmd.Close acReport, "REL_SeguradoCORE_Acumulado" 'Fecha o relatório
    Else

        MsgBox "Não pode imprimir, data não está no limite permitiddo.", vbInformation

    End If

    Abraço

    cy_rangel gosta desta mensagem

    cy_rangel
    cy_rangel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 67
    Registrado : 18/01/2018

    [Resolvido]Função SE_Adaptação Empty Re: [Resolvido]Função SE_Adaptação

    Mensagem  cy_rangel 30/3/2022, 03:08

    Olá AHTeixeira, muito obrigada pela ajuda!

    Deu um pouco de trabalho para adaptar mas Super funcionou!!! Ótima dica.


    PS.: Desculpe a demora em retornar ao tópico, estava de férias Smile

      Data/hora atual: 6/10/2022, 08:10