|
|
Postada em 23/07/2004 09:52 hs
Galera bom dia!!! Me ajudem a resolver esse problema, pois até agora nao consegui... como filtro registro num relatorio do crystal 8.5 usando periodo de datas, veja o codigo que estou usando: .SelectionFormula = "{CadBem.DtAquis} >=date(" & Year(Text5.Text) & "," & Month(Text5.Text) & "," & Day(Text5.Text) & ") and {CadBem.DtAquis} <=date(" & Year(Text1.Text) & "," & Month(Text1.Text) & "," & Day(Text1.Text) & ")"
Meu campo no bando de dados esta no formato (Data/Hora)... e nao consigo fazer isso funcionar, alguem poderia me ajudar. grato pela atenção... |
|
|
|
|
|
|
|
Postada em 23/07/2004 10:25 hs
SelectionFormula = "{CadBem.DtAquis} >= format(text5.text, "mm/dd/yyyy") and {CadBem.DtAquis} <= format (text1.text, "mm/dd/yyyy") ou SelectionFormula = "{CadBem.DtAquis} between #" & Text5.Text & "# and #" & Text1.Text & "# acho q isso jah resolve... []s cadu
|
|
|
|
|
|
Postada em 23/07/2004 11:28 hs
nao funcionou, vc teria mais alguma ideia? |
|
|
|
|
|
Postada em 23/07/2004 11:35 hs
qual foi o erro q deu????? esse campo DtAquis no banco de dados eh formato texto ou data??? cadu |
|
|
|
|
|
Postada em 23/07/2004 13:52 hs
esta no formato (data/hora), |
|
|
|
|
|
Postada em 23/07/2004 18:17 hs
Tente este exemplo : Carlinhos seu campo texto a data devera estar formatada com este formato dd/mm/yyyy, certo seu o seu campo text5.text estiver aparecendo com este formato faça um selection formula conforme exemplo: Dim lFormulaF As String
'Captura data inicial
lFormulaF = "({temp.Data} >= DATE(" & Mid$(DataInicial.Text, 7, 4) & "," & Mid$(DataInicial.Text, 4, 2) & "," & Mid$(DataInicial.Text, 1, 2) & "))"
'Captura data final
lFormulaF = lFormulaF & " AND ({temp.Data} <= DATE(" & Mid$(DataFinal.Text, 7, 4) & "," & Mid$(DataFinal.Text, 4, 2) & "," & Mid$(DataFinal.Text, 1, 2) & "))"
lFormulaF = lFormulaF & " AND {temp.Categoria} = '" & DbcCAtegoria.Text & "'"
lFormulaF = lFormulaF & " And {temp.Idade} > '" & txtidade.Text & "'"
lFormulaF = lFormulaF & " AND {temp.Matricula} <='" & Matricula.Text & "'" CRP.DataFiles(0) = App.Path & "atletismo.mdb"
CRP.ReportFileName = App.Path & "CampeonatoGeral.rpt"
CRP.SelectionFormula = lFormulaF
CRP.WindowState = crptMaximized
CRP.Destination = crptToWindow
CRP.Action = 1
Me.MousePointer = 0
"O pior inimigo que você poderá encontrar será sempre você mesmo."
|
|
|
|
|
