Filtrar Dados de Uma Consulta

Olá Galera,

Mais uma ajudinha ae... Estou precisando filtrar dados de uma consulta, tentei usar o Comando DLookup mais não deu certo! alguém sabe me dizer o que pode ser?

Eis o código que estou usando, lembrando que a comparação DLookup é de uma consulta e não de uma tabela.

Código:


Public Sub cboNome_AfterUpdate()
Dim HoraExtra

HoraExtra = DLookup("CalcHorasExtras","tblBancoDeHoras","txtCodigo = '" & Me.txtCodigo & "'")
    If IsNull(HoraExtra) Then
          MsgBox "O Funcionário Não Possui Horas Extras para Folga!",vbCritical,"Erro de Horas Extras"
              DoCmd.Close acForm, "formFolgaDeFuncionarios"
    End If
End Sub


Heeeeeeeeeelp!

Boa tarde, os nomes da consulta, dos campos e do controlo estão certos? o tipo de dados está certo?

Sim Alexandre Neves, estão corretos!

Disponibilize a parte da bd

Então Pessoal,

Alexandre Neves, por ser um Banco de Dados da Polícia Militar não estou autorizado a compartilhar parte do Banco de Dados a nenhum tipo de fórum sinto muito, mas se precisarem para conseguir entender o problema posso desenvolver um semelhante mas demorará um tempinho! Avelino, e o Corinthia (Sem preconceitos contra o Corinthians só zueira mesmo. kkkkkkkkkkk...) que desenvolveu este banco de dados colocou o Nome desta consulta em particular com a inicial TBL dá para acretitar? Mas o nome da consulta não igual ao da Tabela.

Consulta = tblBancoDeHoras
Tabela = tblHorasDePoliciais

Campo da Tabela = txtCodigo
Campo do Formulário = txtCodigo

Dá para acreditar nessa coisa de Corinthia (Sem preconceitos contra o Corinthians só zueira mesmo. kkkkkkkkkkk...)?

Mais uma vez muito obrigado Galera Máximo pela ajuda!

Coloque dados fictícios mas significativos para descobrir o problema. Aliás, desaconselhamos a disponibilizar dados reservados.

Aqui está um BD +/- igual... A regra é: Se o Funcionário não possuir horas extras então não poderá solicitar folgas.

PMExemplo

Cumprimentos!

Boa tarde,
Coloque
Private Sub cboFuncionarios_AfterUpdate()
Dim HorasExtras

HorasExtras = DLookup("HorasExtras", "cltRelacaoDeHorasExtras", "CodFuncionario = " & Me.cboFuncionarios.Column(0) & "")
If IsNull(HorasExtras) Then
MsgBox "Este Funcionário não pode Tirar Folga!", vbCritical, "Erro de Folga"
Me.Undo
End If
End Sub

Deveria colocar na origem da caixa de combinação
SELECT CodFuncionario, Funcionario FROM cltRelacaoDeFuncionarios WHERE codFuncionario IN (SELECT codFuncionario FROM cltRelacaoDeHorasExtras) ORDER BY Funcionario;
para que apareçam apenas os nomes que podem marcar folgas

Olá Alexandre Neves,

Deu certo, mas ainda não era bem isso que eu queria. Você percebeu que na tabela de horas extras não existe o nome dos outros funcionários que não possuem horas extras? Tipo o Funcionário 1 e 3 possuem horas extras e os outros não possuem horas extras e não estão na tabela de horas extras. Como vou fazer o Access ver que os funcionário 2 e 4 não possuem horas extras?

Cumprimentos!

Boa tarde,
Depende onde quer fazer a verificação.
O código seguinte faz a verificação
If DCount("*", "cltRelacaoDeHorasExtras", "CodFuncionario = " & Me.cboFuncionarios.Column(0))=0 Then
MsgBox "O Funcionário " & Me.cboFuncionarios.Column(1) & " não tem horas extras!", vbCritical, "Erro de Folga"
End If

Se colocar o SQL seguinte, na origem da caixa de combinação, apenas os funcionários que têm horas extras aparecem na caixa de combinação
SELECT CodFuncionario, Funcionario FROM cltRelacaoDeFuncionarios WHERE codFuncionario IN (SELECT codFuncionario FROM cltRelacaoDeHorasExtras) ORDER BY Funcionario;

Se for outra situação, detalhe melhor