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

    Desabilitar controles bd 2003

    Compartilhe

    ictsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Desabilitar controles bd 2003

    Mensagem  ictsp em Sex 09 Jun 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.






    avatar
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Desabilitar controles bd 2003

    Mensagem  gilberlanio em Sex 09 Jun 2017, 18:27

    Coloque o código que está no botão aqui para que possamos analisar


    .................................................................................
    [Você precisa estar registrado e conectado para ver este link.]

    ictsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Desabilitar controles bd 2003

    Mensagem  ictsp em Sex 09 Jun 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!!
    avatar
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Desabilitar controles bd 2003

    Mensagem  gilberlanio em Sex 09 Jun 2017, 18:42

    Qual o nome do botão que está usando esse código?


    .................................................................................
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Desabilitar controles bd 2003

    Mensagem  gilberlanio em Sex 09 Jun 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


    .................................................................................
    [Você precisa estar registrado e conectado para ver este link.]

    ictsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: Desabilitar controles bd 2003

    Mensagem  ictsp em Dom 11 Jun 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

      Data/hora atual: Ter 21 Nov 2017, 21:04