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


    [Resolvido]Preencher Data Automática

    avatar
    Jairo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 09/05/2013

    [Resolvido]Preencher Data Automática Empty [Resolvido]Preencher Data Automática

    Mensagem  Jairo em 20/10/2019, 16:16

    Bom Dia Abençoado a Todos,

    Gostaria de agradecer a todos pelo apoio, e trago mais um Dúvida,

    Tenho um relatório que mede o tempo de permanencia de um componente dentro da empresa.

    Exemplos.

    Campos:
    DataChegada
    DataDesmontagem

    Campo:
    TempoDesmontagem: ([DataDesmontagem])-([DataChegada]), mediante essa formula terei a quantidade de dias que correu entre a data de chegada e a data da desmontagem do componente.

    As datas são informadas conforme vão ocorrendo a Desmontagem, e muitas vezez preciso gerar o relatório e essas datas não ocorreram ainda, nessa ocasião queria que o campo (DataDesmontagem) que ainda está vazio, assuma a data atual, ao ser gerado relatório, só para visualizar no relatório, sem comprometer o preenchimento futuro na consulta.

    Estou anexando o Banco de Dados para velhor visualização







    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6379
    Registrado : 15/03/2013

    [Resolvido]Preencher Data Automática Empty Re: [Resolvido]Preencher Data Automática

    Mensagem  ahteixeira em 20/10/2019, 16:32

    Olá Jairo,

    Faltou o anexo, mas será algo assim na linha de código antes de chamar o reporte:

    Código:
    if len([DataDesmontagem] &"") = 0 then [DataDesmontagem] = date()

    A "olho", não testado.
    Abraço
    avatar
    Jairo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 09/05/2013

    [Resolvido]Preencher Data Automática Empty Re: [Resolvido]Preencher Data Automática

    Mensagem  Jairo em 20/10/2019, 17:08

    Boa Tarde!

    Não compreendi bem em que lugar inserir o codigo.

    É pra inserir código na propriendade do campo DataDesmontagem?

    abraços
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6379
    Registrado : 15/03/2013

    [Resolvido]Preencher Data Automática Empty Re: [Resolvido]Preencher Data Automática

    Mensagem  ahteixeira em 20/10/2019, 21:47

    Olá JAiro,

    O código seria para o botão do relatório, no seguimento de ...

    ... nessa ocasião queria que o campo (DataDesmontagem) que ainda está vazio, assuma a data atual, ao ser gerado relatório ...

    Caso a duvida se mantenha, partilhe mais dados e a sua base de dados, veja como fazer:
    http://www.maximoaccess.com/t28813-como-adicionar-arquivo-ficheiro-a-mensagem-no-forum

    Abraço
    avatar
    Jairo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 09/05/2013

    [Resolvido]Preencher Data Automática Empty Re: [Resolvido]Preencher Data Automática

    Mensagem  Jairo em 22/10/2019, 23:38

    Boa Noite,

    Obrigado pelas dicas, mas ainda não consegui ativa,

    estou postando baco de dados com relatório, a ideia e que todos os capos cuja esteja vazio,ou seja, que não foram alimentados com datas, assumam a data atual ao gerar o relatório.

    gratos

    abraços
    Anexos
    [Resolvido]Preencher Data Automática AttachmentRelatório.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (65 Kb) Baixado 3 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6379
    Registrado : 15/03/2013

    [Resolvido]Preencher Data Automática Empty Re: [Resolvido]Preencher Data Automática

    Mensagem  ahteixeira em 23/10/2019, 10:31

    Olá Jairo,

    Assim ficou mais fácil para compreender e poder ajudar.

    Veja no relatório o que apresenta a vermelho (Data da Aprovação), utilizei o código sugerido na mensagem nº 2, apenas alterando para um IIF, veja:
    Código:
    =Ise(Compr([Dt Aprovação] & "")=0;Data();[Dt Aprovação])

    O que está a verde (Dt.Pedido Peças), também obtemos o mesmo resultado com o seguinte código:
    Código:
    =Ise(ÉNulo([PedidoPeças]);Data();[PedidoPeças])

    Segue o meu teste:
    cld.pt/dl/download/296b4be1-c108-420c-9c20-efb2773579a1/Relatorio.zip

    Abraço
    avatar
    Jairo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 09/05/2013

    [Resolvido]Preencher Data Automática Empty Re: [Resolvido]Preencher Data Automática

    Mensagem  Jairo em 26/10/2019, 22:10

    Boa Noite!

    Tudo certo, Muito obrigado,

    Tinha colocado código no lugar errado,

    Abraços
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6379
    Registrado : 15/03/2013

    [Resolvido]Preencher Data Automática Empty Re: [Resolvido]Preencher Data Automática

    Mensagem  ahteixeira em 29/10/2019, 10:47

    cheers

    Conteúdo patrocinado

    [Resolvido]Preencher Data Automática Empty Re: [Resolvido]Preencher Data Automática

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2019, 20:02