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 com texto

    wellingtoneo
    wellingtoneo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 294
    Registrado : 30/07/2012

    [Resolvido]Data com texto Empty [Resolvido]Data com texto

    Mensagem  wellingtoneo 2/11/2012, 14:16

    Boa tarde pessoal!

    Estou com uma dúvida que a seguinte:

    Me.TempoCasa = Date - Me.data_admissao
    Me.TempoCasa = Format(Me.TempoCasa, "yy/mm/dd") 'informa o(s) ano(s), o(s) mês(es) e o(s) dia(s).
    Me.TempoCasa= "'"yy"&"anos e" & "mm" & "meses"'"

    Gostaria que fica assim: Ex: 2 anos e 5 meses.

    mas não consigo colocar o texto no campo Me.TempoCasa... Alguém pode me ajudar? Obrigado!
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Data com texto Empty Re: [Resolvido]Data com texto

    Mensagem  criquio 2/11/2012, 14:21

    Qual é o tipo do campo aonde está tentando colocar o texto? Verifique se não está como data.


    .................................................................................
    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.

    wellingtoneo
    wellingtoneo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 294
    Registrado : 30/07/2012

    [Resolvido]Data com texto Empty Re: [Resolvido]Data com texto

    Mensagem  wellingtoneo 2/11/2012, 14:28

    É uma txt não aclopada. Não vai armazenar o valor em nenhum campo de tabela. É só pra me ter uma referência do tempo de empresa do colaborador.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Data com texto Empty Re: [Resolvido]Data com texto

    Mensagem  criquio 2/11/2012, 15:28

    Sim mas como esse campo está formatado?


    .................................................................................
    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.

    avatar
    Convidad
    Convidado


    [Resolvido]Data com texto Empty Re: [Resolvido]Data com texto

    Mensagem  Convidad 2/11/2012, 15:50

    Me.TempoCasa = Date - CDate(Me.data_admissao)
    Me.TempoCasa = Trim(Format(Me.TempoCasa, "yy")) & " " & "anos" & " " & Trim(Format(Me.TempoCasa, "mm")) & " " & "meses"

    wellingtoneo
    wellingtoneo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 294
    Registrado : 30/07/2012

    [Resolvido]Data com texto Empty Re: [Resolvido]Data com texto

    Mensagem  wellingtoneo 2/11/2012, 17:48

    Pessoal me descupe... tó saindo do trabalho e daqui a pouco eu posto se a soluções apresentada tiverão resultados... Obrigado!
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Data com texto Empty Re: [Resolvido]Data com texto

    Mensagem  Avelino Sampaio 2/11/2012, 17:59

    Veja se este meu artigo ajuda.

    http://www.usandoaccess.com.br/dicas/dica31.asp?id=1#inicio

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    wellingtoneo
    wellingtoneo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 294
    Registrado : 30/07/2012

    [Resolvido]Data com texto Empty Re: [Resolvido]Data com texto

    Mensagem  wellingtoneo 6/11/2012, 09:27

    Valeu pessoal!!!!

    A dica do Ricardo, funcionou perfeitamente. Agradeço a todos pela ajuda!! Valeu mesmo!!! Obrigado!!!

    Conteúdo patrocinado


    [Resolvido]Data com texto Empty Re: [Resolvido]Data com texto

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 15:36