Ola, boa tarde pessoal...

 

uso esse codigo para ignorar acento nas consultas:

-----------------------------------------------------------------------

Function FormataBusca(texto) As String
Dim n, NovoTexto, valorASC
NovoTexto = ""
For n = 1 To Len(texto)
valorASC = Asc(Mid(texto, n, 1))
Select Case valorASC
Case 39: NovoTexto = NovoTexto & "''"
Case 65: NovoTexto = NovoTexto & "[ÁÀÂÄÃA]"
Case 67: NovoTexto = NovoTexto & "[ÇC]"
Case 69: NovoTexto = NovoTexto & "[ÉÈÊËE]"
Case 73: NovoTexto = NovoTexto & "[ÍÌÎÏI]"
Case 79: NovoTexto = NovoTexto & "[ÓÒÔÖÕO]"
Case 85: NovoTexto = NovoTexto & "[ÚÙÛÜU]"
Case 97: NovoTexto = NovoTexto & "[áàâäãa]"
Case 99: NovoTexto = NovoTexto & "[çc]"
Case 101: NovoTexto = NovoTexto & "[éèêëe]"
Case 105: NovoTexto = NovoTexto & "[íìîïi]"
Case 111: NovoTexto = NovoTexto & "[óòôöõo]"
Case 117: NovoTexto = NovoTexto & "[úùûüu]"
Case Else
If valorASC > 31 And valorASC < 127 Then
NovoTexto = NovoTexto & Chr(valorASC)
Else
NovoTexto = NovoTexto & "_"
End If
End Select
Next
FormataBusca = "'%" & NovoTexto & "%'"
End Function

----------------------------------------------------------------

 

no botao d comando coloca o seguinte codigo..

 

DescNome = FormataBusca(Text3.Text)
If Formula2 = "" Then
Formula2 = Formula2 & "({CadContribuinte.NomeContribuinte} like '*" & DescNome & "*')"
     Else
Formula2 = Formula2 & " and ({CadContribuinte.NomeContribuinte} like '*" & DescNome & "*')"
End If

quando é uma consulta no banco de dados, consigo com sucesso... mas tentei fazer para filtrar para o relatorio crystal e nao consigo.. ja tentei d varias formas... alguem pode me dizer como ajustar o codigo acima para filtrar dados para relatorio...

 

grato