[Resolvido]Erro em tempo de Execução 2110 x Mover foco para controle

Bom dia

Em emu sistema tenho um campo chamado GeraValorCons - tipo SIM/NÃO....., no evento Após atualizar, uso o seguinte código:

Private Sub GeraValCons_AfterUpdate()
On Error GoTo trataerro
Me.subfrm_Convênios.Requery
If Me.flag_Valor.Value = "NÃO" And Me.GeraValCons.Value = "NÃO" Then
DoCmd.RunCommand acCmdSaveRecord
Me.consValor.Value = Null
Me.Lista_Recibo.Value = Null
Me.consValor.Enabled = False
Me.Lista_Recibo.Enabled = False
Gravar.SetFocus
Me.GeraValCons.Value = "NÃO"
End If
If Me.flag_Valor.Value = "NÃO" And Me.GeraValCons.Value = "SIM" Then
If MsgBox("O Convênio do Paciente NÃO prevê Valor para a Consulta. Deseja Realmente Informar o Valor?", vbQuestion + vbYesNo, Me.Caption) = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
Me.consValor.Enabled = True
Me.Lista_Recibo.Enabled = True
Me.consValor.SetFocus
Else
Me.consValor.Value = Null
Me.Lista_Recibo.Value = Null
Me.consValor.Enabled = False
Me.Lista_Recibo.Enabled = False
Gravar.SetFocus
Me.GeraValCons.Value = "NÃO"
End If
End If
If Me.flag_Valor.Value = "SIM" And Me.GeraValCons.Value = "NÃO" Then
If MsgBox("O Convênio do Paciente prevê Valor para a Consulta. Deseja Realmente Agendar a Consulta SEM Informar o Valor?", vbQuestion + vbYesNo, Me.Caption) = vbYes Then
Me.consValor.Value = Null
Me.Lista_Recibo.Value = Null
Me.consValor.Enabled = False
Me.Lista_Recibo.Enabled = False
Gravar.SetFocus
Me.GeraValCons.Value = "NÃO"
Else
Me.consValor.Enabled = True
Me.Lista_Recibo.Enabled = True
Me.consValor.SetFocus
Me.GeraValCons.Value = "SIM"
End If
End If
If Me.flag_Valor.Value = "SIM" And Me.GeraValCons.Value = "SIM" Then
Me.consValor.Enabled = True
Me.Lista_Recibo.Enabled = True
Me.consValor.SetFocus
End If
Exit_TrataErro:
Exit Sub
trataerro:
MsgBox err.Description, vbExclamation + vbOKOnly, "Erro: " & CStr(err.Number)
Resume
End Sub

Quando altero o valor deste campo, o sistema me apresenta a mensagem conforme o resultado do IF, porém, dá o erro 2110 ao mover o foco para o campo.....

Alguém tem alguma dica de como resolver/tratar isto da melhor forma?

Saudações

boa noite
já vi que ainda não conseguiste reposta ao tópico.
tu não indicas-te em que linha dá o erro.
sabes o que são breakpoints, senão souberes pesquisa ou volta aqui.

colocas vários breakpoints para veres em que linha ocorre o erro.

cumps
acao

Obrigado pela Atenção, problema resolvido.

Qual foi a solução?

Obrigado pela contribuição...

Inserir:
Exit Sub

No meu código tinha uma MsgBox, alguns comando e a tentativa de fazer foco em uma Edit. Inseri o Exit Sub antes de chamar o SetFocus.
Deu...