MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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
    avatar
    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.
    avatar
    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."
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3412
    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
    avatar
    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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4530
    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
    avatar
    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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4530
    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
    avatar
    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."
    avatar
    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: Seg 20 Nov 2017, 05:53