[Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For)

Olá, Senhoras, Senhores, Rapazes e Moças apaixonados pelo Access!

Boa Noite!

Meus Caros, em postagem anterior, pedi ajuda a vocês, mas acredito que ficou meio confusa a explicação. Então, excluí a mensagem anterior, e estou postando esta nova, no intuito de ser mais claro; para com que os colegas, à medida do possível, me ajudem.

Há dias venho batendo cabeça para consegui um modelo ou uma solução para o sistema em anexo.

Passos:
1 - Ao criar um novo Contrato, entro com a data (Início do Processo: )   Exemplo: 26/08/2018

2 - Em seguida, clico no botão Inserir Etapas: As Etapas do Processo são carregadas no Subformulário

PEÇO GENTILMENTE A VOCÊS:
3 - Preciso que o primeiro registro do Subformulário fique com o campo: Entrada Feliz: 26/08/2018
 Por padrão, o Intervalo Dias já vem informado. Neste caso, 3 dias.
 O campo Saída Feliz, será calculado: 26/08/2018 + 3 = 29/08/2018.

4 - O segundo registro do Subformulário fique com o campo: Entrada Feliz: 30/08/2018
  O Intervalo Dias já vem informado. Neste caso, 5 dias.
  O campo Saída Feliz, será calculado: 30/08/2018 + 5 = 04/09/2018.

5 - E assim sucessivamente até o último registro do Subformulário.

Obs.: O ideal, é que o Cálculo seja feito somente com os dias úteis (tenho um modelo e posso adaptar); mas a minha aflição, é conseguir popular as demais datas de forma automática.

Este é o código que estou utilizando:

Private Sub cmdGravar_Click()
Dim dbs As DAO.Database
Dim rs7 As DAO.Recordset
Dim tbl As DAO.Recordset
Dim i As Byte
'---------------------------------------
Set dbs = CurrentDb
Set tbl = dbs.OpenRecordset("t02ObjDth")
Set rs7 = frmEventosS2Oculto.Form.RecordsetClone
rs7.MoveFirst
'---------------------------------------------------------------
'Exportando os campos necessários
Do While Not rs7.EOF
                      'For i = 1 To Me.QtdRegistros
tbl.AddNew
        tbl!ObjDth_Obj_id = Me.Obj_id
         tbl!ObjDth_Modal_id = rs7!ObjDth_Obj_Modal_id
         tbl!ObjDth_EspCont_id = rs7!ObjDth_Obj_EspCont_id
         tbl!ObjDth_tpOb_id = rs7!ObjDth_Obj_tpOb_id
         tbl!ObjDth_EtM_id = rs7!ObjDth_Obj_EtM_id
     
      'Calcula as datas de Vencto através da função DateAdd()
          tbl!ObjDth_DtEntradaCamiFeliz = DateAdd("m", i - 1, Me.Obj_dtContrato)
 tbl.Update
                      'Next
 rs7.MoveNext
Loop

tbl.Close
rs7.Close
Set tbl = Nothing
Set rs7 = Nothing

MsgBox "Registros adicionados com sucesso.", vbInformation, "Sucesso"

  Me.sf1.SetFocus 'Foco no SubForm Parcelas
  Me.cmdGravar.enabled = False 'Desativa o botão Parcelas
  Me.sf1.Requery  'Atualiza o SubForm Parcelas
End Sub

Antecipadamente agradeço a Todos pela Força!

O Meu Sempre Forte, Carinhoso e Fraterno Abraço,
Guilherme B. Pereira

Boa noite,

grbpereira escreveu:E assim sucessivamente até o último registro do Subformulário.

Qual o critério para o sucessivamente?

Olá, Marcelo!



Neste caso, o sucessivamente é: repete o mesmo cálculo até o final. )



Abração, Marcelo!!!





[]'s
Guilherme

Mas aí está minha dúvida... Como saber onde é o final?

Perfeito! )

Marcelo, você tem razão!

Não adicionei essa informação: QtdRegistros é a quantidade de registro de cada contrato, lembrando que pode ser X, Y, W, X+5, Y+W...

Obs.: QtdRegistros, está à direita de inserir Etapas.


[]'s
Guilherme

Mas o campo QtdRegistros é bloqueado e já inicia com zero, como alterá-lo?

Desculpe, entendi agora, vou ver como proceder aqui...

Não ficou claro para mim como saber o intervalo de dias, se é 3, 5, etc?

Caro Marcelo, os intervalos de Dias, vêm predefinidos na tabela: tEtapasMovi


[]'s
Guilherme

Beleza! )


Marcelo, agora que percebi que estava com um pequeno problema para criar novos Contratos. Eu já arrumei. )


Por favor, crie um fictício selecionando os dados e clique no Refresh para "subir" os dados. ;-))


Obs.: Estou enviando a versão arrumada.


[]'s
Guilherme

Veja se é isso:
Obs: Não implementei os dias úteis, pois julgo ser assunto para outro tópico.

Caro Marcelo!!!

NÃO TENHO PALAVRAS PARA TE AGRADECER (em maiúsculo!!!)

Logo; Tenha a Minha GRATIDÃO.

E que Deus, bem como os Anjos da Guarda, dê a Paz Física, Divina e Espiritual; para Você e todos os Seus Entes Queridos.


De todo o meu Coração: OBRIGADO!!!!


O Meu sempre Forte, Carinhoso e Fraterno Abraço,
Guilherme B. Pereira

Fico feliz em ajudar!
O mesmo para você!