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.

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

    Mensagem  julianovv em 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 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 : 489
    Registrado : 22/11/2016

    Re: Converter dia em data atual.

    Mensagem  IvanJr. em 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)


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

    Re: Converter dia em data atual.

    Mensagem  julianovv em 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 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 : 489
    Registrado : 22/11/2016

    Re: Converter dia em data atual.

    Mensagem  IvanJr. em 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


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

    Re: Converter dia em data atual.

    Mensagem  julianovv em 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 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 : 489
    Registrado : 22/11/2016

    Re: Converter dia em data atual.

    Mensagem  IvanJr. em 5/1/2019, 19:34

    Veja...
    Anexos
    Database1.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

    Re: Converter dia em data atual.

    Mensagem  julianovv em 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 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 : 489
    Registrado : 22/11/2016

    Re: Converter dia em data atual.

    Mensagem  IvanJr. em 6/1/2019, 01:08

    Veja
    Anexos
    Database1_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

    Re: Converter dia em data atual.

    Mensagem  julianovv em 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 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 : 489
    Registrado : 22/11/2016

    Re: Converter dia em data atual.

    Mensagem  IvanJr. em 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.


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

    Re: Converter dia em data atual.

    Mensagem  julianovv em 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 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 : 489
    Registrado : 22/11/2016

    Re: Converter dia em data atual.

    Mensagem  IvanJr. em 8/1/2019, 18: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

    Re: Converter dia em data atual.

    Mensagem  julianovv em 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 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

      Data/hora atual: 23/3/2019, 13:28