Extração de dados de um campo data, propagação em outros campos access

Hello Convidado

Esse foi mais um destaque, boa solução postada na sala de dúvida sobre Formulários.

Reparei que foi o meu primeiro post aqui no MaximoAccess. JPaulo me clareou as idéias naquela ocasião.Acesse e confira na origem

Faça o download do exemplo:
Download

Legal o exemplo. No tocante à data de pagamento que por ventura acontcer no sábado ou domigo, fiz um teste aqui para atualizar para a próxima segunda feira automaticamente e achei interessante:

If Format(Me.txtDataPag, "ddd") = "sáb" Then 'Se data de pagamento for sábado então...
    Me.txtDataPag = DateAdd("d", 2, Me.txtDataPag) 'aumentar dois dias, passando para segunda.
ElseIf Format(Me.txtDataPag, "ddd") = "dom" Then 'Se data de pagamento for domingo então...
    Me.txtDataPag = DateAdd("d", 1, Me.txtDataPag) 'aumentar um dia, passando para segunda.
Else
    Exit Sub
End If

Cabe ainda alguns ajustes para prever os feriados e corrigir a data de acordo o necessário. Pode tambem diminuir um dia quando for no sábado, passando para sexta feira por exemplo.
Possibilidades, infinitas possibilidades (Lex Luthor em Superman Return)