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

    Repetição nos dados

    avatar
    MRMC
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 27/11/2022

    Repetição nos dados Empty Repetição nos dados

    Mensagem  MRMC 27/11/2022, 13:00

    Possuo um sistema para controle de clientes e imóveis onde possuem uma tabela de clientes, outra de imóveis, e entre estas três tabelas relacionadas com as duas citadas onde define a situação onde cada imóvel se encontra. São eles: Distribuição; Ocupação e Desocupação. Essas tabelas possuem botão Sim ou Não para definir no relatório onde cada imóvel está. Como posso fazer para criar uma condição onde o botão Sim só poderia estar acionado para uma única situacao, ou seja, que ele não permita que o imóvel esteja em dois lugares ao mesmo tempo.
    Cristian Souza
    Cristian Souza
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 65
    Registrado : 12/01/2021

    Repetição nos dados Empty Re: Repetição nos dados

    Mensagem  Cristian Souza 28/11/2022, 11:51

    Olá MRMC Very Happy

    Diretamente na tabela não conheço nenhuma maneira de permitir apenas uma opção nas caixas sim/não com base em outras caixas.

    Porém no relatório, no evento "Ao clicar" das suas caixas Sim/Não, tente utilizar o seguinte código:

    Código:


    If Me.Caixa1 = true Then
        Me.Caixa2 = false
        Me.Caixa3 = false
        Exit Sub
    End If



      Data/hora atual: 27/4/2024, 21:43