USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página