REGISTRAR DADOS NO SUBFORMULARIO

MARCOSDCMA 30/11/2012 16:09:12
#415185

Bom dia Galera!
Fiz um código para gerar registro no subformulário.
Porém ainda está faltando algum detalhe para rodar Legal:
segue o código: está num botão de comando:
--------------------------------------------------------------------------------------------
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 para aquele cliente - 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!