[Resolvido]Restrição de Lançamento com critério de datas em subform (Marscosdcma)

Em contato via e-mail, Dúvida do colega Marcosdcma, lembrando que devemos utilizar sempre fórum para dúvidas!!!


Nesse BD. tem cadastrados 10 clientes pra que vc. possa fazer teste.
Você verá no formulário de cadastro de clientes que existe um subformulário acoplado (guia "informações")
que é onde lanço as informações tipo:(Adivertência,Cat,Demissão,Inss,Ferias,Transferência)

A tem que fazer assim:
Se houver um lançamento de "CAT" nessa guia de informações a rotina não poderá permitir
o lançamento de Demissão na mesma guia, isso considerando o período cadastrado
ex: 01/09/12 à 01/09/13, nesse período se houver lançamento de "Demissão", o sistema emite
uma mensagem não deixando concluir o lançamento. o lançamento de "demissão" só irá prosseguir
se a data(Data_LanAlteracaoFP) for maior que a (Datafinal)... tudo isso na guia "informações"

Se vc. puder cooperar comigo nessa rotina, te agradeço!

1 - No subform crie uma caixa texto a nomeeie de txtId, acople ao campo Id_Funcionario...
2 - Em eventos da caixa de combinação Tipo_AlteracaoFP:

Private Sub Tipo_AlteracaoFP_AfterUpdate()
Dim X As Integer
Dim DataIni As Date, DataFim As Date

DataIni = DLookup("DataInicial", "Tabela_Funcionarios_AlteracaoFP", "Id_Funcionarios_AlteracaoFP =" & Me.txtID & " And Tipo_AlteracaoFP = 'CAT'")
DataFim = DLookup("DataFinal", "Tabela_Funcionarios_AlteracaoFP", "Id_Funcionarios_AlteracaoFP =" & Me.txtID & " And Tipo_AlteracaoFP = 'CAT'")
X = DCount("*", "Tabela_Funcionarios_AlteracaoFP", "DataInicial >=#" & DataIni & "# And DataFinal >=#" & DataFim & "# And Tipo_AlteracaoFP = 'CAT'")
If Me.Tipo_AlteracaoFP.Column(0) = "DEMISSÃO" Then
If X >= 1 Then
MsgBox " Não é permitido cadastrar essa demissão!", vbCritical, "NEGADO"
Me.Undo
End If
End If
End Sub


https://dl.dropbox.com/u/26441349/MarcosCDMA_16_09.rar

Cumprimentos.

Grato pelo retorno. Só uma dúvida: se você mesmo se ajudou a si, você mesmo se agradecerá a si?

rsrs... Abri o tópico para o colega amigão... A dúvida não era minha.. ele a enviou por e-mail... O adverti para postar dúvidas apenas no Fórum. Dei a solução e postei aqui.

Abraços.

Valeu galera quero agradecer pela solução que será de grande benefício
para com todos.
no meu caso em especial foi uma cooperação mágica. Vocês são demais.
Agradeço ao forum mais uma vez por ter soluções tão plausível.
Grato!

O Fórum agradece o retorno.

Lembre-se de clicar no joinha da menssagem que o auxiliou.