Bom Dia Assis;
Basta você alterar o posicionamento do SetFocus e dar um Recalc em toda a instrução;
ElseIf Nz(DCount("DataAviso", "Agenda", "[DataAviso]=#" & Me.DataAviso & "# And [Médico]='" & Me.MÉDICO & "' And [Hora]=#" & Me.Hora & "#"), 0) >= 2 Then
MsgBox "Já Existe (2 Duas) Marcação para o Dia " & Me.DataAviso & "" & vbCrLf & "Ás " & Me.Hora & " Horas.", vbCritical, "Agenda"
Me.Undo
Me.MÉDICO = Null
Me.Paciente = Null
Me.MedicoCodigo = Null
Me.PacienteCodigo = Null
Me.Hora = Null
Me.Tratamento = Null
Me.ValorTratamento = Null
Me.RótuloDeve.Visible = False
Me.Dividas.Visible = False
Me.MÉDICO.SetFocus
Me.Recalc
Exit Sub