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

    Rotulo exibe para todos os clientes se eu modificar a caixa de seleção de um cliente.

    avatar
    alantardivo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 135
    Registrado : 27/02/2018

    Rotulo exibe para todos os clientes se eu modificar a caixa de seleção de um cliente. Empty Rotulo exibe para todos os clientes se eu modificar a caixa de seleção de um cliente.

    Mensagem  alantardivo 8/2/2019, 12:20

    Olá pessoal bom dia!

    Estou com um problema, adicionei recentimente uma caixa de seleção chamada "Ativo" ao deixar ela marcada ela mantem o padrão de que o cliente está ok, porém caso eu desmarque a caixa o cliente recebe um rótulo escrito no seu cadastro "Cliente Bloqueado". No caso eu criei montei o código, mas ao modificar um cliente ele segue o mesmo padrão para todos.

    Colocarei meu código para melhor entendimento.
    Desde já agradeço a todos tenham um ótimo dia.

    Código:
    Private Sub Ativo_Click()
    If Ativo = False Then
    bloqueado.Visible = True
    Else
    bloqueado.Visible = False
    End If
    End Sub
    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4754
    Registrado : 20/04/2011

    Rotulo exibe para todos os clientes se eu modificar a caixa de seleção de um cliente. Empty Re: Rotulo exibe para todos os clientes se eu modificar a caixa de seleção de um cliente.

    Mensagem  Silvio 8/2/2019, 18:43

    Boa tarde.

    Na tabela onde está o cadastro de cliente tem que haver dois campos booleanos ( sim =ativo / não = bloqueado ).

    Colocar esses dois campos no teu formulário. Depois é só colocar os códigos abaixo em cada local.

    Private Sub Ativo_Click()
    If Me.Ativo = -1 Then
    Me.Bloqueado = 0
    Me.bloqueado.Visible = false
    Else
    Me.bloqueado= 0
    Me. bloqueado.Visible = true
    End If
    End Sub


    Private Sub Bloqueado_Click()
    If Me.Bloqueado= -1 Then
    Me.Ativo= 0
    Me.Ativo.Visible = false
    Else
    Me.Ativo= 0
    Me. Ativo.Visible = true
    End If
    End Sub


    Evento Atual do Formulário me questão...
    If Me.Ativo = -1 Then
    Me.Bloqueado = 0
    bloqueado.Visible = false
    Else
    Me.Bloqueado = 0
    Me. bloqueado.Visible = true
    End If

    If Me.Bloqueado= -1 Then
    Me.Ativo= 0
    Me.Ativo.Visible = false
    Else
    Me.Ativo= 0
    Me. Ativo.Visible = true
    End If


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    alantardivo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 135
    Registrado : 27/02/2018

    Rotulo exibe para todos os clientes se eu modificar a caixa de seleção de um cliente. Empty Re: Rotulo exibe para todos os clientes se eu modificar a caixa de seleção de um cliente.

    Mensagem  alantardivo 9/2/2019, 13:53

    Olá amigo, bom dia!

    Segui seus passos mais nada adiantou...

    No caso eu defini na tabela como sim/não e gerou uma caixa de seleção.
    Eu preciso que exiba somente a mensagem de "Cliente Bloqueado dependendo do status da caixa de seleção.

    No caso a caixa de seleção pergunta se o cliente é ativo, se ele não for basta aparecer o rótulo que defini como txt_bloqueado que era invisível para visível. Caso contrário ele deve ficar como estava invisível.
    O meu problema não é a visibilidade do txt_bloqueado e sim ao usar as setas de troca de registro. Pois ele continua com o txt_bloqueado nos outros clientes independente da caixa de seleção está certa ou não.

    Em anexo mando uma copia do meu BD para melhor entendimento.

    Sem mais
    Atenciosamente
    Alan Tardivo
    Anexos
    Rotulo exibe para todos os clientes se eu modificar a caixa de seleção de um cliente. AttachmentALSystem-001.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (62 Kb) Baixado 12 vez(es)

      Data/hora atual: 1/8/2021, 11:34