DUVIDA CRYSTAL REPORT 8.5

OFERRARI 31/07/2010 11:02:26
#349013
Olá. Gostária de fazer o seguinte:

Filtrar atraves do Visual Basic 6: Itens em uma tabela Access, entre duas datas. E na hora que eu clicar no botão Relátorio,
ele teria que aparecer somente os itens que foram filtrados entre as duas data que digitei:

Alguém sabe como filtrar atraves do vb6 e abrir um relatório no Acess entre duas data ??



Por favor. Alguém pode me ajudar ??
OFERRARI 31/07/2010 13:57:50
#349049
Ta Complicado.

Alguém. Por favor, pode me ajudar ??
XXXANGELSXXX 31/07/2010 14:21:29
#349051 
 
Private Sub frmdefinirdata_Click()
On Error GoTo SubErro
            Dim sCriterio As String, caminho As String, caminhoRel As String
            If txtinicio.Text <> [Ô][Ô] And txtfim.Text <> [Ô][Ô] Then sCriterio = [Ô]({Vendas.data} in #[Ô] & _
               Format(txtinicio.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]# to #[Ô] & _
               Format(txtfim.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]#)[Ô]
            caminho = [Ô][Ô] & App.Path & [Ô]/bancodedados.mdb[Ô]
            With CrystalReport1
            .DataFiles(0) = caminho
            .Destination = 0
            caminhoRel = [Ô][Ô] & App.Path & [Ô]/nomedoarquivo.rpt[Ô]
            .ReportFileName = caminhoRel
            .SelectionFormula = sCriterio
            .Action = 1
            End With
SubErro:
            If Err.Number <> 0 Then
                MsgBox [Ô]O sistema apresentou erro[Ô], vbCritical, [Ô]Erro[Ô]
            End If
End Sub


Utilizando o codigo enviado agora a pouco a outro amigo.. srsrss.

considereacoes.. :

txtinicio.text = campo texto.. que vai conter a data inicial
txtfim.text = campo texto que vai conter a data final.

CrystalReport1 = coloque a ocx crystl32.ocx , e coloque ela na tela do relatorio..

qualquer coisa posta ai.
OFERRARI 31/07/2010 15:15:38
#349054
Citação:

If txtinicio.Text <> [Ô][Ô] And txtfim.Text <> [Ô][Ô] Then sCriterio = [Ô]({Vendas.data} in #[Ô] & _




Só uma Dúvida: O que seria {Venda.data} ??

Só uma coisa: To usando Banco de Dados Access.
XXXANGELSXXX 31/07/2010 15:56:45
#349056
é o sua tabela, e o campo data é o campo data da tabela, entendeu???


exemplo...

Vendas = sua tabela
data = o campo onde esta guardado a data.
OFERRARI 31/07/2010 17:04:43
#349062
CAra.

Fiz como você falo para mim fazer.
Só que nunca abre o relatório, só aparece a mensagem do IF:

[Ô]O sistema apresentou erro[Ô]


Esse erro acontece porque ??
Como Soluciona-lo ??

Só uma coisa: O fonte que você me passou acima, serve para Banco de Dados Access e Crystal Report 8.5 ??


Alguém pode me ajudar ???
XXXANGELSXXX 01/08/2010 11:48:32
#349084
sim, claro, serve para banco acess e crystal, realmente ficou faltando fechar o if.. veja abaixo ..

 
Private Sub frmdefinirdata_Click()
if txtinicio.text =[Ô][Ô] then
msgbox [Ô] Campo data inicial nao informado[Ô],vbexclamation
txtini.setfocus:exit sub
elseif txtfim.text =[Ô][Ô] then
msgbox [Ô] Campo data fim nao informado[Ô],vbexclamation
txtfim.setfocus:exit sub
else
On Error GoTo SubErro
            Dim sCriterio As String, caminho As String, caminhoRel As String
            sCriterio = [Ô]({Vendas.data} in #[Ô] & _
               Format(txtinicio.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]# to #[Ô] & _
               Format(txtfim.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]#)[Ô]
            caminho = [Ô][Ô] & App.Path & [Ô]/bancodedados.mdb[Ô]
            With CrystalReport1
            .DataFiles(0) = caminho
            .Destination = 0
            caminhoRel = [Ô][Ô] & App.Path & [Ô]/nomedoarquivo.rpt[Ô]
            .ReportFileName = caminhoRel
            .SelectionFormula = sCriterio
            .Action = 1
            End With
end if

SubErro:
            If Err.Number <> 0 Then
                MsgBox [Ô]O sistema apresentou erro[Ô], vbCritical, [Ô]Erro[Ô]
            End If


End Sub
CHARLESTON10 01/08/2010 12:01:24
#349086
Bom topico
OFERRARI 01/08/2010 12:04:35
#349087
Citação:

:
sim, claro, serve para banco acess e crystal, realmente ficou faltando fechar o if.. veja abaixo ..

 
Private Sub frmdefinirdata_Click()
if txtinicio.text =[Ô][Ô] then
msgbox [Ô] Campo data inicial nao informado[Ô],vbexclamation
txtini.setfocus:exit sub
elseif txtfim.text =[Ô][Ô] then
msgbox [Ô] Campo data fim nao informado[Ô],vbexclamation
txtfim.setfocus:exit sub
else
On Error GoTo SubErro
            Dim sCriterio As String, caminho As String, caminhoRel As String
            sCriterio = [Ô]({Vendas.data} in #[Ô] & _
               Format(txtinicio.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]# to #[Ô] & _
               Format(txtfim.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]#)[Ô]
            caminho = [Ô][Ô] & App.Path & [Ô]/bancodedados.mdb[Ô]
            With CrystalReport1
            .DataFiles(0) = caminho
            .Destination = 0
            caminhoRel = [Ô][Ô] & App.Path & [Ô]/nomedoarquivo.rpt[Ô]
            .ReportFileName = caminhoRel
            .SelectionFormula = sCriterio
            .Action = 1
            End With
end if

SubErro:
            If Err.Number <> 0 Then
                MsgBox [Ô]O sistema apresentou erro[Ô], vbCritical, [Ô]Erro[Ô]
            End If


End Sub




Cara.
Teu fonte não ta dando certo.
O problema ta na consulta que você me passou, ta dando erro.


Alguém. Por favor, pode me ajudar ??
OFERRARI 01/08/2010 13:08:21
#349091
Por Favooor.

Alguém, pode me ajudar ??
MARCOSLING 01/08/2010 13:55:15
#349093
Dê uma lida nisso:

http://www.macoratti.net/cr_vb_1.htm
Tópico encerrado , respostas não são mais permitidas
Voltar