MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Converter dia em data atual.

    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  julianovv em Sab 05 Jan 2019, 10: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 Professional 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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 540
    Registrado : 21/11/2016

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

    Mensagem  IvanJr. em Sab 05 Jan 2019, 16: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)


    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.
    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  julianovv em Sab 05 Jan 2019, 16: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 Professional 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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 540
    Registrado : 21/11/2016

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

    Mensagem  IvanJr. em Sab 05 Jan 2019, 17: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


    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.
    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  julianovv em Sab 05 Jan 2019, 17: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 Professional 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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 540
    Registrado : 21/11/2016

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

    Mensagem  IvanJr. em Sab 05 Jan 2019, 17: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)


    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.
    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  julianovv em Sab 05 Jan 2019, 17: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 Ter 08 Jan 2019, 15:40, editado 1 vez(es)


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

    Uso o Access 2007 no XP Professional 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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 540
    Registrado : 21/11/2016

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

    Mensagem  IvanJr. em Sab 05 Jan 2019, 23: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)


    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.
    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  julianovv em Dom 06 Jan 2019, 11: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 Professional 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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 540
    Registrado : 21/11/2016

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

    Mensagem  IvanJr. em Dom 06 Jan 2019, 13: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.


    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.
    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  julianovv em Ter 08 Jan 2019, 14: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 Professional 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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 540
    Registrado : 21/11/2016

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

    Mensagem  IvanJr. em Ter 08 Jan 2019, 16:48

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


    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.
    julianovv
    julianovv
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  julianovv em Sex 08 Mar 2019, 10: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 Professional 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

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Ter 21 Maio 2019, 10:13