MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


4 participantes

    [Resolvido]sair do foco para desabilitar botão

    monteirofox
    monteirofox
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]sair do foco para desabilitar botão Empty [Resolvido]sair do foco para desabilitar botão

    Mensagem  monteirofox 6/2/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
    clynton
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  clynton 6/2/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
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes 6/2/2016, 20:11

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]sair do foco para desabilitar botão Empty ñ deu certo

    Mensagem  monteirofox 6/2/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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 6/2/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
    monteirofox
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  monteirofox 6/2/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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 6/2/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:
    https://www.maximoaccess.com/t860-resolucao-de-topicos
    Abraço
    clynton
    clynton
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  clynton 6/2/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
    monteirofox
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  monteirofox 7/2/2016, 22:21

    obg.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 21:27