MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Colocar as primeira letras em Maiusculo

    Compartilhe

    Marco Antonio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 08/02/2014

    Colocar as primeira letras em Maiusculo

    Mensagem  Marco Antonio em Sab 15 Fev 2014, 14:25

    ola boa tarde

    Queria saber um código pra colocar as primeiras letras de um nome em Maiúsculo em uma caixa de texto


    desde já agradeço

    matheuspereira
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 506
    Registrado : 31/12/2012

    Colocar as primeira letras em Maiusculo

    Mensagem  matheuspereira em Sab 15 Fev 2014, 14:44

    de uma olhada aqui..

    [Você precisa estar registrado e conectado para ver este link.]

    matheuspereira
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 506
    Registrado : 31/12/2012

    Colocar as primeira letras em Maiusculo

    Mensagem  matheuspereira em Sab 15 Fev 2014, 14:47

    Ou este

    Em um módulo qualquer coloque ísso

    Public Function PriMaiuscula(Texto As String) As String
    PriMaiuscula = UCase(Left(Texto, 1)) + Mid(Texto, 2)
    End Function

    No evento ApósAtualizar da sua caixa de texto use:

    me.minhacaixa=PriMaiuscula(me.minhacaixa)



    Isso é valida para apenas a primeira letra da caixa de texto em maiúscula.

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    Colocar as primeira letras em Maiusculo

    Mensagem  toyebom em Sab 15 Fev 2014, 14:47

    Código para tratar de nomes de pessoas, vê e adapta (não testei):


    Código:
    Função para tratar nome de pessoas

    No evento depois de atualizar da sua caixa de texto



    Me.txt = AlternaCaps(Me.txt)



    Public Function AlternaCaps(varNome As Variant) As String

    Dim intInício As Integer ' Indica onde começar a pesquisar

    Dim intProxEspaço As Integer ' Define o início da próxima palavra

    Dim intComprimento As Integer ' Define o comprimento da palavra

    Dim fPodeSair As Integer ' Define o fim da rotina

    Dim strProxNome As String ' Define a próxima palavra

    Dim strNome As String

    'Se nenhum valor foi passado sai

    If IsNull(varNome) Then Exit Function



    ' Retire os espaços extras e transforme tudo para minúsculas

    strNome = CStr(LCase(Trim(varNome)))

    ' Define a posição da primeira pesquisa

    intInício = 1

    Do

    ' Encontre o primeiro espaço no nome

    intProxEspaço = InStr(intInício, strNome, Chr$(32))



    If intProxEspaço Then

    ' Se encontrou um espaço, existe uma outra palavra

    ' então, defina o tamanho da palavra

    intComprimento = intProxEspaço - intInício

    Else

    ' Senão, a palavra não tem espaços

    intComprimento = Len(strNome) - intInício + 1

    'Não há mais espaços, a palavra vai até o fim da String

    ' E a rotina pode acabar com

    fPodeSair = True

    End If

    If intComprimento Then

    ' Extrai a próxima palavra e a transforma em minúsculas

    strProxNome = Mid(strNome, intInício, intComprimento)

    ' Verifica se a palavra é uma preposição

    Call TestaNome(strProxNome)

    ' Substitui a palavra corrigida na string original

    Mid(strNome, intInício, intComprimento) = strProxNome

    intInício = intProxEspaço + 1

    Else

    strNome = Left(strNome, intInício - 1) + Mid(strNome, intInício + 1, Len(strNome))

    intInício = intProxEspaço

    End If

    ' E redefine onde começar a procurar pelo próximo espaço

    Loop Until fPodeSair ' Testa se pode sair do loop

    ' E devolve o texto já transformado

    AlternaCaps = strNome

    End Function



    ' ***************************************************



    Private Sub TestaNome(strProxNome As String)

    strProxNome = Trim(strProxNome)

    If Len(strProxNome) Then

    Select Case strProxNome

    ' Se a palavra for uma preposição, não faz nada

    Case Is = "e", "da", "das", "de", "do", "dos"

    Case Else

    ' Senão, coloca a primeira letra em maiúsculas

    Mid(strProxNome, 1, 1) = UCase(Mid(strProxNome, 1, 1))
    End Select
    End If
    End Sub


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    Registrado : 04/04/2010

    Re: Colocar as primeira letras em Maiusculo

    Mensagem  Avelino Sampaio em Sab 15 Fev 2014, 15:41

    Olá!

    veja se a função strConv() do Access atende:

    StrConv("avelino sampaio",vbProperCase) ::::> Avelino Sampaio

    Sucesso!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

      Data/hora atual: Sab 10 Dez 2016, 04:56