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


3 participantes

    [Resolvido]data tipo completa em maiúscula

    avatar
    totonho01
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 20/11/2013

    [Resolvido]data tipo completa em maiúscula Empty [Resolvido]data tipo completa em maiúscula

    Mensagem  totonho01 10/12/2013, 20:13

    tenho um campo data: formato =agora() que fica assim: "terça-feira, 10 de dezembro de 2013". Eu queria colocar em maiuscula a primeira letra (terça) e a do mês (no caso dezembro) em maiuscula. como fazer?
    avatar
    marcosfaguiar
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 20/08/2012

    [Resolvido]data tipo completa em maiúscula Empty data tipo completa em amiuscula

    Mensagem  marcosfaguiar 10/12/2013, 23:08

    Caro otonho01

    Eu tenho um codigo só com a primeira letra

    Na fonte de controle coloca assim =SeqConv(Format(Agora();"mmmm / yyyy");3)



    Abraço
    avatar
    totonho01
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 20/11/2013

    [Resolvido]data tipo completa em maiúscula Empty Re: [Resolvido]data tipo completa em maiúscula

    Mensagem  totonho01 12/12/2013, 19:26

    esse codigo retorna somente o mes e o ano, mas falta o dia.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    [Resolvido]data tipo completa em maiúscula Empty Re: [Resolvido]data tipo completa em maiúscula

    Mensagem  Alexandre Neves 14/12/2013, 17:51

    Boa tarde,
    Já tentou usar a função de formatar a primeira letra maiúscula que se tem falado aqui no fórum?


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Convidado
    Convidado


    [Resolvido]data tipo completa em maiúscula Empty Re: [Resolvido]data tipo completa em maiúscula

    Mensagem  Convidado 17/12/2013, 12:46

    um pitaco, vc terá que fazer uma magicazinha para obter esse resultado, você terá que criar um campo não acoplado no formulário e deixar como invisível, coloque na propriedade valor padrão desse campo: =SeqConv(Format$(Agora();"Data completa");3) isso lhe retornará todas as iniciais em maiúsculo, ou seja, a preposição de retornará De, para vc normalizar a preposição mude o formato do seu campo data para texto e crie um módulo novo e copie e cole esse código:
    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

    no evento atual do formulário coloque:
    [CampoQueMudouFormato] = FirstCaps([CampoNãoAcoplado])
    avatar
    totonho01
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 20/11/2013

    [Resolvido]data tipo completa em maiúscula Empty Re: [Resolvido]data tipo completa em maiúscula

    Mensagem  totonho01 2/1/2014, 14:57

    certissimo
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    [Resolvido]data tipo completa em maiúscula Empty [Resolvido]data tipo completa em maiúscula

    Mensagem  Alexandre Neves 2/1/2014, 20:27

    Corrigido o título
    de
    [Resolvido]data tipo completa em amiuscula
    para
    [Resolvido]data tipo completa em maiúscula


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Conteúdo patrocinado


    [Resolvido]data tipo completa em maiúscula Empty Re: [Resolvido]data tipo completa em maiúscula

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 12:36