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


2 participantes

    [Resolvido]Desabilitar controles bd 2003

    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/09/2016

    [Resolvido]Desabilitar controles bd 2003 Empty [Resolvido]Desabilitar controles bd 2003

    Mensagem  ictsp 9/6/2017, 18:02

    Boa tarde amigos! Desenvolvi todo meu projeto no access 2010 e roda perfeitamente. Converti ( me perdoem se não for a expressão correta) para formato bd 2003. Funciona normalmente a maioria dos controles.

    Porém, alguns controles que deveriam desabilitar após clicados, estão dando o erro 2164, informando que não pode ser executado o comando enquanto o objeto tiver o foco. Estou usando o comando enabled = false nesses controles, após serem executadas as tarefas desejadas.

    Teria alguma outra forma ou comando para desabilitar os controles sem ter que mudar o foco deles?

    Desde já, agradeço imensamente a ajuda dos colegas.






    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 802
    Registrado : 30/08/2010

    [Resolvido]Desabilitar controles bd 2003 Empty Re: [Resolvido]Desabilitar controles bd 2003

    Mensagem  gilberlanio 9/6/2017, 18:27

    Coloque o código que está no botão aqui para que possamos analisar
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/09/2016

    [Resolvido]Desabilitar controles bd 2003 Empty Re: [Resolvido]Desabilitar controles bd 2003

    Mensagem  ictsp 9/6/2017, 18:37

    Boa tarde gilberlanio! segue o código

    Código:
    Private Sub dados_Click()
    fechar.Enabled = False
    alt.Enabled = False
    ex.Enabled = False
    eras.Enabled = True
    abc.Enabled = True
    Me.vl = "Alterado informações de prazos"
    PRAZO.Enabled = True
    PRZ.Enabled = True
    Me.hrnow = Format(Now, "hh:nn:ss")
    dados.Enabled = False

    Na versão 2010, desse jeito, funciona perfeitamente. No 2003 não.

    Desde já obrigado!!
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 802
    Registrado : 30/08/2010

    [Resolvido]Desabilitar controles bd 2003 Empty Re: [Resolvido]Desabilitar controles bd 2003

    Mensagem  gilberlanio 9/6/2017, 18:42

    Qual o nome do botão que está usando esse código?
    gilberlanio
    gilberlanio
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 802
    Registrado : 30/08/2010

    [Resolvido]Desabilitar controles bd 2003 Empty Re: [Resolvido]Desabilitar controles bd 2003

    Mensagem  gilberlanio 9/6/2017, 18:46

    Tente assim:

    Código:
    Private Sub dados_Click()
    fechar.Enabled = False
    alt.Enabled = False
    ex.Enabled = False
    eras.Enabled = True
    abc.Enabled = True
    Me.vl = "Alterado informações de prazos"
    PRAZO.Enabled = True
    PRZ.SetFocus
    PRZ.Enabled = True
    Me.hrnow = Format(Now, "hh:nn:ss")
    dados.Enabled = False

    ictsp gosta desta mensagem

    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/09/2016

    [Resolvido]Desabilitar controles bd 2003 Empty Re: [Resolvido]Desabilitar controles bd 2003

    Mensagem  ictsp 11/6/2017, 00:45

    Boa noite amigo gilberlanio! Realmente funciona perfeitamente dessa forma, nesse botão. Porém, como poderia ser feito para desabilitar o botão ao chamar outro formulario, como no código abaixo:
    Código:
    Private Sub vs_Click()
    Dim x As VbMsgBoxResult

    x = MsgBox("Não poderão ser acrescentados mais dados para visualização.Deseja continuar?", vbQuestion + vbYesNo, "Atenção")
    If x = vbYes Then
    DoCmd.OpenForm "subcons", acNormal
    vs.Enabled = False
    subc.Enabled = False
    Else
    DoCmd.CancelEvent
    End If
    End Sub

    Muito obrigado por sua atenção e ajuda até o momento!! Abraço
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/09/2016

    [Resolvido]Desabilitar controles bd 2003 Empty Re: [Resolvido]Desabilitar controles bd 2003

    Mensagem  ictsp 21/8/2022, 23:30

    resolvido

    Conteúdo patrocinado


    [Resolvido]Desabilitar controles bd 2003 Empty Re: [Resolvido]Desabilitar controles bd 2003

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 10/5/2024, 14:58