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

    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
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3833
    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
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3833
    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
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3833
    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
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3833
    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: Sab 29 Abr 2017, 04:37