Data Vencimento

Boa Noite! Estou desenvolvendo um BD que controla vencimento de mensalidades, as mensalidades não são geradas tipo um contrato, somente registro as pagas. Gostaria de pegar o vencimento que é padrão todo o dia 10 do ultimo mês que foi pago. Exemplo: Ultimo registro do cliente é o pagamento da mensalidade Referente a Agosto/2018 e o vencimento foi dia 10/07/2018, quando eu for cadastrar um novo pagamento, que o valor padrao do campo vencimento fizesse o calculo com base no ultimo vencimento que o proximo é dia 10/08/2018.

Bom dia,

experimente inserir o código abaixo, no Evento após atualizar no Form_MensalidadesPgmentoSubformulario:

Private Sub DataPagamento_AfterUpdate()
Dim Prox_Venc As Date
  Prox_Venc = DataVencimento
  DoCmd.GoToRecord , , acNext
  DataVencimento = CDate(DateAdd("d", 30, Prox_Venc))
End Sub

Att, Delson