Geronimo
|
JOINVILLE SC - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 26/08/2004 18:44 hs
Veja este exemplo: Dim lFormulaF As String 'Captura data inicial lFormulaF = "({bolão.Data} >= DATE(" & Mid$(DataInicial.Text, 7, 4) & "," & Mid$(DataInicial.Text, 4, 2) & "," & Mid$(DataInicial.Text, 1, 2) & "))" 'Captura data final lFormulaF = lFormulaF & " AND ({bolão.Data} <= DATE(" & Mid$(DataFinal.Text, 7, 4) & "," & Mid$(DataFinal.Text, 4, 2) & "," & Mid$(DataFinal.Text, 1, 2) & "))" lFormulaF = lFormulaF & " AND {bolão.Nome} = '" & Nome.Text & "'" Me.MousePointer = 11 Crp.DataFiles(0) = App.Path & "olao.mdb" Crp.ReportFileName = App.Path & "Ficha.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."
|
|
|