MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]sair do foco para desabilitar botão

    Compartilhe

    monteirofox
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 06/02/2016

    [Resolvido]sair do foco para desabilitar botão

    Mensagem  monteirofox em Sab 06 Fev 2016, 17:24

    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.

    clynton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 307
    Registrado : 08/07/2013

    Re: [Resolvido]sair do foco para desabilitar botão

    Mensagem  clynton em Sab 06 Fev 2016, 17:48

    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.


    .................................................................................
    Cumprimentos...


    Atenciosamente,
    Rogério Clynton Ribeiro


    __________________________________________________________________________

    "Ninguém é tão grande que não possa aprender e nem tão pequeno que não possa ensinar."

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2300
    Registrado : 14/08/2013

    Re: [Resolvido]sair do foco para desabilitar botão

    Mensagem  FabioPaes em Sab 06 Fev 2016, 20:11

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

    monteirofox
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 06/02/2016

    ñ deu certo

    Mensagem  monteirofox em Sab 06 Fev 2016, 20:59

    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

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3195
    Registrado : 15/03/2013

    Re: [Resolvido]sair do foco para desabilitar botão

    Mensagem  ahteixeira em Sab 06 Fev 2016, 21:07

    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

    monteirofox
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 06/02/2016

    Re: [Resolvido]sair do foco para desabilitar botão

    Mensagem  monteirofox em Sab 06 Fev 2016, 22:30

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

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

    obg a todos

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3195
    Registrado : 15/03/2013

    Re: [Resolvido]sair do foco para desabilitar botão

    Mensagem  ahteixeira em Sab 06 Fev 2016, 23:24

    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:
    [Você precisa estar registrado e conectado para ver este link.]
    Abraço

    clynton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 307
    Registrado : 08/07/2013

    Re: [Resolvido]sair do foco para desabilitar botão

    Mensagem  clynton em Sab 06 Fev 2016, 23:30

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


    .................................................................................
    Cumprimentos...


    Atenciosamente,
    Rogério Clynton Ribeiro


    __________________________________________________________________________

    "Ninguém é tão grande que não possa aprender e nem tão pequeno que não possa ensinar."

    monteirofox
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 06/02/2016

    Re: [Resolvido]sair do foco para desabilitar botão

    Mensagem  monteirofox em Dom 07 Fev 2016, 22:21

    obg.

      Data/hora atual: Sab 03 Dez 2016, 02:22