CALCULANDO DATAS NO ACCESS 2007

Caros amigos,

Em primeiro lugar gostaria de parabenizá-los pelo site e sobretudo pelo fórum que já acompanho faz algum tempo,mas, só agora me registrei para participar. Em segundo lugar, gostaria que me ajudassem a resolver o seguinte problema:

Tenho um formulário chamado FormCadAquisicao onde o objetivo é cadastrar solicitações de compras efetuadas pelos diversos departamentos do instituto onde trabalho. Bem, neste formulário foi criado um grupo de opções chamado de [Quadrotramite] com botões de seleção conforme descrito abaixo:

()Em andamento : A aquisição encontra-se em processo de análise é só será liberada se tudo estiver em conformidade;
()Devolvida ao Solicitante: Se a aquisição apresentar problemas, esta opção deverá ser escolhida;
()Concluída: Se tudo ocorrer dentro dos conformes, a aquisição é concluída;
()cancelada: Aqui, por pedido do solicitante, a aquisição é cancelada;
()arquivada: Aqui, a aquisição física (papel) é arquivada.

Cada opção dessa possui sua respectiva data, isto é: data de devolução ao solicitante, data de conclusão, data de cancelamento e data de aqrquivamento. Já a opção em andamento, está vinculada a um campo chamado (tempo de permanência). E, é aqui que reside meu problema.

Nesse campo tempo de permanência será registrada a quantidade de dias que o processo está "parado" no setor, isto é, deverá ser registrado a diferença entre a data atual e a data de chegada no setor. Até aí tudo bem, pois com o procedimento que adotei, o cálculo é gerado corretamente. O problema ocorre com a mudança da data atual. Vou exemplificar para ficar mais claro, então, suponhamos:

Data de chegada: 15/04/2013
Data atual = Date()= 15/05/2013

Então tempo de permanência=30 dias. Acontece que, quando salvo os dados no formulário, o mesmo "cravra" esses trinta dias, exemplificando:

Se a data atual passar para 16/05/2013 o tempo de permanência, terá quer ser de 31 dias e não mais de trinta. Não estou conseguindo fazer isso com o procedimento adotado para o campo tempo de permanência no evento "após atualizar". Passo abaixo o procedimento:

Private Sub Tempodepermanencia_AfterUpdate()
If Quadrotramite.Value = 1 Then
Tempodepermanencia = (DataAtual) - (DataChegada)
End If
End Sub

Espero que tenha sido claro nas colocações. De antemão, agradeço a atenção dispensada.

Boa tarde, betozaru, e bem-vindo ao fórum
Se o campo é calculado a partir da data armazenada, não registe na tabela. Sempre que precise do cálculo, efectue-o

Caro Alexandre,

Eu não gostaria de toda vez realizar o cálculo, inclusive, na idéia inicial, foi colocado um botão de comando que fazia isso. O objetivo maior é fazer que com esse procedimento automático me informe quantos dias se passaram sem ter que ficar abrindo o formulário e, após um tempo pré-determinado seja disparado um e-mail de advertência. Por exemplo: se o tempo de permanência for maior que 15 dias, o programa automaticamente alertará o setor que exite uma aquisição pendente que necesssita de uma solução.

Boa tarde,
Se o propósito é disparar um alerta automático, conforme o atraso do processo, veja onde deve executar a verificação e restantes procedimentos automáticos: AoAbrir da bd? crie macro autoexec que execute função que efectue o que pretende

Em primeiro lugar gostaria de agradecer a atenção dispensada. Meu grande problema é que não sei criar esse código auto-executável. Poderiam me ajudar?

Boa tarde,
Se disponibilizar a bd, ou parte, para tentar ajudar

Betozaru, tente colocar este mesmo código que colocou no evento Após atualizar, tambem no envento: No Atual.

ou escreva no atual:

No campo calculado (Fonte do controle)
=DifData("d";[DataChegada];Data())

tente aí...