[Resolvido]Coluna de data com preenchimento automático, condicionado à uma expressão.

Olá! Em primeiro lugar quero parabenizar à todos pelo excelente trabalho! Agora à demanda (muito comum dos meus clientes)

Tenho um subformulário de registro de atendimento à clientes, que precisam ter um feedback da empresa. Este feedback obedeceria um critério pelo tipo de atendimento. Preciso que a data de retorno seja imputada no form e na tabela de acordo com o status de atendimento. Exemplo:

Atendimento - Data - Data Final (automática)
Aguardando DOC Cliente - Agora() - Para "Aguardando DOC Cliente" Adicionar 2 dias à data atual
Em análise juridica - Agora() - Para "Análise Juridica" adicionar 5 dias à data atual
Em Registro - Agora() - Para "Em Registro" adicionar 3 dias à data atual

Estou usando o Access2007

Espero ter sido claro e agradeço as contribuições.

Não poupe informações.. detalhe com mais pormenores o que pretende fazer.. se em form.. se em subform.. se é pesquisa..etc..

Harysohn,

Eu tenho um form com dados cadastrais: nome, endereço, tel... etc.

E vinculado à este form um subformulario de atendimento. É neste sub que preciso colocar um campo de data calculado que funcionaria da seguinte forma:

Coluna A - Status - Parâmetros pré-definidos
Coluna B - Data Agora - Data de hoje - Data()
Coluna C - Data que vence o evento - Somará à data de hoje determinado número de dias, de acordo com o status, por exemplo:

Se o Status for "Em cartório" ele somará 1 (um) dia à data da coluna B e armazenará esta data na coluna C
Se o Status for "Aguardando Documento" ele somará 2 (dois) dias à data da coluna B e armazenará na coluna C e assim suscessivamente. Postei uma imagem para ficar mais claro.


Depois eu vou criar um formulário baseado na data agora - data() puxando os status que venceram. Por isso essa nova data deve retornar para a tabela.


Fico à disposição.

Não consegui subir a imagem, porque não há limite de armazenamento.

Crie uma contta no DropBox e envie o link

Criando. Passei o dia aqui esperando essa resposta, rs

Não consigo colocar o link, há restrição:

Los nuevos usuarios no estan autorizados enviar vínculos externos o emailes durante 7 días.

Me envie no e-mail que posto aqui

Harysohn@hotmail.com

Enviei. Muito Obrigado pela atenção!

O Print do colega

Bem como não temos o BD para testarmos tentarei explicar uma forma de faxzer isto, seguindo os critérios que apresentou:



Coluna A - Status - Parâmetros pré-definidos
Coluna B - Data Agora - Data de hoje - Data()
Coluna C - Data que vence o evento - Somará à data de hoje determinado número de dias, de acordo com o status, por exemplo:

Se o Status for "Em cartório" ele somará 1 (um) dia à data da coluna B e armazenará esta data na coluna C
Se o Status for "Aguardando Documento" ele somará 2 (dois) dias à data da coluna B e armazenará na coluna C e assim suscessivamente. Postei uma imagem para ficar mais claro


No evento após atualiaza do Campo A- Status

'Para coluna B:
Me.CampoColunaB = Me.CampoDataAgora - Date

'Para coluna C:

'Para coluna C:
If Me.CampoStatus.Value = "Em Cartório" Then
Me.CampoColunaC = Me.CampoColunaB + 1
End If

If Me.CampoStatus.Value = "Aguardando Documento" Then
Me.CampoColunaC = Me.CampoColunaB + 2
End If


Bem.. a lógica é esta.. experimente em na dúvida post novamente...

Caso não consiga, Se possivel envie parte do BD referente a este procedimento que ficaremos felizes em ajudá-lo.


Saudações

Haryson,

Agradeço o empenho. Testei o código e quase deu certo. Te mandei um exemplo do banco de dados para apreciação, inclusive para publicar aqui, para que sirva de exemplo para os próximos.


Obrigado!

Esse Dta Agora é o que.. um campo ou a data do sistema?

Amigão.. estou com seu BD.. o que quer que faça? não deu certo as dicas que passei?


Bem... o BD do colega..

Qualquer duvida mais poste..


http://dl.dropbox.com/u/26441349/AlexandreGiannini_24_08_11.rar


Saudações

Haryson,

A data agora é a data atual. Tentei seu exemplo e deu erro de compilação:

Private Sub Data_Prevista_GotFocus()
If Me.Status.Value = "EM REGISTRO" Then
Me.DtPrev = Date + 2
End If

If Me.Status.Value = "SEM CONTATO" Then
Me.DtPrev = Date + 1
End If

End Sub

No campo data prevista, o sistema olharia a data de hoje e somaria x dias conforme o campo status, por exemplo:

Em cartório = data de hoje + 1 dia
Em negociação = data de hoje + 2 dias e assim vai...

Este resultado tem que aparecer no form e alimentar a tabela de origem para consultas futuras.

Mas voce ja fez assim não?

Que fazer o que agora?

Precisa de algo mais?

Observe que teu campo no form esta com nome Data... isto fatalmente produzira erro.. pois Data, Valor, Total, numero.. São palavras reservadas do Access...

Para caixa texto no form utilize txtData, txtValor etc....

Veja..

http://dl.dropbox.com/u/26441349/AlexandreGiannini_24_08_11.rar

Haryson,

Deu certo! Muito obrigado! Fiquei contente com a receptividade e atenção do grupo, o melhor fórum access que já participei!

Vamos ver, eu tinha usado da seguinte forma (ERRADA):

Private Sub Data_Prevista_GotFocus()
If Me.Status.Value = "EM REGISTRO" Then
Me.DtPrev = Date + 2
End If


O Correto na terceira linha será (como indicou):

Me.DtPrev = Me.txtData + 2

Era só isso que estava dando erro, mas agora que alguém me mostrou fica mais fácil né?! rs

Obrigado de novo e tópico resolvido:)

é isso.. e evite sempre palavras reservadas do Access..

Bom trabalho.

O Fórum agradece o retorno