Registrar Dados no Subformulário

Bom dia Galera!
há alguns dias postei um código no forum, que foi
implementado pelos Mestres JPaulo e Mario Fernandes e ficou muito bom.
Porém ainda está faltando algum detalhe para rodar Legal:
segue o código:
--------------------------------------------------------------------------------------------
Private Sub GerarFerias_Click()
DoCmd.RunCommand acCmdRefresh
Dim Rs As Recordset
Set Rs = CurrentDb.OpenRecordset("Tabela_Funcionarios_Ferias", dbOpenDynaset)

If Me.CódigoCliente = "" Or IsNull(Me.CódigoCliente) Or Me.CódigoCliente = 0 Then Exit Sub

If Forms!Frm_Funcionarios!Frm_Funcionarios_Ferias.Form!Efetivar.Value = -1 Then
Rs.AddNew
Rs![Id_Funcionarios_Ferias] = Me.CódigoCliente
Rs![PeriodoAquisicaoI] = [DataAdmissao]
Rs![PeriodoAquisicaoF] = ([DataAdmissao] + 364)
Rs![PeriodoGozoI] = ([DataAdmissao] + 365)
Rs![PeriodoGozoF] = (([DataAdmissao] + 365) + 364)
Rs.Update
Rs.Close
Me.Frm_Funcionarios_Ferias.Requery
MsgBox "Período aquisitivo e concessivo inseridos com Sucesso!", vbInformation, "Férias"
Else
MsgBox "Período concessivo de férias não foi efetivado...", vbCritical
Exit Sub
End If
Set Rs = Nothing
End Sub
--------------------------------------------------------------------------------------------

Detalhando:
Quando existe algum lançamento no subform e o período estiver efetivado blz. ele gera normalmente.
acontece que quando não tem lançamento nenhum para um determinado cliente
ele também não deixa gerar o registro.

o correto é:
quando não existir lançamento para aquele cliente
ele permiti gerar o lançamento, e a partir desse registro
ele vai verifica forçando o usuário a efetivar o período antes
do próximo registro.

Se puderem me dá uma ajuda novamente, agradeço!

Disponibilize o BD para que possamos ver o processo todo.


Cumprimentos.

Olá galera!
Segue anexo banco para analise!

Estou precisando dessas implementações e acredito que seja
uma solução importantíssima para muitos usuários que trabalham com controle de Férias


Tenho 2(dois) formulários (Frm_Funcionarios x Frm_Funcionarios_Ferias)

No “Frm_Funcionarios” na aba (férias) criei um botão de comando que recebe a função que comecei a fazer, mas acredito que esteja faltando vários detalhes.

O que preciso é o seguinte: na aba (trabalhista) tem um campo chamado “DataAdmissao”
Quando eu cadastro um novo funcionário, eu informo a data de admissão do mesmo. Então preciso que a função gere a partir da data de admissão:

PeriodoAquisicaoI = DataAdmissão
PeriodoAquisicaoF = ([DataAdmissao] + 364)
PeriodoGozoI = ([DataAdmissao] + 365)
PeriodoGozoF = (([DataAdmissao] + 365) + 364)
PeriodoFeriasI será informado manualmente (campo deve permanecer em branco)
PeriodoFeriasF será informado manualmente (campo deve permanecer em branco)

Na função que tenho está acontecendo o seguinte:
•Se não tiver lançamento nenhum para um determinado cliente, ele também não deixa gerar o registro.
•Se eu marcar apenas a caixinha do botão efetivar ele gera um registro vazio.

O correto e o que estou precisando:
•quando não existir lançamento para aquele cliente, ele permiti gerar o lançamento normalmente.
•Se eu por acaso marcar equivocadamente apenas a caixinha do botão efetivar com o registro vazio, Ele não deixar gerar o registro.
Quando for gerar um próximo registro de férias para o mesmo cliente, tem que fazer o seguinte:
Verifica se o registro anterior foi efetivado. Caso não tenha sido, dispara a mensagem:
"Período concessivo de férias não foi efetivado..."

Caso tenha sido efetivado, gera da seguinte forma:

PeriodoAquisicaoI = PeriodoGozoI - que foi o período informado anteriormente (sempre assim)
PeriodoAquisicaoF = PeriodoGozoF - que foi o período informado anteriormente (sempre assim)
PeriodoGozoI = ([PeriodoAquisicaoF ] +1)- que foi o período informado anteriormente (sempre assim)
PeriodoGozoF = ([PeriodoGozoI ] + 365) - que foi o período informado anteriormente (sempre assim)
PeriodoFeriasI será informado manualmente (campo deve permanecer em branco)
PeriodoFeriasF será informado manualmente (campo deve permanecer em branco)

Conto com a colaboração desse forum.

Boas Marcos, revendo meus tópicos percebi que não andamos com este.

A como andas esta solução?

cumprimentos.

como anda esta solução Marcos?