[Resolvido]Erro 2108

Bom dia a todos, estou tentando fazer um código mas esta dando este erro 2108 e não sei como resolver
erro completo

Erro em tempo de execução '2108':
Você deve valvar o campo antes de executar a ação irParaControle, o método GoToControl ou o médoto estFocus.

não sei como salvar o campo

este e o código q estou usando no evento antes de atualizar  

Private Sub txt_CliCelular_01_BeforeUpdate(Cancel As Integer)
   If MsgBox("Este telefopne tem Whatsapp?", vbQuestion + vbYesNo, "WHARSAPP") = vbYes Then
 
       Me.Cliwhatsapp_01.Value = True
       Me.txt_CliOperadoraCel_02.SetFocus
   Else
       Me.txt_CliOperadoraCel_02.SetFocus
   End If
End Sub

Isso acontece porque você está a fazer no antes de atualizar, mas tem de fazer no depois de atualizar;

Teste por favor;

Código:

Private Sub txt_CliCelular_01_AfterUpdate(Cancel As Integer)
  If MsgBox("Este telefopne tem Whatsapp?", vbQuestion + vbYesNo, "WHARSAPP") = vbYes Then
      Me.Cliwhatsapp_01.Value = True
      Me.txt_CliOperadoraCel_02.SetFocus
      Exit Sub
  Else
      Me.txt_CliOperadoraCel_02.SetFocus
      Exit Sub
  End If
End Sub

muito obrigado JPaulo, voi so trocar os eventos