MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Primeira letra em maiuscula - Varias textbox

    Compartilhe

    Junior Cordeiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 18/08/2014

    Primeira letra em maiuscula - Varias textbox

    Mensagem  Junior Cordeiro em Ter 10 Jan 2017, 18:12

    Olá pessoal, estava pesquisando no forum a respeito de como colocar a primeira letra em maiuscula e deixar as demais em minusculas.
    Agradeço pela dica que vi e se alguém quiser segue o link: [Você precisa estar registrado e conectado para ver este link.]
    Mas a minha questão é a seguinte:


    Como faço para deixar várias com a mesma função? Por exemplo:

    Inseri a Função na textbox - "Nome"e se agora eu quiser colocar em Endereço, Bairro, Cidade, Estado, Filiação, Conjugê... e assim por diante.

    Tenho que fazer uma a uma?

    Também queria deixar uma toda em maiuscula - O_Expedidor e outra toda em minuscula - e-mail

    Alguém pode me ajudar?

    Segue código abaixo:

    Public Function TrocaStr(wStr, w1, w2)

    '---------------------------------------------
    'TrocaStr
    'Função auxiliar de FirstCaps
    'Autor : Jacques Zetune
    '----------------------------------------------

    Dim wpos As Integer, wde As Integer
    wde = 1
    Do
    wpos = InStr(wde, wStr, w1)
    If wpos > 0 Then
    Mid(wStr, wpos, Len(w1)) = w2
    wde = wpos + 1
    Else
    Exit Do
    End If
    Loop
    TrocaStr = wStr
    End Function


    Public Function FirstCaps(wText As String)
    '--------------------------------------
    'FIRSTCAPS
    'Autor : Jacques Zetune
    'Alterada por Cesar Rocha
    '--------------------------------------
    Dim wRetVal As String

    wRetVal = StrConv(wText, 3)

    wRetVal = TrocaStr(wRetVal, " E ", " e ")
    wRetVal = TrocaStr(wRetVal, "De ", "de ")
    wRetVal = TrocaStr(wRetVal, "Da ", "da ")
    wRetVal = TrocaStr(wRetVal, "Do ", "do ")
    wRetVal = TrocaStr(wRetVal, "Das ", "das ")
    wRetVal = TrocaStr(wRetVal, "Dos ", "dos ")
    FirstCaps = wRetVal
    End Function

    Private Sub Nome_AfterUpdate()
    Nome = FirstCaps(Nome.Value)
    End Sub

    Private Sub Nome_do_Conjugê_AfterUpdate()
    Nome_do_Conjugê = FirstCaps(Nome.Value)
    End Sub
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4653
    Registrado : 15/03/2013

    Re: Primeira letra em maiuscula - Varias textbox

    Mensagem  ahteixeira em Qua 11 Jan 2017, 18:04

    Olá Junior,

    Efetue uma busca aqui no fórum da palavra "maiúscula", Veja como fazer:
    [Você precisa estar registrado e conectado para ver este link.]
    Abraço

    Junior Cordeiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 18/08/2014

    Re: Primeira letra em maiuscula - Varias textbox

    Mensagem  Junior Cordeiro em Qua 11 Jan 2017, 19:14

    Obrigado AhTeixeira, mas não encontrei nada que viesse a esclarecer minha dúvida. 
    Vi que tem uma função StrConv, mas não sei como usar. Sou novato ainda. Se puder me ajudar, agradeço!

    Queria que ao sair de uma textbox o texto já viesse no formato de a primeira em maiuscula.

    Por favor, alguém pode me ajudar? 


    Agradeço!!!!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4653
    Registrado : 15/03/2013

    Re: Primeira letra em maiuscula - Varias textbox

    Mensagem  ahteixeira em Qui 12 Jan 2017, 12:08

    Olá Junior, veja no link abaixo exemplo:
    [Você precisa estar registrado e conectado para ver este link.]
    Espero que resolva o que pretende.
    Abraço

    Junior Cordeiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 18/08/2014

    Re: Primeira letra em maiuscula - Varias textbox

    Mensagem  Junior Cordeiro em Qui 12 Jan 2017, 13:10

    Olá Alvaro,


    Infelizmente não. Este no caso abre em uma textbox diferente e não é isso que pretendo.
    A função que postei acima faz exatamente o que quero. A minha dúvida é essa: 

    É necessário sempre pedir uma nova private sub afterupdate para cada textbox ou posso colar todas em um novo módulo ou função? E como faço isso?

    Private Sub Nome_AfterUpdate()
    Nome = FirstCaps(Nome.Value)
    End Sub

    Private Sub Nome_do_Conjugê_AfterUpdate()
    Nome_do_Conjugê = FirstCaps(Nome.Value)
    End Sub


    Agradeço pelo emprenho e disposição até o momento!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4653
    Registrado : 15/03/2013

    Re: Primeira letra em maiuscula - Varias textbox

    Mensagem  ahteixeira em Qui 12 Jan 2017, 14:09

    Olá, não sei se compreendi bem a questão.
    Mas se o que pretende é quando o utilizador está a introduzir dados, corrigir antes de gravar, então
    Sim, tem que ter sempre o código a validar em cada campo, pode ser before update (antes de atualizar)

    Caso não seja isso, crie uma base de dados com pequeno exemplo do que pretende fazer e poste.
    Use o seu código e indique onde pretende obter o resultado e detalhe o que está acontecer.

    Abraço
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4653
    Registrado : 15/03/2013

    Re: Primeira letra em maiuscula - Varias textbox

    Mensagem  ahteixeira em Qua 25 Jan 2017, 08:38

    Olá Junior, como ficou a situação?
    Abraço

      Data/hora atual: Sex 15 Dez 2017, 15:52