|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Selection formula do crystal por periodo
|
 |
|
|
|
Postada em 5/4/2006 por Geronimo
Private Sub CmdPesquisar_Click()
On Error GoTo Trata_Erro
Dim lFormula As String
'Captura data inicial
lFormula = "({bolão.Data} >= DATE(" & Mid$(DataInicial.Text, 7, 4) & "," & Mid$(DataInicial.Text, 4, 2) & "," & Mid$(DataInicial.Text, 1, 2) & "))"
'Captura data final
lFormula = lFormula & " AND ({bolão.Data} <= DATE(" & Mid$(DataFinal.Text, 7, 4) & "," & Mid$(DataFinal.Text, 4, 2) & "," & Mid$(DataFinal.Text, 1, 2) & "))"
lFormula = lFormula & " AND {bolão.Equipe} = '" & Equipe.Text & "'"
lFormula = lFormula & " and {bolão.Local} ='" & LocalC.Text & "' "
'para visualizar a formula
'MsgBox lFormula
Me.MousePointer = 11
Crp.DataFiles(0) = App.Path & "olao.mdb"
Crp.ReportFileName = App.Path & "Campeonato.rpt"
Crp.SelectionFormula = lFormula
Crp.WindowState = crptMaximized
Crp.Destination = crptToWindow
Crp.Action = 1
Me.MousePointer = 0
Exit Sub
Trata_Erro:
MsgBox "Você NÃO Selecionou DADOS VÁLIDOS!!!!"
End Sub
|
|
|
|
|
