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

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

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

Obrigada!

Valeu
Boa sorte e sucesso!!