Campo atualizado após inserção de dados em outro campo

Caros amigos, estou com um problema que esta me tirando do sério.

Muitos vão achar simples, mas realmente estou tendo dificuldades.

Tenho um formulário baseado em uma tabela X. Preciso inserir um campo neste formulário que faça o seguinte:

- Verifique a data inserida em um determinado campo ( Data de abertura do Processo Data_Abert_Processo );
- Verifique o tipo de Processo (Tipo_Processo) este pode ser por exemplo SIND ou PAD. Se SIND mais 30 dias ou PAD mais 60 dias;

No campo que preciso inserir ( Validade ), preciso que seja verificado a data de abertura e o tipo de processo, para o vencimento apresentar a data no qual o processo irá vencer.

Nos primeiros modelos que tentei não estava considerando o tipo de processo. Estava apenas querendo verificar a data inicial e apresentar uma data fixa de 60 dias. Estava ficando assim:

Vencimento: DateAdd("d";60;([Data_Abert_Processo])

Tentei colocar este código ao entrar no campo. Não funcionou.

Alguém pode ajudar?

Agradeço.

Coloque após atualizar o campo tipo de processo do seu form.

Private Sub TPro_AfterUpdate()
Dim process As String
process = Me.NomeDoSeuCampo 'campo onde digita o tipo de processo
Select Case process
Case "sind"
Me.SeuCampoData = DateAdd("d", 60, Me.txtData) 'se "sind" adiciona +60 dias
Case "pad"
Me.SeuCampoData = DateAdd("d", 30, Me.txtData) 'se "pad" adiciona +30 dias
End Select
End Sub