[Resolvido]Cancelar a Abertura do Formulário x Valores dos parametros das Consultas

Bom dia

Em meu sistema possuo uma agenda. No intuito de evitar falhas na abertura da agenda, criei a função abaixo para que, ao abrir a agenda, verifique a existência de médicos cadastrados, caso não haja, retorna a mensagem e abre o formulário de médicos. O que ocorre é que a função está funcionando, porém, o formulário agenda, que é carregado é baseado em algumas consultas, e quando a função retorna o erro tratado: MsgBox "NÃO Há Médico Cadastrado!", vbCritical, "Erro..."
o sistema abre o formulário de médicos, porém, apresenta os valores dos parametros da carga do formulário agenda. Alguém tem alguma dica de como suprimir e cancelar a abertura do formulário?

Att. Vinicius

Código:


Public Function fncCarregaAgenda() As String

'On Error GoTo TrataErro
    Dim Cancel As Integer
    Dim strNomeMed As String
    Dim strTextMed As String
    strNomeMed = Nz(DLookup("medNome", "tb_Medicos", "Id_Medico='" & strTextMed & "'"), "inexistente")
   
    If strNomeMed = "inexistente" Then
        Cancel = True
        MsgBox "NÃO Há Médico Cadastrado!", vbCritical, "Erro..."
        DoCmd.OpenForm "frm_Médicos"
        DoCmd.Close acForm, "frm_Agenda", acSaveYes
        DoCmd.SetWarnings False
        CurrentDb.Execute "Delete tb_Agenda.Id_Agenda, tb_Agenda.Id_Medico, tb_Agenda.dtData, tb_Agenda.Id_Paciente FROM tb_Agenda WHERE (((tb_Agenda.Id_Paciente) Is Null));"
        DoCmd.Close acForm, "frm_Agenda", acSaveYes
    Else
        Forms!Frm_Agenda.Requery
        Fechar.SetFocus
    End If

Sair:
    Exit Function
TrataErro:
    Select Case err.Number
        Case 2501
            Exit Function
        Case Else
            MsgBox "Erro: " & err.Number & vbCrLf & err.Description, vbCritical, "Aviso", _
            err.HelpFile, err.HelpContext
    End Select
    Resume Sair:

End Function



Não entendi bem. Você poderia apenas verificar a contagem de registros de acordo um filtro e dependendo do resultado escolher o formulário a ser aberto:

Código:

If DCount("*", "tblMedicos", "NomeMedico='" & Me.NomeMedico & "'") < 1 Then ' 1
    Msgbox "Não existe esse médido", vbCritical, "Erro" ' 2
    DoCmd.OpenForm "cadMedicos" ' 3
Else ' 4
    DoC5md.OpenForm "cadConsultas" ' 5
End If ' 6

Explicando:

Código:

1 - Se quantidade de registros na tabela tblMedicos aonde o nome do médico igual ao nome do médico do campo NomeMedico for menor que 1 então...
2 - ... Exiba a mensagem "Não existe esse médico" em uma mensagem crítica com o título de "Erro".
3 - Abra o formulário cadMedicos.
4 - Caso contrário...
5 - ... abra o formulário cadConsultas.
6 - Fim da condição

Mais ou menos isso.

Bom dia,

Muito obrigado pela dica....., o simples resolveu.

Att. Vinicius

Grato pelo retorno. O fórum agradece.