MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]chamar função ignorar acentos

    alpedro
    alpedro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 08/02/2016

    [Resolvido]chamar função ignorar acentos Empty [Resolvido]chamar função ignorar acentos

    Mensagem  alpedro 8/3/2016, 14:23

    Olá.
    Tenho uma BD com um formulário pesquisa, com o seguinte código:
    Option Compare Database
    Option Explicit
    Dim VarEspaco

    Private Sub btn_limpar_Click()
    'botão limpar
    Me.pesquisa_localidade.SetFocus
    Me.pesquisa_localidade.Text = ""
    Me.pesquisa_país.SetFocus
    Me.pesquisa_país.Text = ""
    Me.pesquisa_firma.SetFocus
    Me.pesquisa_firma.Text = ""
    Me.pesquisa_especialidade.SetFocus
    Me.pesquisa_especialidade.Text = ""
    End Sub

    Private Sub Form_Open(Cancel As Integer)
    Me.KeyPreview = True
    Me.lista_especialidade = ""
    DoCmd.Maximize
    End Sub

    Private Sub pesquisa_especialidade_AfterUpdate()
    Me.lista_especialidade.Requery
    End Sub
    Private Sub pesquisa_especialidade_KeyPress(KeyAscii As Integer)
    If KeyAscii = 32 Then
    VarEspaco = 1
    End If
    End Sub
    Private Sub pesquisa_especialidade_Change()
    If VarEspaco = 1 Then
    VarEspaco = 0
    Else
    Me.Recalc
    Me.pesquisa_especialidade.SelStart = 255
    End If
    End Sub

    Private Sub pesquisa_localidade_AfterUpdate()
    Me.lista_especialidade.Requery
    End Sub
    Private Sub pesquisa_localidade_KeyPress(KeyAscii As Integer)
    If KeyAscii = 32 Then
    VarEspaco = 1
    End If
    End Sub
    Private Sub pesquisa_localidade_Change()
    If VarEspaco = 1 Then
    VarEspaco = 0
    Else
    Me.Recalc
    Me.pesquisa_localidade.SelStart = 255
    End If
    End Sub

    Private Sub pesquisa_país_AfterUpdate()
    Me.lista_especialidade.Requery
    End Sub
    Private Sub pesquisa_país_KeyPress(KeyAscii As Integer)
    If KeyAscii = 32 Then
    VarEspaco = 1
    End If
    End Sub
    Private Sub pesquisa_país_Change()
    If VarEspaco = 1 Then
    VarEspaco = 0
    Else
    Me.Recalc
    Me.pesquisa_país.SelStart = 255
    End If
    End Sub

    Private Sub pesquisa_firma_AfterUpdate()
    Me.lista_especialidade.Requery
    End Sub
    Private Sub pesquisa_firma_KeyPress(KeyAscii As Integer)
    If KeyAscii = 32 Then
    VarEspaco = 1
    End If
    End Sub
    Private Sub pesquisa_firma_Change()
    If VarEspaco = 1 Then
    VarEspaco = 0
    Else
    Me.Recalc
    Me.pesquisa_firma.SelStart = 255
    End If
    End Sub

    Tem também o módulo para ignorar a acentuação ao pesquisar com o seguinte código:
    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
     
    Não está a ignorar a acentuação. É preciso chamar a função e como?
    Obrigado.


    Última edição por alpedro em 9/3/2016, 04:25, editado 1 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]chamar função ignorar acentos Empty Re: [Resolvido]chamar função ignorar acentos

    Mensagem  FabioPaes 8/3/2016, 15:01

    Meu amigo, digamos que esse seu formulario de Pesquisa possua uma caixa de pesquisa de nome txt_nome, e uma Caixa de listagem onde aparecem os nomes digitados....

    Na sua caixa de Listagem, na guia Dados,  Origem da Linha, Clique nos ... (tres pontinho), abrira a consulta....
    Va ate o Campo Onde tem o Critério (Como "*" &...), aqui voce deve chamar depois do * a função TodosAcentos exe:

    Como "*" & TodosAcentos([Forms]![Pesquisa].[txt_nome] & "*")

    So lembranco que:
    Pesquisa é o nome do formulario;
    txt_nome é  a caixa de Listagem que eu digito o nome a ser pesquisado;
    TodosAcentos é o nome da sua Função.

    PlinioJappone gosta desta mensagem

    alpedro
    alpedro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 08/02/2016

    [Resolvido]chamar função ignorar acentos Empty Re: [Resolvido]chamar função ignorar acentos

    Mensagem  alpedro 8/3/2016, 15:14

    Obrigado. Funcionou. Smile

    PlinioJappone gosta desta mensagem

    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]chamar função ignorar acentos Empty Re: [Resolvido]chamar função ignorar acentos

    Mensagem  FabioPaes 8/3/2016, 15:14

    Bacana! bons Estudos!
    avatar
    cbraia
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 27
    Registrado : 12/07/2010

    [Resolvido]chamar função ignorar acentos Empty Re: [Resolvido]chamar função ignorar acentos

    Mensagem  cbraia 22/1/2019, 14:34

    Boas amigos

    Desculpem aproveitar o post mas estou aqui com uma duvida.

    Coloquei a chamada da função no campo de listagem mas diz que TodosAcentos não está definida na expressão... o que posso estar a fazer mal?

    Obrigado

    Conteúdo patrocinado


    [Resolvido]chamar função ignorar acentos Empty Re: [Resolvido]chamar função ignorar acentos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 04:42