MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Retirar as preposições

    josé waldick
    josé waldick
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 84
    Registrado : 06/06/2017

    [Resolvido]Retirar as preposições Empty [Resolvido]Retirar as preposições

    Mensagem  josé waldick em 29/3/2020, 13:07

    Senhores,
    O colega ahteixeira há algum tempo atrás postou aqui no grupo um código referente a uma função para Retornar apenas as Iniciais do Nome; pessoal este código foi de grande funcionalidade para a nossa comunidade. Além do código o colega deixou uma de sugestão de ajuste para não retornar as preposições do tipo: da, de, do, e, etc que deveria ser feita uma consulta neste grupo, porém não estamos obtendo nenhum sucesso nesta busca. Seria possível contar com a ajuda dos colegas?


    .................................................................................
    Deus é bom e fiel!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2458
    Registrado : 22/11/2016

    [Resolvido]Retirar as preposições Empty Re: [Resolvido]Retirar as preposições

    Mensagem  DamascenoJr. em 29/3/2020, 15:34

    Tópico movido por tratar-se de codificação, e não de formulário.

    Por iniciais você se refere a primeira letra de cada nome ignorando preposições ou só o primeiro nome de um nome completo?


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    josé waldick
    josé waldick
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 84
    Registrado : 06/06/2017

    [Resolvido]Retirar as preposições Empty Re: [Resolvido]Retirar as preposições

    Mensagem  josé waldick em 29/3/2020, 18:21

    Olá Damasceno!
    Refiro-me a primeira letra de cada nome ignorando preposições, exemplo:
    Manoel Antonio da Silva -> MAS
    Pedro de Farias dos Santos -> PFS


    .................................................................................
    Deus é bom e fiel!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2458
    Registrado : 22/11/2016

    [Resolvido]Retirar as preposições Empty Re: [Resolvido]Retirar as preposições

    Mensagem  DamascenoJr. em 29/3/2020, 18:44

    Código:
    Public Function fncIniNome(strNome As String) As String

        Dim varNome
        Dim bytContador    As Byte
        Dim strResultado    As String
        Dim strPreposicoes  As String
       
        strPreposicoes = "da,de,do,das,dos"
       
    '---------------------------------------------------------
       
        strPreposicoes = """" & Replace(strPreposicoes, ",", """,""") & """"
       
        varNome = Split(strNome, " ")
        For bytContador = 0 To UBound(varNome)
            If Eval("""" & varNome(bytContador) & """ not in (" & strPreposicoes & ")") Then
                strResultado = strResultado & Left(varNome(bytContador), 1)
            End If
        Next bytContador
       
        fncIniNome = strResultado

    End Function


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    josé waldick
    josé waldick
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 84
    Registrado : 06/06/2017

    [Resolvido]Retirar as preposições Empty Re: [Resolvido]Retirar as preposições

    Mensagem  josé waldick em 29/3/2020, 22:04

    Muito obrigado!
    Funcionou perfeitamente!


    .................................................................................
    Deus é bom e fiel!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2458
    Registrado : 22/11/2016

    [Resolvido]Retirar as preposições Empty Re: [Resolvido]Retirar as preposições

    Mensagem  DamascenoJr. em 29/3/2020, 22:12

    Falou dar o tópico por resolvido.

    Aguardamos.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    josé waldick
    josé waldick
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 84
    Registrado : 06/06/2017

    [Resolvido]Retirar as preposições Empty Re: [Resolvido]Retirar as preposições

    Mensagem  josé waldick em 30/3/2020, 15:42

    Muito obrigado!
    Funcionou perfeitamente!


    .................................................................................
    Deus é bom e fiel!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2458
    Registrado : 22/11/2016

    [Resolvido]Retirar as preposições Empty Re: [Resolvido]Retirar as preposições

    Mensagem  DamascenoJr. em 30/3/2020, 21:44

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 5/12/2020, 09:19