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


4 participantes

    [Resolvido]1ª letra maiúscula

    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2980
    Registrado : 09/04/2012

    [Resolvido]1ª letra maiúscula Empty [Resolvido]1ª letra maiúscula

    Mensagem  Kaynan 31/10/2014, 23:22

    Ola gente boa:
    Tenho em um campo no evento ao pressionar tecla esse código pra deixar todas as letras em maiúscula,mas pra deixar só a primeira letra maiúscula como seria.


    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]1ª letra maiúscula Empty Re: [Resolvido]1ª letra maiúscula

    Mensagem  formiga10x 1/11/2014, 00:24

    Experimente a função Propercase

    Ex:

    Me.txtCliente = StrConv(Me.txtCliente , vbProperCase)


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]1ª letra maiúscula Empty Re: [Resolvido]1ª letra maiúscula

    Mensagem  Noobezinho 1/11/2014, 00:40

    Tem também essa função bem antiga:

    Código:


    Function FirstCaps(wText)
    '--------------------------------------
    'FIRSTCAPS
    'Autor : Jacques Zetune
    '--------------------------------------
    Dim wi As Integer, wChar As String, wRetVal As String
    Dim wFirst As Integer, wpos As Integer
    If Not IsNull(wText) Then
       wFirst = True
       wRetVal = ""
       For wi = 1 To Len(wText)
           wChar = Mid(wText, wi, 1)
           If wFirst Then
              wRetVal = wRetVal + UCase(wChar)
              wFirst = False
           Else
              wRetVal = wRetVal + LCase(wChar)
           End If
           If wChar = " " Then
              wFirst = True
           End If
       Next
       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 If
    End Function


    Na propriedade ao Sair da caixa de texto:
    If Not IsNull(Me.Controle) Then Me.Controle = FirstCaps(Me.Controle)

    Se o nome do vivente for: joão de azevedo da luz dos pinhas de oliveira  retorna:
    João de Azevedo da Luz dos Pinhas de Oliveira
    Veja na função o tratamentos para os "de", "dos", etc
    Abraços

    Nb


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2980
    Registrado : 09/04/2012

    [Resolvido]1ª letra maiúscula Empty Re: [Resolvido]1ª letra maiúscula

    Mensagem  Kaynan 1/11/2014, 01:38

    Ai pessoal não deu certo,quero no campo TblDescriçao do subformulario,vejam ai pra mim.
    Abç

    https://dl.dropboxusercontent.com/u/90217826/Osteste.rar
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]1ª letra maiúscula Empty Re: [Resolvido]1ª letra maiúscula

    Mensagem  Marcelo David 1/11/2014, 02:16

    Olá, com licença dos companheiros,
    teste o anexo por favor.
    Anexos
    [Resolvido]1ª letra maiúscula AttachmentOsteste_New1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (320 Kb) Baixado 79 vez(es)


    .................................................................................
    [Resolvido]1ª letra maiúscula Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]1ª letra maiúscula Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]1ª letra maiúscula Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]1ª letra maiúscula Marcel11
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2980
    Registrado : 09/04/2012

    [Resolvido]1ª letra maiúscula Empty Re: [Resolvido]1ª letra maiúscula

    Mensagem  Kaynan 1/11/2014, 02:42

    Perfeito Marcelo,muito obrigado.
    Formiga,noob valeu.
    abçs
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]1ª letra maiúscula Empty Re: [Resolvido]1ª letra maiúscula

    Mensagem  Marcelo David 1/11/2014, 04:22

    Grato pelo retorno meu amigo!


    .................................................................................
    [Resolvido]1ª letra maiúscula Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]1ª letra maiúscula Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]1ª letra maiúscula Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]1ª letra maiúscula Marcel11

    Conteúdo patrocinado


    [Resolvido]1ª letra maiúscula Empty Re: [Resolvido]1ª letra maiúscula

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 01:30