[Resolvido]Verificar se há registro em uma consulta e executar uma função

Bom dia.

Ao abrir o meu BD eu preciso que uma consulta (C_ExamesVencidos) seja executada. Caso haja algum registro execute a função

Código:


Sub ConfirmeExVencidos()

Dim confirme

confirme = MsgBox("Há exames vencidos! Deseja verificar a listagem agora?", vbYesNo, "ATENÇÃO!")
If confirme = 6 Then
DoCmd.OpenReport "R_ExamesVencidos", acViewReport
End If

If confirme = 7 Then
MsgBox "Verifique esses dados o mais breve possível através do menu Relatórios do PCSMO", vbCritical, "Atenção!"
End If

DoCmd.Close acQuery, "C_ExamesVencidos"

End Sub

caso não haja nenhum registro execute a função

Código:

Sub ExVencidosNulo()
MsgBox "Todos os exames de todos os funcionários estão em dia", vbInformation, "Exames em dia"
End Sub

eu abro a consulta usando

Código:

DoCmd.OpenQuery "C_ExcluirDuplicadosTItensNota", acViewNormal, acEdit

mas não consigo verificar através do VBA se há ou não registros nessa consulta.
Alguém me ajuda?

Marcela, tente assim:

Coloque isso num botão

Dim dados As Long
Dim confirme
dados = DCount("[CampoConsulta]", "NomeConsulta")
If IsNull(dados) Then
MsgBox "Todos os exames de todos os funcionários estão em dia", vbInformation, "Exames em dia"
Else
confirme = MsgBox("Há exames vencidos! Deseja verificar a listagem agora?", vbYesNo, "ATENÇÃO!")
Select Case confirme
Case vbYes
DoCmd.OpenReport "R_ExamesVencidos", acViewReportEnd
Case vbNo
MsgBox "Verifique esses dados o mais breve possível através do menu Relatórios do PCSMO", vbCritical, "Atenção!"
DoCmd.Close acQuery, "C_ExamesVencidos"
End Select

Leandro,

eu montei o código conforme vc indicou, mas quando eu clico em "SIM" não abre o relatório, manda-o direto para a impressora padrão sem nem perguntar se eu quero imprimir (rsrs) o que será que pode estar causando isso?

Código:

Dim dados As Long
Dim confirme
dados = DCount("[NomeFuncionario]", "C_ExamesVencidos")
If IsNull(dados) Then
MsgBox "Todos os exames de todos os funcionários estão em dia", vbInformation, "Exames em dia"
Else
confirme = MsgBox("Há exames vencidos! Deseja verificar a listagem agora?", vbYesNo, "ATENÇÃO!")
Select Case confirme
Case vbYes
DoCmd.OpenReport "R_ExamesVencidos", acViewReportEnd
Case vbNo
MsgBox "Verifique esses dados o mais breve possível através do menu Relatórios do PCSMO", vbCritical, "Atenção!"
DoCmd.Close acQuery, "C_ExamesVencidos"
End Select
End If

Então faça assim:

Dim dados As Long
Dim confirme
dados = DCount("[CampoConsulta]", "NomeConsulta")
If IsNull(dados) Then
MsgBox "Todos os exames de todos os funcionários estão em dia", vbInformation, "Exames em dia"
Else
confirme = MsgBox("Há exames vencidos! Deseja verificar a listagem agora?", vbYesNo, "ATENÇÃO!")
Select Case confirme
Case vbYes
DoCmd.OpenReport , acViewPreview, "R_ExamesVencidos"
Case vbNo
MsgBox "Verifique esses dados o mais breve possível através do menu Relatórios do PCSMO", vbCritical, "Atenção!"
End Select

Outra coisa, não precisa mais dar ordem para fechar a consulta, ela não será mais aberta.

Abraço

Bom dia!!!

Leandro,

coloquei a instrução conforme você disse, mas gerou um erro de compilação.

Anexei um print para ver.

Desculpe, o engano troque a linha por esta:

DoCmd.OpenReport "NomeRelatório", acViewPreview

Leandro...

estamos quase chegando lá. Vou abusar de sua presteza mais um pouco. Esse código foi colocado no formulário de iniciação e ficou da seguinte maneira:

Código:

Private Sub Form_Load()
DoCmd.SetWarnings False
DoCmd.ShowToolbar "Banco de Dados", acToolbarNo
DoCmd.ShowToolbar "Barra de Menus", acToolbarNo
DoCmd.Maximize

Dim dados As Long
Dim confirme
dados = DCount("[NomeFuncionario]", "C_ExamesVencidos")
If IsNull(dados) Then
MsgBox "Todos os exames de todos os funcionários estão em dia", vbInformation, "Exames em dia"
Else
confirme = MsgBox("Há exames vencidos! Deseja verificar a listagem agora?", vbYesNo, "ATENÇÃO!")
Select Case confirme
Case vbYes
DoCmd.OpenReport "R_ExamesVencidos", acViewPreview
Case vbNo
MsgBox "Verifique esses dados o mais breve possível através do menu Relatórios do PCSMO", vbCritical, "Atenção!"
End Select
End If

End Sub

os Usuários do sistema não tem acesso a nada do banco (nem abrindo com a tecla Shift, porque eu desabilitei tudo) porque usuário faz muita m***a
O problema é que quando eu clico em "Sim" na caixa de mensagem o relatório está abrindo atrás do formulário principal é pequeno.
Quero jogá-lo para frente do formulário principal e em tamanho normal.
Me ajuda mais nessa?

Eu sei bem o que os usuários fazem, rsrs.

Então faça assim:

If IsNull(dados) Then
MsgBox "Todos os exames de todos os funcionários estão em dia", vbInformation, "Exames em dia"
Else
confirme = MsgBox("Há exames vencidos! Deseja verificar a listagem agora?", vbYesNo, "ATENÇÃO!")
Select Case confirme
Case vbYes
DoCmd.Close acForm, "NomeFormulário"
DoCmd.OpenReport "R_ExamesVencidos", acViewPreviewCase vbNoMsgBox "Verifique esses dados o mais breve possível através do menu Relatórios do PCSMO", vbCritical, "Atenção!"
End Select
End If
End Sub

No evento ao abrir do relatório coloque: DoCmd.Maximize
E no evento ao fechar: DoCmd.OpenForm "NomeFormaulário"

Perfeito.

Leandro, muito obrigada,

deu certinho agora.

Que bom Marcela, agora só não esqueça do Resolvido, por favor, até mais.

Obrigado pelo retorno