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

    [Resolvido]Filtrar relatório ao abrir entre datas e por cliente

    annissima
    annissima
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 169
    Registrado : 23/10/2017

    [Resolvido]Filtrar relatório ao abrir entre datas e por cliente Empty [Resolvido]Filtrar relatório ao abrir entre datas e por cliente

    Mensagem  annissima 18/3/2021, 12:25

    Estou quebrando a cabeça e não consigo ver o meu erro.

    Tenho um relatório que gostaria de filtrar ao abrir por cliente, e entre datas.

    Se eu coloco só o critério de cliente dá certo, e se coloco só o de data também dá.
    Mas não consigo abrir com os dois critérios, sai em branco.

    Alguém consegue me ajudar a ver onde está o erro?

    Código:


    Private Sub btGerarRelatorios_Click()


    Dim txtDataInicial As Date, txtDataFinal As Date
    txtDataInicial = Forms!clientes![dataInicial].Value
    txtDataFinal = Forms!clientes![dataFinal].Value

    Dim strCriteria1 As String, strCriteria2 As String
    strCriteria1 = "[data] > #" & Format(txtDataInicial, "yyyy-mm-dd") & "# And [data] < #" & Format(txtDataFinal, "yyyy-mm-dd") & "#"
    strCriteria2 = "NumCliente = '" & Forms!clientes![NumCliente].Value & "' "

    If opFullReport = True Then

              If SopFullReport = True Then
                        DoCmd.OpenReport "FullReport", acViewPreview, , strCriteria1 & " and " & strCriteria2, acWindowNormal
              Else
                        DoCmd.OpenReport "FullReport", acViewPreview, , strCriteria2, acWindowNormal
              End If
             
            DoCmd.OutputTo acOutputReport, "FullReport", "PDFFormat(*.pdf)", Forms!clientes![LinkDBcloud].Value, False, "", , acExportQualityPrint
            DoCmd.Close acReport, "FullReport", acSaveNo
    End If


    End Sub
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1273
    Registrado : 13/12/2016

    [Resolvido]Filtrar relatório ao abrir entre datas e por cliente Empty Re: [Resolvido]Filtrar relatório ao abrir entre datas e por cliente

    Mensagem  Alexandre Fim 18/3/2021, 12:44

    Olá Annissima,

    Tente isso:

    Código:


    Private Sub btGerarRelatorios_Click()
    On Error GoTo trata_erro
    Dim vDtIni      As Date
    Dim vDtfim      As Date
    Dim strCrit    As String

        vDtIni = Format(Forms!clientes![dataInicial].Value, "yyyy-mm-dd")
        vDtfim = Format(Forms!clientes![dataFinal].Value, "yyyy-mm-dd")

        If SopFullReport = True Then
            strCrit = Empty
            strCrit = strCrit & " [data] BETWEEN #" & vDtIni & "# And #" & vDtfim & "#"
            strCrit = strCrit & " AND NumCliente = '" & Forms!clientes![NumCliente].Value & "' "
        Else
            strCrit = strCrit & " NumCliente = '" & Forms!clientes![NumCliente].Value & "' "
        End If

        If opFullReport = True Then
            DoCmd.OpenReport "FullReport", acViewPreview, , strCrit, acWindowNormal
            DoCmd.OutputTo acOutputReport, "FullReport", "PDFFormat(*.pdf)", Forms!clientes![LinkDBcloud].Value, False, "", , acExportQualityPrint
            DoCmd.Close acReport, "FullReport", acSaveNo
        End If
       
        Exit Sub

    trata_erro:
        MsgBox "Erro gerado: " & err.Number & " - " & err.Description & "", vbCritical, "Erro"
        Exit Sub


    End Sub




    Valeu


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

    annissima gosta desta mensagem

    annissima
    annissima
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 169
    Registrado : 23/10/2017

    [Resolvido]Filtrar relatório ao abrir entre datas e por cliente Empty Re: [Resolvido]Filtrar relatório ao abrir entre datas e por cliente

    Mensagem  annissima 18/3/2021, 15:13

    Obrigada!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1273
    Registrado : 13/12/2016

    [Resolvido]Filtrar relatório ao abrir entre datas e por cliente Empty Re: [Resolvido]Filtrar relatório ao abrir entre datas e por cliente

    Mensagem  Alexandre Fim 18/3/2021, 15:15

    Valeu cheers cheers cheers
    Boa sorte e sucesso!!


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

      Data/hora atual: 11/4/2021, 08:31