|
|
Postada em 22/07/2004 15:27 hs
como faço para corrigir esse codigo abaixo, pois tenho um banco com o campo DTAQUIS (formato: texto), so q a essa formula pega datas, e esta dando erro: .SelectionFormula = "{CadBem.DtAquis} >=date(" & Format(text5.text, "yyyy,mm,dd") & ") and {CadBem.DtAquis} <=date(" & Format(text1.text, "yyyy,mm,dd") & ")"
error 20515 A string is required here. como faço para pegar essa data gravada num campo texto e fazer com q a consulta seja efetuada com sucesso. O q devo mudar? |
|
|
|
|
|
|
|
Postada em 22/07/2004 15:34 hs
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."
|
|
|
|
|
