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


2 participantes

    Descobri com um erro - Rótulo com "& vbCrLf &"

    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    Descobri com um erro - Rótulo com "& vbCrLf &" Empty Descobri com um erro - Rótulo com "& vbCrLf &"

    Mensagem  Leandro 8/10/2012, 19:57

    Descobri com um erro quando estava programando em um form de abertura que se eu definir o seguinte para um rótulo:

    Me.Rótulo.Caption = Hour(Now()) & vbCrLf & Date

    A informação fica:

    15:54:35 'Exemplo de hora
    08/10/2012 'Exemplo de data

    Ou seja tem o mesmo resultado da MsgBox Razz

    Quem já sabia levanta a mão!

    Abraço


    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Descobri com um erro - Rótulo com "& vbCrLf &" Empty Re: Descobri com um erro - Rótulo com "& vbCrLf &"

    Mensagem  criquio 8/10/2012, 20:29

    Na verdade existem várias formas de se obter alguns resultados referentes à data e hora. Veja:

    Day(Date) = 8
    Month(Date) = 10
    Year(Date) = 2012
    WeekDay(Date) = 2

    Hour(Now) = 16
    Minute(Now) = 21
    Second(Now) = 38

    Format(Now, "d") = 8
    Format(Now, "dd") = 08
    Format(Now, "ddd") = Seg
    Format(Now, "dddd") = segunda-feira
    Format(Now, "dddddd") = 08/10/2012
    Format(Now, "ddddddd") = segunda-feira, 8 de outubro de 2012

    Format(Now, "m") = 10
    Format(Now, "mm") = 10
    Format(Now, "mmm") = out
    Format(Now, "mmmm") = outubro

    Format(Now, "y") = 282
    Format(Now, "yy") = 12
    Format(Now, "yyyy") = 2012

    E por aí afora. Testando se encontra muitas formas de se obter diversos dados Very Happy


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    Descobri com um erro - Rótulo com "& vbCrLf &" Empty Re: Descobri com um erro - Rótulo com "& vbCrLf &"

    Mensagem  Leandro 8/10/2012, 20:41

    Críquio, obrigado por comentar.

    Mas não era sobre as funções referentes a data/hora que me referi, é sobre o: & vbCrLf &, eu quis dizer que não sabia que ele funcionava em rótulos também.

    Só observei para que fique claro, não é orgulho não, beleza? Embarassed

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Descobri com um erro - Rótulo com "& vbCrLf &" Empty Re: Descobri com um erro - Rótulo com "& vbCrLf &"

    Mensagem  criquio 8/10/2012, 20:44

    Entendi. Só comentei tambem, hehehe.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    Descobri com um erro - Rótulo com "& vbCrLf &" Empty Re: Descobri com um erro - Rótulo com "& vbCrLf &"

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 00:14