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

    [Resolvido]Preencher Data Automática

    avatar
    Jairo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Jairo 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 : Respeito às Regras 100%

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

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

    Mensagem  ahteixeira 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 : Respeito às Regras 100%

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

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

    Mensagem  Jairo 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 : Respeito às Regras 100%

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

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

    Mensagem  ahteixeira 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:
    https://www.maximoaccess.com/t28813-como-adicionar-arquivo-ficheiro-a-mensagem-no-forum

    Abraço
    avatar
    Jairo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Jairo 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 6 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ahteixeira 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 : Respeito às Regras 100%

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

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

    Mensagem  Jairo 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 : Respeito às Regras 100%

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

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

    Mensagem  ahteixeira 29/10/2019, 10:47

    cheers

      Data/hora atual: 14/6/2021, 06:11