[Resolvido]Comparar dados em tabelas diferentes e emitir uma mensagem de aviso de acordo com o resultado

Tenho uma tabela onde são cadastrados as quadra andares de uma obra.(tblQuadraAndar)
Nesta tabela tenho os campos:
CodQuadraAndar - código da QuadraAndar
DescricaoQuadraAndar - Andar 1, andar 2 , etc..
Fiz um form baseado nessa tabela.

Tenho outra tabela onde cadastro os servicos disponíveis em cada andar. (tblDetQuadraAndar)
Nesta tabela tenho os campos:
CodDetQuadraAndar - Codigo daQuadraAndar
CodServico - Código do servico
DescricaoServico - Serviço a ser realizado no andar .. Ex.: reboco, chapisco, etc ..
UnidadeMedida - Und, Metro Quadrado, kg , etc ...
QtdLimite - Quantidade limite que será usada naquele serviço. Ex.: 200 Und.
Fiz um subform dessa tabela

Tenho duas outras tabelas onde lanço os movimentos.. tblMovimento e tblDetMovimento.
Fiz um form e subform destas tabelas..
Onde lanço a obra, o período de execução e outras coisas...
No subform eu lanço o operário, a quantidade do serviço que ele fez ..


Minha questão é a seguinte: Como faço para que ao lançar um determinado serviços de um operário o access compare aquele determinado serviço que estou lançando e os demais(iguais a esse que estou lançando) que já foram lançados com a qtdLimite da tabela (tblDetQuadraAndar) e assim me informe se a quantidade limite daquele servico já está atingida ?
É que acontece muito de a quantidade do servico ter passado do limite e ainda assim aparecerem lançamentos daquele serviço naquele andar..

Não sei se me expliquei bem...
Alguém tem algum código ou algo parecido que possa ajudar ? Que eu possa adaptar ?
Desde já agradeço ...

Se vc puder enviar o que já tem pronto, facilita bastante com a solução.

Olá Cláudio .. Obrigado pela ajuda..
Estou te mandando o banco ... Uso o acccess 2007 ..
No frmMovimento tem um subform (sfrmDetMovimento) onde desejo realizar o que mencionei acima...
No subform depois de informar o colaborador e o serviço , gostaria que ao informar a quantidade o access verificasse se a quantidade do serviço ainda está disponível..
Exemplo:
Abro o frmMovimento e começo o lançamento.... Digito a obra e os outros campo do frmMovimento.. Ao entrar no subformDetMovimento digito o colaborador, a Qd/Andar e o serviço (serviço X, por exemplo). Na hora de digitar a quantidade, gostaria que o access, verificasse quanto já foi digitado do serviço X. Ou seja, o access teria que achar todos os serviços X já lançados somar suas quantidades juntamente com a que estou lançando naquele momento e comparar com o campo QtdLimite que está na tblDetQuadraAndar.
Se essa quantidade estivesse dentro do limite, o cadastro continuaria normalmente, mas se estivesse fora desse limite ele emitira uma mensagem de aviso.

Novamente, não sei se fui claro..
Mas desde já agradeço e espero alguma dica ...

Adicione CodMovimentoDet (invisível) ao sub-form.

Com a consulta abaixo, você verifica quanto já foi digitado do serviço X:

SELECT Sum(Quantidade) AS QTotal
FROM tblDetMovimento
GROUP BY [CodQdAndarMov], [CodServicoMov], [CodMovimentoDet]
HAVING [CodQdAndarMov]=[Formulários]![frmMovimento]![sfrmDetMovimento].[Formulário]![cboCodQd] AND [CodServicoMov]=[Formulários]![frmMovimento]![sfrmDetMovimento].[Formulário]![cboServico] AND [CodMovimentoDet]<>[Formulários]![frmMovimento]![sfrmDetMovimento].[Formulário]![CodMovimentoDet]


Com a consulta abaixo, você verifica o limite:

SELECT Limite FROM (tblQdAndar INNER JOIN tblDetMovimento ON tblQdAndar.CodQdAndar = tblDetMovimento.CodQdAndarMov) INNER JOIN tblDetQdAndar ON tblQdAndar.CodQdAndar = tblDetQdAndar.CodDetQdAndar
WHERE tblDetMovimento.CodQdAndarMov=[Formulários]![frmMovimento]![sfrmDetMovimento].[Formulário]![cboCodQd] AND tblDetQdAndar.CodQdAndarServ=[Formulários]![frmMovimento]![sfrmDetMovimento].[Formulário]![cboServico]

Após atualizar a quantidade, faça um DLookUp na consulta 1 e outro na consulta 2; se o limite for maior que o valor que já foi lançado mais a quantidade digitada, permite continuar.

Ok Claudio ..
Devo criar 2 consultas, beleza...
Não tenho muita experiência com VBA e com as funções... MAs tenho lido muitas dicas por aqui e feito alguma coisa..
Estou fazendo esse banco baseado nas dicas do forum e algumas apostilas que foram recomendadas..
Como ficaria a chamada dessas 2 consultas no evento após atualizar do campo com a função Dlookup ? Ainda tenho alguns problemas com a sintaxe das funções..
E mais uma vez eu agradeço sua ajuda...

Código:

Dim TotalServiço, Limite

TotalServiço = DLookUp("[QTotal]", "Consulta 1")
Limite = DLookUp("[Limite]", "Consulta 2")

Olá Cláudio .
Não está funcionando ..
Criei as consultas e coloquei o código no evento após atualizar, mas não está a funcionar...
O que estou fazendo de errado ..???

Não dá pra adivinhar...

Só vendo mesmo.

Criei 2 consultas como vc indicou ..
Consulta1 - que verifica o serviço..
Consulta2 - que verifica o limite ....
No evento apos atualizar do campo Quantidade coloquei o código como vc indicou:

Dim TotalServiço, Limite

TotalServiço = DLookUp("[QTotal]", "Consulta1")
Limite = DLookUp("[Limite]", "Consulta2")

Depois fiz:
If TotalServico > Limite Then
MsgBox "Estourou limite.", vbCritical, "Erro ..."
Me.ValorUnitarioMov.SetFocus
End If

Mas depois que atualizo, nada aconcete ...

Se nada acontece, é porque não estourou o limite...

Tente essas alterações:

Código:

Dim TotalServiço, Limite

TotalServiço = Nz(DLookup("[QTotal]", "Consulta1"), 0)
Limite = Nz(DLookup("[Limite]", "Consulta2"), 0)

If (CDbl(TotalServico) + Nz(Me.Quantidade, 0)) > CDbl(Limite) Then
    MsgBox "Estourou limite.", vbCritical, "Erro ..."
    Me.ValorUnitarioMov.SetFocus
End If

Deu: uso de Null inválido...

É estranho, no código não está sendo feita nenhuma operação envolvendo valor nulo.
Pode enviar o programa para facilitar com a solução?

Ok..

Segue o banco ...

Olá Claudio ..
Acabei de descobrir..
Era um Ç mal colocado que estava atrapalhando o código ...
A variável foi criada com ç e eu a escrevi sem o cedilha .. Não gosto de colocar esses acentos justamente para não atrapalhar..
Como copiei o seu código ele veio com o cedilha e eu não reparei ...
Culpa minha... Peço desculpas..
Vou dar mais algumas testadas e te digo se ficou realmente legal...
Agradeço mais uma vez...
Mais tarde te mando a resposta definitiva..
Até mais tarde ....

Olá Cláudio ..
Testei o código e ele só funciona no registro atual ..
Por exemplo, se existirem lançamentos daquele serviço em outros registros, ele não pega. Ele teria que verificar se os lançamentos anteriores mais o atual que eu estiver fazendo naquele momento, se a soma deles ultrapassa ou não o limite cadastrado..
Alguma dica...
Já te agradecendo novamente ...

Eu achei que CodMovimentoDet era a chave primária de tblDetMovimento.

Crie um campo do tipo numeração automática, chave primária, chamado Id nessa tabela.
Adicione esse campo (invisível) no subform sfrmDetMovimento.
A consulta qryVerificaServico fica assim:

SELECT Sum(Quantidade) AS QTotal FROM tblDetMovimento WHERE CodQdAndarMov=[Formulários]![frmMovimento]![sfrmDetMovimento].[Formulário]![cboCodQd] AND CodServicoMov=[Formulários]![frmMovimento]![sfrmDetMovimento].[Formulário]![cboServico] AND Id<=[Formulários]![frmMovimento]![sfrmDetMovimento].[Formulário]![Id]

Olá Cláudio..
Funcionou perfeitamente..
Obrigado pela paciência e pela competência na execução da rotina..
Sucesso ...

Valeu, sucesso