[Resolvido]Como Ignorar palavras acentuadas em pequisa

Código:

Option Compare Database

Public Function TodosAcentos(pstrPlain As String) As String
  Const cAlphabet _
      = "aáàâäãå¦" _
      & "cç¦" _
      & "dð¦" _
      & "eéèêë¦" _
      & "f?¦" _
      & "iíìîï¦" _
      & "nñ¦" _
      & "oóòôöõø¦" _
      & "saߦ" _
      & "uúùûü¦" _
      & "yýÿ¦" _
      & "z~"
 
  Dim strAcc() As String
  Dim strLike As String
  Dim intN As Integer
  Dim strP As Integer
  Dim strC As String
 
  strAcc = Split(cAlphabet, "¦")
  For strP = 1 To Len(pstrPlain)
      strC = Mid$(pstrPlain, strP, 1)
      For intN = LBound(strAcc) To UBound(strAcc)
          If InStr(strAcc(intN), strC) = 1 Then
              strC = "[" & strAcc(intN) & "]"
              Exit For
          End If
      Next intN
      strLike = strLike & strC
  Next strP
 
  TodosAcentos = strLike
 
End Function


Olá!

veja neste meu artigo uma outra opção (Copie e cole o endereço abaixo no seu navegador):

usandoaccess.com.br/Dicas/filtrar-independente-acentuacoes-access.asp?id=1

Sucesso!

Código:

....rowsource = "select campoFulano " & _
               "from tblTabelaSicrana;"

Código:

....rowsource = "select campoFulano from tblTabelaSicrana;"

Código:

....rowsource = "select campoFulano" & _
               "from tblTabelaSicrana;"

Código:

strconv (dt_nasc, 2, 1049)