Alterando Todos os registro da tabela.

Boa tarde,
Será difícil sem ter a tabela com os dados

Alexandre!

a tabela já está mencionada no Recordset, é a tabela "clientes"
o detalhe é o seguinte:
após alterar o campo "[DiasContrato]" para 90 ou 45 dias, também deve alterar o campo "[DiasContratoF]"
a função está mudando apenas o 1º campo [DiasContrato].
Se puder me dá uma luz, agradeço!

Sim , eu sei que a tabela está indicada mas não dá para saber em que situações devia executar a alteração e não a executa.
O código como está apenas pode executar uma alteração. Caso a primeira condição seja verdadeira, não verifica a segunda. Será aqui que estará a diferença? Não sei bem o que pretende que execute

Alexandre!

Bem o foco principal é o seguinte, Tenho 3 campos na tabela “Clientes”:
*DataAdmissao 01/11/13
*DiasContrato 45
*DataContratoF 15/12/13

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]),
que no caso será 29/01/14

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

Acho que não fiz o código corretamente, se puder me dá um help, agradeço.

Boa tarde 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