Primeira Letra Maiúscula

Destinado a postagens de exemplos em Microsoft Access (código aberto) por todos os utilizadores cadastrados.
Não são permitidos exemplos sem acesso à estrutura.
Não são aceitos exemplos com a extensão em .EXE

Moderador: Avelino Sampaio

Avatar do usuário
ahteixeira
Mensagens: 38
Registrado em: 07 Jun 2015, 18:51
Localização: Porto - Portugal

Primeira Letra Maiúscula

Mensagempor ahteixeira » 24 Mai 2017, 02:16

Olá, partilho exemplo com função para converter a Primeira Letra em Maiúscula

Código: Selecionar todos

Function fncPrimeiraLetraMaiuscula(txtConverter)

' Autor ..: Alvaro Teixeira (ahteixeira)
' Data ...: 12-01-2017
' Função .: fncPrimeiraLetraMaiuscula
' Obs ....: Converter texto para minusculas, sendo apenas a primeira letra maiuscula

Dim sTmp$
sTmp = Trim(txtConverter)
    
    If Len(sTmp) > 0 Then
        sTmp = UCase(Left(sTmp, 1)) & LCase(Right(sTmp, Len(sTmp) - 1))
    End If

fncPrimeiraLetraMaiuscula = sTmp

End Function


Quem desejar adicionar a projeto já existete, crie um Módulo e copie o código acima.
Depois será só chamar a função, passando o parametro do nome do campo que se pertende converter.

Exemplo:
[font=Courier New]=fncPrimeiraLetraMaiuscula([NomeDoCampoAConverter])[/font]

Abraço
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Voltar para “Biblioteca de exemplos Ms Access”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 2 visitantes