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]Separar nomes - Converter maiusculas/minusculas

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    [Resolvido]Separar nomes - Converter maiusculas/minusculas Empty [Resolvido]Separar nomes - Converter maiusculas/minusculas

    Mensagem  crysostomo 23/8/2018, 01:34

    boa noite, como  posso separar nomes em primeira letras em maiúsculo, exemplo
    henrique gama silva
    Henrique Gama da Silva
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 479
    Registrado : 25/02/2016

    [Resolvido]Separar nomes - Converter maiusculas/minusculas Empty Re: [Resolvido]Separar nomes - Converter maiusculas/minusculas

    Mensagem  FranklinJSP 23/8/2018, 02:29

    Tente isso
    Num módulo:

    Código:

    Public Function PrimeraLetraMayusculas(strCadena As String) As String
    Dim Matriz As Variant, _
        I As Long, _
        J As Long, _
        strExcepciones As String, _
        MatrizExcepciones As Variant

        'aqui exceções
        strExcepciones = "el,la,del,de,al,y,o,u,los,las,para,a,ante,bajo,con,contra,de,desde,en,entre,hacia,hasta,para,por,según,sin,so,sobre,tras"
        
        MatrizExcepciones = Split(strExcepciones, ",")
        Matriz = Split(Trim(strCadena), " ")
        
        For I = 0 To UBound(Matriz)
           For J = 0 To UBound(MatrizExcepciones)
              If MatrizExcepciones(J) = Matriz(I) And Not I = 0 Then GoTo Saltar
           Next J
           Matriz(I) = StrConv(Matriz(I), vbProperCase)
    Saltar:
        Next I
        
        PrimeraLetraMayusculas = Join(Matriz, " ")
    End Function

    No form:

    Código:

    PrimeraLetraMayusculas("henrique gama silva")

    Espero ter ajudado
    Saludos desde Bolivia


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    [Resolvido]Separar nomes - Converter maiusculas/minusculas Empty Re: [Resolvido]Separar nomes - Converter maiusculas/minusculas

    Mensagem  crysostomo 23/8/2018, 22:42

    como escrever qualquer palavra e ele converter as letras.
    no from , nas propriedades seria "Ao inserir"?

    [Resolvido]Separar nomes - Converter maiusculas/minusculas A11
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 479
    Registrado : 25/02/2016

    [Resolvido]Separar nomes - Converter maiusculas/minusculas Empty Re: [Resolvido]Separar nomes - Converter maiusculas/minusculas

    Mensagem  FranklinJSP 24/8/2018, 02:54

    Olá
    Na opção "após atualizar"


    Última edição por FranklinJSP em 24/8/2018, 14:08, editado 1 vez(es)


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    [Resolvido]Separar nomes - Converter maiusculas/minusculas Empty Re: [Resolvido]Separar nomes - Converter maiusculas/minusculas

    Mensagem  caiosouza 24/8/2018, 14:07

    Bom dia!

    Faça o simples:

    No evento após atualizar do seu campo:

    Código:
    Me.MeuCampo = StrConv(Me.MeuCampo,3)

    O indentificador StrConv tem a função de alterar de caixa baixa e caixa alta, para testar as outras opções altere o número depois da vírgula.
    1 - MAIÚSCULA
    2 - minúscula
    3 - Primeira Maiúscula

    ...Se não me engano...

    Bons estudos!


    .................................................................................
    Caio Souza

    Engenheiro de Software
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    [Resolvido]Separar nomes - Converter maiusculas/minusculas Empty Re: [Resolvido]Separar nomes - Converter maiusculas/minusculas

    Mensagem  crysostomo 24/8/2018, 19:21

    obrigado a vocês

    Conteúdo patrocinado


    [Resolvido]Separar nomes - Converter maiusculas/minusculas Empty Re: [Resolvido]Separar nomes - Converter maiusculas/minusculas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 06:23