Alterando Todos os registro da tabela.

Bom dia a todos!
Galera, preciso resolver essa questão se alguém puder verificar o que está errado na função, agradeço.

Bem o foco principal é o seguinte, Tenho 3 campos na tabela “Clientes”:
*DataAdmissao
*DiasContrato
*DataContratoF

O código fará o seguinte:
Se a data de ([DataAdmissao] + 44) dias for maior que a data atual,
então [DiasContrato] é igual (90) e [ DataContratoF] é igual a ([DataAdmissao]+[DiasContrato]),

Se a data de ([DataAdmissao] + 44) dias for menor/igual a data atual,
então [DiasContrato] é igual (45) e [ DataContratoF] é igual a ([DataAdmissao]+[DiasContrato]),
ou seja continua como antes.

Acho que não fiz o código corretamente, pois não está verificando a 2ª opção
se alguém puder me dá um help, agradeço. Segue o código:
-----------------------------------------------------------------------------------------------------------------------------
Private Sub Report_Page()
Dim Rs As Recordset

Set Rs = CurrentDb.OpenRecordset("select * from Clientes", dbOpenDynaset)
With Rs
While Not .EOF
If ![DiasContrato] = 45 And ([DataAdmissao] + 44) < Date Then
.Edit
![DiasContrato] = 90
![DataContratoF] = ([DataAdmissao] + [DiasContrato])
.Update
Else
If ![DiasContrato] = 45 And ([DataAdmissao] + 44) >= Date Then
.Edit
![DiasContrato] = 45
![DataContratoF] = ([DataAdmissao] + [DiasContrato])
.Update
Else
End If
End If
.MoveNext
Wend
End With
Rs.Close
Set Rs = Nothing
MsgBox "Os dias de Contrato de Experiência foram alterados!", vbInformation, "Alteração"
DoCmd.Close
End Sub

Veja se assim resolve:


Dim Rs As Recordset

Set Rs = CurrentDb.OpenRecordset("select * from Clientes", dbOpenDynaset)
With Rs
While Not .EOF
If (![DiasContrato]) = 45 And (([DataAdmissao] + 44) > Date) Then
.Edit
![DiasContrato] = 90
![DataContratoF] = ([DataAdmissao] + [DiasContrato])
.Update
ElseIf ![DiasContrato] = 45 And ([DataAdmissao] + 44) <= Date Then
.Edit
![DiasContrato] = 45
![DataContratoF] = ([DataAdmissao] + [DiasContrato])
.Update
Else
MsgBox "Tudo Ok!",vbInformation
End If
.MoveNext
Wend
End With
Rs.Close
Set Rs = Nothing
MsgBox "Os dias de Contrato de Experiência foram alterados!", vbInformation, "Alteração"
DoCmd.Close

Ainda não resolveu de fato:

![DiasContrato] = 45 essa parte o sistema altera, o resultado vai pra 90, conforme a condição.

Mas essa parte não altera ![DataContratoF] = ([DataAdmissao] + [DiasContrato])
Ou seja, não altera a 2ª opção

Estou enviando um Banco de Dados para vc verificar!

Sanou o problema?

Meu caro, ainda não resolveu.

explicando novamente a lógica: tenho 3 campos.
*[DataAdmissao]
*[DiasContrato]
*[DataContratoF]

condições:
Se a ([DiasContrato]=45) e ([DataAdmissao]+44) se isso for <=menor/igual a data atual
então: [DiasContrato] será igual a 90 e [DataContratoF] será ([DataAdmissao]+[DiasContrato])
ex: Maria foi admitida em: 01/12/2013 + [DiasContrato = 44] resulta em [DataContratoF = 14/01/2014]
então [DiasContrato = 90] e [DataContratoF] será ([DataAdmissao] + [DiasContrato]) que resultará em 28/02/2014.

Caso contrário, continua tudo como está:
a função está alterando apenas o campo [DiasContrato], porém não altera o conteúdo do campo [DataContratoF]

essa função é de suma importância para os contrato de experiência. Se puder me dá um suporte, Agraceço

Marcos

Onde é calculado DiasContrato?

é informado manualmente no ato do cadastro.