CHAMAR CRYSTAL REPORT

XXXANGELSXXX 05/01/2010 19:52:36
#331109

Boa Noite, pessoal, estou com um caso aqui relativamente simples de ELSE , IF, seguinte, eu quando vou imprimir o rpt, eu faço o seguinte, eu faço a funcao no vb e peço o crystal para imprimir os dados para mim, entao se eu quero imprimir num periodo de tempo eu utilizo a seguinte funçao..

If txtIni.Text <> [Ô][Ô] And txtFim.Text <> [Ô][Ô] Then sCriterio = [Ô]({Dupls001.Vencimento} in #[Ô] & Format(txtIni.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]# to #[Ô] & Format(txtFim.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]#)[Ô]

ai o sistema Iprime fino demais da conta, certisssssimo, so que agora eu preciso filtrar alguns outros dados como por exemplo... nesse periodo de data com o fornecedor X exemplo..

If txtIni.Text <> [Ô][Ô] And txtFim.Text <> [Ô][Ô] And txtForn.Text <> [Ô][Ô] Then sCriterio = [Ô]({Dupls001.Vencimento} in #[Ô] & Format(txtIni.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]# to #[Ô] & Format(txtFim.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]({Dupls001.cp} = [ô][Ô] & txtForn.Text & [Ô]#)[Ô]

so que esta dando pau, quando eu mando imprimir, erro 13 typmastic, sei que o erro esta nas condiçoes da procedure, mas ja testei de tudo enquanto e jeito e nao consigo achar o erro, vao ser 3 filtros na realidade, DATA, FORNECEDOR e tem um ultimo filtro se a parcela paga for maior que zero, ou null, nao precisa imprimir tb nao.. mas vcs me ajudando nessa de cima ai.. eu consigo adaptar para a condiçao da PARCELA. obrigadoooooo