[Resolvido]Desafio para quem gosta de Datas, Validação e VBA!!!

Olá, Equipes!    

Sei que o que vocês mais gostam é de desafio porreta; portanto, trouxe este!!!    


O Desafio é o seguinte: preciso que, ao selecionar um diretor que assinará o certificado, este diretor esteja dentro da Data Válida (Data Término).

Lembrando que o diretor Não pode Assinar, caso a GESTÃO DELE não esteja dentro da Data Término  


Exemplo:


1 - Rita NÃO PODE ASSINAR, nada que a Data Término esteja fora da sua gestão

2 - Januário SÓ PODE ASSINAR, o que esteja na sua Gestão: Entre 16/06/2018 e 30/08/2018

3  - Severino NÃO PODE ASSINAR, documentos de ninguém; bem como o caminho inverso é verdadeiro.

Boa tarde

Respeite as regras do fórum e não repita dúvidas (a outra foi eliminada)

Caro Mestre Alexandre!


Peço-te desculpas por ter repetida a Mensagem; Mas é que confesso, não sei como eliminar a mensagem anterior.


Um Fraterno abraço,
Guilherme Pereira

Mas quer eliminar a presente mensagem?

Não, senhor!

Mestre Alexandre, ao repetir a mensagem, a minha intenção foi trazê-la para o "topo" das mensagens. Pois pelas minhas observações, à medida que Novas Mensagens chegam, as antigas ficam preteridas!



[]'s
Guilherme Pereira

Pode sempre utilizar a regra 10
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!

Perfeito, Mestre Alexandre!!!

Novamente, agradeço pela sua atenção, e tenha certeza que seguirei os seus aconselhamentos! )


Meu Forte e Fraterno Abraço,
Guilherme Pereira

Retire o código no acontecimento AntesDeActualizar e coloque este no AoEntrar

Código:

Private Sub cboDiretorQueAssinaID_Enter()
    If IsNull(GpCursoDI) Or IsNull(GpCursoDF) Then
        MsgBox "Tem de preencher datas de início e fim.": Exit Sub
    End If
    cboDiretorQueAssinaID.RowSource = "SELECT Dir_id, Dir_nm, Dir_DtNomeacao, Dir_DtExoneracao, Dir_Ativo, Dir_DataDepartida, IIf(IsNull([Dir_DtExoneracao]),Date()-[Dir_DataDepartida],[Dir_DtExoneracao]-[Dir_DataDepartida]) AS NrDeDias, Dir_Ordem FROM tblDiretorQueAssina WHERE (IsNull(Dir_DtExoneracao) and Dir_DtNomeacao<=#" & GpCursoDF & "#) or (Dir_DtNomeacao<=#" & GpCursoDI & "# and Dir_DtExoneracao>=#" & GpCursoDF & "#) or (Dir_DtNomeacao between #" & GpCursoDI & "# and #" & GpCursoDF & "#) or (Dir_DtExoneracao between #" & GpCursoDI & "# and #" & GpCursoDF & "#) ORDER BY Dir_Ordem DESC;"
End Sub


Mestre Alexandre!            

Ficou Simplesmente.... Sensacional!!!!


O Meu Muuuuuuuiiiiiito Obrigado pela sua Dedicação e Garra, ao buscar a Solução!!!





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

Faltou o Resolvido

Obrigadão, Mestre Alexandre!!!! )




[]'s
Guilherme