Bom dia...

 

Continuo não conseguindo imprimir relatório entre duas datas no crystal, venho aqui pedir socorro a vcs, caso alguém possa me ajudar, desde já agradeço. Estou usando o código abaixo.

 

        On Error GoTo Trata_Erro
        Dim lFormula   As String
        'Captura data inicial
        lFormula = "({ContasAReceber.Vencimento} >= DATE(" & Mid$(DtInicial.Text, 7, 4) & "," & Mid$(DtInicial.Text, 4, 2) & "," & Mid$(DtInicial.Text, 1, 2) & "))& " '"   
        'Captura data final  DtCadastro
        lFormula = lFormula & " AND ({ContasAReceber.Vencimento} <= DATE(" & Mid$(DtFinal.Text, 7, 4) & "," & Mid$(DtFinal.Text, 4, 2) & ","
        'para visualizar a formula
        'MsgBox lFormula
        Me.MousePointer = 11
            Crr1.DataFiles(0) = ("C:Arquivos de ProgramasControle ASODados.Mdb")
            Crr1.ReportFileName = ("C:Arquivos de ProgramasControle      ASORelatórioCtasReceber.rpt")
            Crr1.DiscardSavedData = True
            Crr1.WindowState = crptMaximized
            Crr1.Destination = crptToWindow
            Crr1.Action = 1
        Me.MousePointer = 0
        Exit Sub
Trata_Erro:

'************************

 

Desde já agradeço.

Luciano.

Faz um bom tempo que não mexo no Crystal mas tem uma função, que pode ser a que vc está passando, que formata a data só lembro que a data tinha que vir neste formato: (YYYY,MM,DD)

 

Só não lembro se era a função DATE. Mas vc pode usar assim também:

 

IFORMULA = "(YEAR{ContasAReceber.Vencimento} >= " & YEAR(SUADATA) & _

" AND YEAR{ContasAReceber.Vencimento} <= " & YEAR(SUADATA) & _

" AND MONTH{ContasAReceber.Vencimento}  >= " & MONTH(SUADATA) & _

" AND MONTH{ContasAReceber.Vencimento} <= " & MONTH(SUADATA)

 

Testa aí por favor.

 

Qualquer problema é só postar

 

 

at+

É amigo, não deu certo...

estou enrolado com isso, e necessitando muito que funcione, mas não estou conseguindo.

 

Caso tenha mais alguma idéia...

Desde já agradeço..

 

Luciano

Crr1.SelectionFormula = "({ContasAReceber.Vencimento} >= DATE(" & Year(DtInicial.Text) & "," & Month(DtInicial.Text) & "," & Day(DtInicial.Text) & ") AND ({ContasAReceber.Vencimento} <= DATE(" & Year(DtFinal.Text) & "," & Month(DtFinal.Text) & "," & Day(DtFinal.Text) & ")"

Obrigado pela ajuda, agora deu certo. Se precisar estou a disposição.

 

Luciano.