[Resolvido]Verificação em Subformulário Access

Pessoal, boa tarde!

Estou me iniciando no mundo Access e estou parado a um tempo com um problema que eu não consigo resolver. Em anexo, segue arquivo para visualização.

É o seguinte:

Tenho um formulário (FRM_Análise), onde eu faço o cadastramento de novas análises (Este está ligado à tabela TAB_Analise). Só que antes, eu gostaria de verificar se o Equipamento já está com uma análise com Status "Em andamento". Para isso, eu criei um subformulário (que ficará oculto) com uma consulta que me trará a análise em andamento para o equipamento selecionado na comboBox "txtEquipamento".  Caso haja análise em andamento, uma msgBox aparecerá alertando que já existe análise em andamento e me direcionará para um outro formulário, onde eu poderei fecha-la através do preenchimento da data fim. Caso não, poderei proceder com o preenchimento dos demais campos.

No caso, coloquei o código VBA para executar no evento "Após Atualizar" da comboBox "txtEquipamento". Só que parece que o código executa antes da consulta ser executada e o procedimento só ocorre corretamente quando seleciono o equipamento outra vez.

Podem me ajudar nesse problema? Existe uma forma mais fácil para que isso seja feito? Aguardo ansiosamente sugestões.

OBRIGADO desde já!

Coloque o código no evento " antes de atualizar " para fazer a devida verificação.

Prezado Silvio, obrigado pela sua resposta!

Porém a solução não adiantou, pois nos casos em que não há análise no equipamento aparece a mensagem do mesmo jeito, e ela aparece somente caso não haja análise.

Pelo que eu entendi, no código eu teria que inserir uma "Espera", para que a consulta seja realizada e assim o código seja executado.

Existe alguma forma de fazer dessa forma?

Muito obrigado!

Pessoal, boa tarde!

Estou me iniciando no mundo Access e estou parado a um tempo com um problema que eu não consigo resolver. Em anexo, segue arquivo para visualização.

É o seguinte:

Tenho um formulário (FRM_Análise), onde eu faço o cadastramento de novas análises (Este está ligado à tabela TAB_Analise). Só que antes, eu gostaria de verificar se o Equipamento já está com uma análise com Status "Em andamento". Para isso, eu criei um subformulário (que ficará oculto) com uma consulta que me trará a análise em andamento para o equipamento selecionado na comboBox "txtEquipamento".  Caso haja análise em andamento, uma msgBox aparecerá alertando que já existe análise em andamento e me direcionará para um outro formulário, onde eu poderei fecha-la através do preenchimento da data fim. Caso não, poderei proceder com o preenchimento dos demais campos.

No caso, coloquei o código VBA para executar no evento "Após Atualizar" da comboBox "txtEquipamento". Só que parece que o código executa antes da consulta ser executada e o procedimento só ocorre corretamente quando seleciono o equipamento outra vez.

Podem me ajudar nesse problema? Existe uma forma mais fácil para que isso seja feito? Aguardo ansiosamente sugestões.

OBRIGADO desde já!

Boa tarde,
o subformulário somente existe para verificar se a analise já está em andamento?

Caso sim, podemos retirar ele e verificar via Dcount ou Dloockup

Sim Marcelo, apenas para isso.

Pode me ajudar como posso fazer?

Obrigado!

Teste o anexo.

Muito Obrigado Marcelo!

Consegui adaptar o que vc fez a minha necessidade!

Mais uma vez agradeço mto!

Boa tarde!

Opa meu amigo, grato pelo retorno.

Olá a todos

Acredito que a duvida deste tópico abaixo do membro fhsantana, seja o mesmo deste.

https://www.maximoaccess.com/t36742-verificacao-em-subformulario-access

Meu amigo Marcelo David, seria possível fundir os dois em apenas um, pois existe membros tentando passar ajuda (como eu estava preparando), para um assunto já resolvido.

Abraços a todos

Obrigado por avisar Celso Roberto.
Tópicos fundidos.

Fica o alerta ao usuário Flávio Santana para que não abra mais de um tópico
com o mesmo assunto.

REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks"), excepto DropBox ou do próprio fórum.
15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.

Olá..

Desculpe o transtorno, mas foi fundido o resolvido no aberto.

Então dar este como Resolvido

Desculpe novamente

Abraços

Bom dia, transtorno nenhum!
Na verdade a ideia é sim manter o primeiro e deixa-lo
aberto para que o autor se manisfestasse e feche-o.
Caso ele não se manifeste até a tarde, aí irei marcar como
resolvido.
Obrigado mais uma vez.

Desculpe, postei a dúvida e havia me esquecido, então postei novamente.
o Tópico será colocado como resolvido.

Mais uma vez obrigado!

Isso meu amigo! Sucesso sempre!