Olá Pessoal!!

 

Estou enfrentando sérios problemas em uma fórmula no Crystal Reports 4.5, estou querendo filtrar por data mas não acontece nada, já simulei de diversas formas, inclusive através de outras dicas do forum porém não funciona, se alguém puder me ajudaragradeço.

 

Já tentei com:

CR1.SelectionFormula = "{TAB028.DTENTRADA}= ToDate(" & Format$(StrDtINI, "yyyy,mm,dd") & ")"

CR1.SelectionFormula = "{TAB028.DTENTRADA}= Date(" & Format$(StrDtINI, "yyyy,mm,dd") & ")"

CR1.SelectionFormula = "{TAB028.DTENTRADA}= Date(" & " " & Format$(StrDtINI, "yyyy,mm,dd") & " " & ")"

Já enverti até a ordem das datas d/m/y, mas não funciona.

 

Agradeço a ajuda

 

Antônio Carlos

AL Soluções em Informática

Caxias do Sul - RS

 

Olá Antonio, boa tarde.

 

Tente assim:

 

CR1.SelectionFormula = "{Pagamento.PreData} " +
"in DateTime (Year(StrDtINI), Month(StrDtINI), Day(StrDtINI), 00, 00, 00) " +
"to DateTime (Year(StrDtFIM), Month(StrDtFIM), Day(StrDtFIM), 00, 00, 00)"

 

Espero que funcione.

 

abraços.

Olá!!

Infelizmente não funcionou, tentei até com quatro zeros no ano, mas nada.

 

Se alguém souber o que está acontecendo!!

 

Antônio Carlos

Caxias do Sul - RS

Se baseie ai:

 

 

Private Sub Command1_Click()

Dim diai
Dim mesi
Dim anoi
Dim diaf
Dim mesf
Dim anof

diai = Day(txtdata1)
mesi = Month(txtdata1)
anoi = Year(txtdata1)

diaf = Day(txtdata2)
mesf = Month(txtdata2)
anof = Year(txtdata2)

CrystalReport1.Destination = 0
CrystalReport1.ReportFileName = "C:Documents and SettingsAdministradorDesktopReport2.rpt"

CrystalReport1.SelectionFormula = "{query.data} >= Date(" & anoi & "," & mesi & "," & diai & ") and " & _
"{query.data} <= Date(" & anof & "," & mesf & "," & diaf & ")"

CrystalReport1.Action = 1

End Sub

Ola Pessoal!!

 

Obrigado pelas respostas, mas eu resolvi o problema de uma forma, acho eu não muito convencional, criei uma tabela temporária, onde filtro e jogo os dados para esta tabela, após abro o relatório.

 

Obrigado

 

Antônio Carlos

Caxias do Sul - RS

 

"Mais atrapalhado que surdo em bingo!!"