[Resolvido]Função SE_Adaptação

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!

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

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