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]Bloquear grupo de opções

    Compartilhe
    avatar
    OLDRIVG
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 284
    Registrado : 20/07/2010

    [Resolvido]Bloquear grupo de opções

    Mensagem  OLDRIVG em 24/10/2018, 18:32

    Prezados, boa tarde.

    Qual o procedimento para bloquear um grupo de opções?

    Estou usando o código abaixo, mas não funciona.
    If Not IsNull(Me.Arquivar1) = True Then
    Me.Arquivar1.Locked = True
    Else
    Me.Arquivar1.Locked = False
    End If


    Voltando a esclarecer que "Arquivar1" é um Campo Grupo de Opções.

    A propósito, gostaria de saber a diferença entre as expressões de códigos Me.txtCampo1.visible=true e txtCampo1.visible=true. Há alguma alteração em usar ou não o Me?

    Desde já agradeço.
    avatar
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 331
    Registrado : 08/10/2012

    Re: [Resolvido]Bloquear grupo de opções

    Mensagem  Sidney em 24/10/2018, 18:51

    Boa Tarde!!

    tente assim,

    Código:
    If Not IsNull(Me.Arquivar1) = True Then
    Me.Arquivar1.enabled = True
    Else
    Me.Arquivar1.enabled = False
    End If

    att: Sidney
    avatar
    OLDRIVG
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 284
    Registrado : 20/07/2010

    Re: [Resolvido]Bloquear grupo de opções

    Mensagem  OLDRIVG em 24/10/2018, 18:58

    Boa tarde, Sidney, obrigado pela a atenção.

    Infelizmente não funcionou.
    Penso que os dois códigos Enabled/Locked diferem-se somente no fato de um ativar/desativar e o outro bloquear/desbloquear.

    De qualquer forma, lhe agradeço.
    avatar
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 331
    Registrado : 08/10/2012

    Re: [Resolvido]Bloquear grupo de opções

    Mensagem  Sidney em 24/10/2018, 19:39

    OLDRIVG

    manda o banco de dados para podermos verificar

    att; Sidney
    avatar
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    Re: [Resolvido]Bloquear grupo de opções

    Mensagem  vieirasoft em 24/10/2018, 19:45

    Teste assim:

    If Me.Arquivar1.Value = 0 Then
    Me.Arquivar1.enabled = True
    End If
    avatar
    OLDRIVG
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 284
    Registrado : 20/07/2010

    Re: [Resolvido]Bloquear grupo de opções

    Mensagem  OLDRIVG em 25/10/2018, 10:58

    Grande Vierasoft, bom dia.

    A sua sugestão funciona, porém ela trava todos os registros. Ou seja, não desativa/bloqueia apenas aquele registro que se está fazendo . Ao realizar o próximo registro, o campo Grupo de Opções "Arquivar1" fica inacessível.

    Testei nos seguintes eventos:

    No atual e após atualizar, do formulário;
    Ao sair e Após atualizar, do campo Grupo de Opções "Arquivar1"

    Existe alguma forma de contornar este entrave?

    A propósito, gostaria de saber a diferença entre as expressões de códigos Me.txtCampo1.visible=true e txtCampo1.visible=true. Há alguma alteração em usar ou não o Me?

    Agradeço
    avatar
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    Re: [Resolvido]Bloquear grupo de opções

    Mensagem  vieirasoft em 25/10/2018, 13:05

    Eis um exemplo. Espero que corresponda ao que pretenda, senão só vendo.


    https://www.dropbox.com/s/pocqqxd9g01bcdn/grupoop%C3%A7%C3%A3o.mdb?dl=0
    avatar
    OLDRIVG
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 284
    Registrado : 20/07/2010

    Re: [Resolvido]Bloquear grupo de opções

    Mensagem  OLDRIVG em 25/10/2018, 14:53

    Prezado Vieirasoft, obrigado.

    Vi o seu exemplo. Não é bem isto que pretendo.

    No seu exemplo, o Grupo de Opções é ativado ao digitar no campo Teste e quando é salvo/reaberto o formulário 1, o registro ele volta desativado.

    Testei a sua sugestão mas não funcionou comigo.

    Eu preciso que quando for selecionado uma opção no campo Grupo de Opções "Arquivar1" e ao sair do campo o mesmo fique bloqueado, mas bloqueado somente no registro que estiver sendo feito. Quando for iniciado novo registro o campo Grupo de Opções "Arquivar1" esteja desbloqueado até for selecionado uma opção.

    Estou enviando o cópia do prototipo do BD para que você dê uma olhada, por favor. Observe que implementei sua sugestão no campo DestinoMovimentacao1" e desativou geral o Grupo de Opções "Arquivar1".


    Desde já agradeço
    Anexos
    PROTOCOLO - Prototipo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (444 Kb) Baixado 1 vez(es)
    avatar
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    Re: [Resolvido]Bloquear grupo de opções

    Mensagem  vieirasoft em 25/10/2018, 19:18

    avatar
    OLDRIVG
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 284
    Registrado : 20/07/2010

    Re: [Resolvido]Bloquear grupo de opções

    Mensagem  OLDRIVG em 26/10/2018, 14:22

    Grande Vieirasoft, bom dia!

    Funcionou legal.

    Só não entendi o porque de referenciar somente uma opção no código do evento ao Abrir do formulário, sendo que tem 3 opções.

    No evento Ao Abrir do formulário:

    If Me.NewRecord Then
    Me.Opção6.Locked = False
    Else
    Me.Opção6.Locked = True
    End If

    Mas funcionou.

    Aproveitando o ensejo, seria possível me esclarecer a diferença entre as expressões de códigos Me.txtCampo1.visible=true e txtCampo1.visible=true. Há alguma alteração em usar ou não o Me?

    Mais uma vez, agradeço-lhe e também ao Sidney.
    avatar
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    Re: [Resolvido]Bloquear grupo de opções

    Mensagem  vieirasoft em 26/10/2018, 14:41

    Desculpe, fui eu que não limpei o código, por isso lhe apareceu essa anomalia. Limpe que não tem serventia.
    Ao referir-se aos objectos com Me. está a clarificar mais rápido e melhor o código. Em linguagem corrente: a dar nome aos bois.

    Abraço e bom trabalho
    avatar
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    Re: [Resolvido]Bloquear grupo de opções

    Mensagem  vieirasoft em 26/10/2018, 14:43

    faltou o resolvido

      Data/hora atual: 18/1/2019, 00:19