[Resolvido]bloquear o campo

gostaria que qdo do erro ficasse no campo até corrigir....

Private Sub CRMedico_LostFocus()

If (([Cod Seq] = 1 Or [Cod Seq] = 7 Or [Cod Seq] = 2) And [Especializacao] = "Enfermagem") Then
  ElseIf ([Cod Seq] = 3 And [Especializacao] = "Serviço Social") Then
  ElseIf ([Cod Seq] = 5 And [Especializacao] = "Médico Clínico") Then
  ElseIf ([Cod Seq] = 6 And [Especializacao] = "Pneumologista") Then
  ElseIf (([Cod Seq] = 3 Or [Cod Seq] = 4) And ([Especializacao] = "Fisíoterapia" Or [Especializacao] = "Psicólogo")) = True Then
     
   CRMedico = CRMedico.Value
   
   Else
   
   MsgBox "<<< [*Profissional*] invalido para o código... >>>"
       
   End If
   
   Exit Sub
End Sub

[Cod Seq] é o campo que se refere a especialização...

grato

grato resolvi o problema.....

Private Sub CRMedico_Exit(Cancel As Integer)

If l(([Cod Seq] = 1 Or [Cod Seq] = 7 Or [Cod Seq] = 2) And ([Especializacao] = "Enfermagem")) Then
  ElseIf ([Cod Seq] = 3 And [Especializacao] = "Serviço Social") Then
  ElseIf ([Cod Seq] = 5 And [Especializacao] = "Médico Clínico") Then
  ElseIf ([Cod Seq] = 6 And [Especializacao] = "Pneumologista") Then
  ElseIf (([Cod Seq] = 3 Or [Cod Seq] = 4) And ([Especializacao] = "Fisíoterapia" Or [Especializacao] = "Psicólogo")) Then
     
   CRMedico = CRMedico.Value

   Else
   
   MsgBox "<<< [*Profissional*] invalido para o código... >>>", vbOKOnly + vbCritical, "Erro"

  DoCmd.CancelEvent
   
   End If
   Exit Sub
   
End Sub