Pessoal estou ficando louco pois não consigo fazer uma formúla que filtre meu relátorio:

segue a seguinte formúla :

'Dim formula As String
'Dim Busca As String
'Busca = InputBox("Digite o codigo")
'formula = "select * from tabvendas where Codigo like '" & Busca & "*' order by Codigo asc"
'crvendas.SelectionFormula = formula
'crvendas.ReportFileName = App.Path & "vendas.rpt"
crvendas.Action = 1

 

Está dando um erro 20515.

Mensagem: Error in formula

 

Lembrando que trabalho com crystal Report4.6 no VB5.0, e quero filtrar meus relatorios por codigo!!!

 

Falow aquele abraço a todos!!!!

select * from tabvendas where Codigo=" & Busca & " order by Codigo asc"

 

Assim seleciona-se o registro com aquele código. Note que tirei as aspas simples porque o campo código, acredito, você o fez do tipo numérico e não string. O LIKE foi substituído por um sinal de igual. Caso não seja isto que você quer, post aqui novamente.

 

Abraço,

 

Euzébio.

select * from tabvendas where Codigo=" & val(Busca) & " order by Codigo asc"

 

Tinha esquecido a função VAL para transformar a variável BUSCA em número. ;-)

Olá Rodrigo,

 

O problema é o seguinte, o Crystal não reconhece instruções SQL para filtragem, ele possui sua própria sintaxe de filtragem. No seu caso, você deverá fazer o seguinte:

 

Busca = InputBox("Digite o codigo")
formula = "{tabvendas.Codigo} = '" & Busca & "'"
crvendas.SelectionFormula = formula

Teste e veja se funciona, qualquer coisa, post

 

Um abraço,

Sandro.