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

    Converter dia em data atual.

    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 654
    Registrado : 14/12/2010

    Converter dia em data atual. Empty Converter dia em data atual.

    Mensagem  julianovv 5/1/2019, 12:16

    Bom dia. Tenho um campo de vencimento para digitar somente o dia e preciso que esse dia seja convertido em uma data completa. Exemplo: digito 15 e me retorna 15/01/2019.
    Isso é possível?
    Obrigado.

    Juliano

    Wink


    .................................................................................
    Juliano

    USO O ACCESS 2007 NO XP SP3
    Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - GForce GT220 - LG Led LCD 20M35PD - Impressora Epson T33 - Scanner Bright.
    Smile
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3715
    Registrado : 22/11/2016

    Converter dia em data atual. Empty Re: Converter dia em data atual.

    Mensagem  DamascenoJr. 5/1/2019, 18:25

    Evento após atualizar do campo

    Código:
    If Nz(Me.ActiveControl) = "" Then Exit Sub
       
    Me.ActiveControl.Value = DateSerial(Year(Date), Month(Date), Me.ActiveControl.Value)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 654
    Registrado : 14/12/2010

    Converter dia em data atual. Empty Re: Converter dia em data atual.

    Mensagem  julianovv 5/1/2019, 18:59

    Obrigado, mas o campo ficou em branco. Não converteu. O campo está no formato Número com 2 dígitos.
    Na verificação imediata da primeira linha deu "Erro de compilação. Era esperado: expressão."

    Rolling Eyes


    .................................................................................
    Juliano

    USO O ACCESS 2007 NO XP SP3
    Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - GForce GT220 - LG Led LCD 20M35PD - Impressora Epson T33 - Scanner Bright.
    Smile
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3715
    Registrado : 22/11/2016

    Converter dia em data atual. Empty Re: Converter dia em data atual.

    Mensagem  DamascenoJr. 5/1/2019, 19:11

    basta então retirar o formato do campo para que não seja um número com dois dígitos e possa virar data


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 654
    Registrado : 14/12/2010

    Converter dia em data atual. Empty Re: Converter dia em data atual.

    Mensagem  julianovv 5/1/2019, 19:24

    Não deu. Mudei o campo pra formato Número sem dígito e apareceu um número no lugar (-632164). Mudei para texto, não deu.

    Wink


    .................................................................................
    Juliano

    USO O ACCESS 2007 NO XP SP3
    Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - GForce GT220 - LG Led LCD 20M35PD - Impressora Epson T33 - Scanner Bright.
    Smile
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3715
    Registrado : 22/11/2016

    Converter dia em data atual. Empty Re: Converter dia em data atual.

    Mensagem  DamascenoJr. 5/1/2019, 19:34

    Veja...
    Anexos
    Converter dia em data atual. AttachmentDatabase1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (18 Kb) Baixado 9 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 654
    Registrado : 14/12/2010

    Converter dia em data atual. Empty Re: Converter dia em data atual.

    Mensagem  julianovv 5/1/2019, 19:58

    Ok, deu certo mas com uma caixa de texto não acoplado. O meu campo (DiaVencimento) vem de uma tabela. Como eu faço para ele 'acoplar' ao campo da tabela?
    Desse formulário sairão relatórios baseados em consultas com cálculos de datas que vem principalmente desse campo de data.

    Wink


    Última edição por julianovv em 8/1/2019, 17:40, editado 1 vez(es)


    .................................................................................
    Juliano

    USO O ACCESS 2007 NO XP SP3
    Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - GForce GT220 - LG Led LCD 20M35PD - Impressora Epson T33 - Scanner Bright.
    Smile
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3715
    Registrado : 22/11/2016

    Converter dia em data atual. Empty Re: Converter dia em data atual.

    Mensagem  DamascenoJr. 6/1/2019, 01:08

    Veja
    Anexos
    Converter dia em data atual. AttachmentDatabase1_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (41 Kb) Baixado 14 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 654
    Registrado : 14/12/2010

    Converter dia em data atual. Empty Re: Converter dia em data atual.

    Mensagem  julianovv 6/1/2019, 13:59

    Muito bom. Esse código pode ser adaptado para o meu caso? Preciso que a virada do mês ou ano, seja alterado, afinal é o dia do vencimento.

    Wink


    .................................................................................
    Juliano

    USO O ACCESS 2007 NO XP SP3
    Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - GForce GT220 - LG Led LCD 20M35PD - Impressora Epson T33 - Scanner Bright.
    Smile
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3715
    Registrado : 22/11/2016

    Converter dia em data atual. Empty Re: Converter dia em data atual.

    Mensagem  DamascenoJr. 6/1/2019, 15:32

    O que eu digo é: não vale a pena complicar o simples. Permitir que seus usuários digitem a data completa é melhor que achar uma forma mirabolante de completar a data. Talvez o que pretendes seja geração de parcela e também ajuste de data de vencimento para dia útil e já vi muitos exemplos no fórum. Boa sorte.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 654
    Registrado : 14/12/2010

    Converter dia em data atual. Empty Re: Converter dia em data atual.

    Mensagem  julianovv 8/1/2019, 16:55

    Sim, com certeza é um complicador mas pensei na possibilidade de evitar que todo mês o usuário do banco tenha que digitar a data de vencimento de cada um dos cadastrados.

    Wink


    .................................................................................
    Juliano

    USO O ACCESS 2007 NO XP SP3
    Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - GForce GT220 - LG Led LCD 20M35PD - Impressora Epson T33 - Scanner Bright.
    Smile
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3715
    Registrado : 22/11/2016

    Converter dia em data atual. Empty Re: Converter dia em data atual.

    Mensagem  DamascenoJr. 8/1/2019, 18:48

    Ahhh... então o que você quer é replicar a data informada em um cadastro em outros cadastros. Certo?


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 654
    Registrado : 14/12/2010

    Converter dia em data atual. Empty Re: Converter dia em data atual.

    Mensagem  julianovv 8/3/2019, 13:55

    Não deu. O objetivo era fazer o usuário digitar somente o dia e ao sair do campo ele atualizaria para data. Ex: digitaria 8 e seria convertido para 08/03/2019, ou seja, mês e ano atual. Isso seria importante no sentido de não precisar ficar todo mês atualizando a data do vencimento. O dia digitado definiria todos os meses seguintes.

    Rolling Eyes


    .................................................................................
    Juliano

    USO O ACCESS 2007 NO XP SP3
    Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - GForce GT220 - LG Led LCD 20M35PD - Impressora Epson T33 - Scanner Bright.
    Smile

      Data/hora atual: 28/11/2022, 16:06