Primeira Letra Maiúscula

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

Código:

Function fncPrimeiraLetraMaiuscula(txtConverter)

' Autor ..: Alvaro Teixeira (ahteixeira)
' Para ...: MaximoAccess.com
' 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:
=fncPrimeiraLetraMaiuscula([NomeDoCampoAConverter])


Numa consulta:



o resultado obtido é este:


Abraço

Olá, a prepósito de questão de colega neste tópico, partilho exemplo com função para converter o texto todo em minúsculas incluindo as preposições, sendo apenas  Primeira Letra em Maiúscula de cada palavra.

Código:

Option Compare Binary
Option Explicit

Public Function fncMinPreposicoes(Origem As String) As String

' Para ...: MaximoAccess - 2020
' Autor ..: Alvaro Teixeira (ahteixeira)
' Código .: fncMinPreposicoes
' Data ...: 05-03-2020
' Obs ....: Converte a inicial de cada palavra em maiuscula o resto em minusculas
'           As preposições (de,da, ...) coloca em minusculas
'           Retiras espacos errados no inicio e duplicados

Dim i, t, v As Integer
Dim StrTemp As String
Dim ReporStr As String
Dim LocStr As String
Dim StrLen As Integer
Dim Inicio As Integer

If IsNull(Origem) Then Exit Function
    
    Origem = StrConv(Origem, vbProperCase)
    
    Do Until Left(Origem, 1) <> Space(1) 'Retira espaços à esqª
        Origem = Right(Origem, Len(Origem) - 1)
    Loop

For t = 1 To 9
    If t = 1 Then LocStr = " A ": ReporStr = " a "
    If t = 2 Then LocStr = " E ": ReporStr = " e "
    If t = 3 Then LocStr = " O ": ReporStr = " o "
    If t = 4 Then LocStr = " Do ": ReporStr = " do "
    If t = 5 Then LocStr = " Dos ": ReporStr = " dos "
    If t = 6 Then LocStr = " Da ": ReporStr = " da "
    If t = 7 Then LocStr = " Das ": ReporStr = " das "
    If t = 8 Then LocStr = " De ": ReporStr = " de "
    If t = 9 Then LocStr = "  ": ReporStr = " "
    
    StrLen = Len(LocStr)
    
    StrTemp = Origem
    Inicio = InStr(StrTemp, LocStr)
    Do Until Inicio = 0
        StrTemp = Left(Origem, Inicio - 1) & ReporStr & Mid(Origem, Inicio + StrLen)
        Inicio = InStr(StrTemp, LocStr)
        Origem = StrTemp
    Loop
    fncMinPreposicoes = StrTemp
Next

End Function

Abraço e bons estudos