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

    Relatório Seleção

    avatar
    yuri.furtado
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 23/03/2016

    Relatório Seleção  Empty Relatório Seleção

    Mensagem  yuri.furtado em 29/6/2017, 15:32

    Pessoal Bom Dia

    Estou precisando muito da ajuda de vocês, criei um sistema de controle de documento para o meu setor a qual trabalho Departamento Pessoal, sendo que quando eu realizar o cadastro vai ter um "Quadro de Opção" com valores 1 - Advertência, 2 - Suspensão e 3 - Comunicado, sendo que quando for selecionar cada opção do cadastro e for gerar o relatorio ela posso optar por cada "Caixa de Texto", sendo que cada Caixa de Texto (Advertencia, Suspensão e Comunicado) de acordo com cada seleção.

    1. Neste cadastro vou dizer qual tipo de Penalidade o Funcionário vai sofrer

    Relatório Seleção  211

    2. Quando gerar relatório o mesmo deverá aparecer ou visibilizar a caixa de texto somente o que foi cadastrado.

    Relatório Seleção  111
    avatar
    Phillip_Junior
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 179
    Registrado : 09/12/2016

    Relatório Seleção  Empty relatorio-selecao

    Mensagem  Phillip_Junior em 4/7/2017, 23:06

    Olá

    Para esse feito, basta criar uma condição que ao ser gerado o relatório ela seja executada.


    Exemplo:

    If Me.selecaoadvertencia.value = true Then
    Me.selecaoadvertencia.Visible = true
    Me.selecaocomunicado.Visible = false
    Me.selecasuspensao.Visible = false
    Else
    If Me.selecaocomunicado.value = true Then
    Me.selecaocomunicado.Visible = true
    Me.selecaoadvertencia.Visible = false
    Me.selecasuspensao.Visible = false
    Else
    If Me.selecasuspensao.value = true Then
    Me.selecasuspensao.Visible = true
    Me.selecaocomunicado.Visible = false
    Me.selecaoadvertencia.Visible = false
    End If
    End If
    End if

    Aqui, ele verifica se a opção esta marcada, se estiver ele deixa visível no relatório a opção que estiver marcada.
    Lembrando que é importante que nessa condição tbm seja acrescentado que seja verificado qual caixa esta marcada e somente a que escolher permaneça marcada.

    Tente, caso não consiga, retorne. Abraços





    .................................................................................
    Phillip_Junior
    Analista de Sistemas

      Data/hora atual: 27/5/2020, 03:54