[Resolvido]sair do foco para desabilitar botão

Olá galera,
Criei o bt_salvar, onde após alterações quando clico salvar quero que ele fique bloqueado.

  Private Sub bt_salvar_Click()
    Me.bt_salvar.Enabled = False
  End Sub

Quando clico aparece mensagem "você não poderá desabilitar um controle enquanto ele estiver em foco"

como removo o foco para desabilitar o bt_salvar?
grato.

Se o processo que roda após clicar no botão for o de salvamento, basta colocar uma instrução antes movendo o foco para um dos campos do formulário, por exemplo o primeiro campo.

Private Sub bt_salvar_Click()
Me.ID.SetFocus
   Me.bt_salvar.Enabled = False
 End Sub

Fabio vlw pela ajuda, mas não funcionou deu erro mensagem "Método ou membro de dado não encontrado"

Clynton vlw tbm, mas não entendo como faço, vc este se referindo a usar oset.Focus. Se for isso, acredito que não funcione, pois necessito tirar o foco do botão salvar para poder desabilitar.

Para ser mais claro:
ao clicar no botão salvar iniciara varias ações onde:
1-primeira é salvar os campos preenchidos/alterados
2-desbilita os campos dos form
3-habilita os botões que estiveram desabilitado
4-desabilita o botão salvar
5- fim da ação

veja abaixo:
Private Sub bt_salvar_Click()
On Error GoTo bt_salvar_Click_err
DoCmd.RunCommand acCmdSaveRecord

Me.txt_cod_setor.Enabled = False
Me.txt_setor.Enabled = False
Me.txt_localizacao.Enabled = False
Me.txt_resp_setor.Enabled = False
Me.txt_fone.Enabled = False

Me.bt_primeiro.Enabled = True
Me.bt_anterior.Enabled = True
Me.bt_proximo.Enabled = True
Me.bt_ultimo.Enabled = True
Me.bt_novo.Enabled = True
Me.bt_alterar.Enabled = True
Me.bt_excluir.Enabled = True

bt_salvar_click_exit:
Exit Sub

bt_salvar_Click_err:
MsgBox Error:
Resume bt_salvar_click_exit
End Sub

Olá, teste assim:

Código:

Private Sub bt_salvar_Click()
On Error GoTo bt_salvar_Click_err
DoCmd.RunCommand acCmdSaveRecord

Me.txt_cod_setor.Enabled = False
Me.txt_setor.Enabled = False
Me.txt_localizacao.Enabled = False
Me.txt_resp_setor.Enabled = False
Me.txt_fone.Enabled = False

Me.bt_primeiro.Enabled = True
Me.bt_anterior.Enabled = True
Me.bt_proximo.Enabled = True
Me.bt_ultimo.Enabled = True
Me.bt_novo.Enabled = True
Me.bt_alterar.Enabled = True
Me.bt_excluir.Enabled = True

Me.bt_primeiro.setfocus
Me.bt_salvar.enabled = false

bt_salvar_click_exit:
Exit Sub

bt_salvar_Click_err:
MsgBox Error:
Resume bt_salvar_click_exit
End Sub

Abraço

Clayton, demorei mas entendi, fiz e funcionou.
com ajuda do ahteixeira

Me.bt_alterar.SetFocus
Me.bt_salvar.Enabled = False

obg a todos

Olá Monteiro, é utilizador novo, bem vindo ao fórum.
Obrigado pelo retorno, os utilizadores do fórum agradecem.

Faltou apenas dar o tópico como resolvido, veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos
Abraço

Monteiro, o fórum agradece o retorno!
Falta apenas encerrar o tópico conforme o Alvaro mencionou!

obg.