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

    [Resolvido]Imprime conforme botão de opção

    avatar
    alantb
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 212
    Registrado : 25/07/2017

    [Resolvido]Imprime conforme botão de opção Empty [Resolvido]Imprime conforme botão de opção

    Mensagem  alantb 21/2/2018, 13:42

    Olá, em um form tenho um quadro com três botões de opção: TODOS (valor opção1), MATRICULA(valor opção 2) e LOTAÇÃO(valor opção 3). O que preciso é que conforme a seleção de opção do usuário carregue o relatório da forma selecionada:

    - Ao selecionar o botão TODOS basta clicar em imprimir para emitir o relatório;
    - Ao selecionar MATRICULA, torna visivel caixa de texto para digitar uma matricula de seleção para imprimir;
    - Ao selecionar em LOTAÇÃO, torna visivel uma caixa de texto para digitar o código de uma LOTAÇÃO e imprimir todos que fazem parte da mesma.

    Todos o controles já estão dispostos no form, o problema é que não estou me achando nas propriedades dos botões de opção, o que define quando um ou outro está selecionado.Algo parecido como abaixo:

    Sub ImprimeRel()

    If Me.Option1.OptionValue = 1 Then
    DoCmd.OpenReport "RelBiometrias", acViewPreview
    End If

    If Me.Option2.OptionValue = 2 Then
    Me.lblMatricula.Visible = True
    Me.txtMatricula.Visible = True
    Me.lblNome.Visible = True

    DoCmd.OpenReport "RelBiometrias", acViewPreview, , "codFunc = " & Me!txtMatricula
    End If

    If Me.Option3.OptionValue = 3 Then

    Me.lblLotacao.Visible = True
    Me.txtCodLotacao.Visible = True
    Me.lblLotacaoDesc.Visible = True
    DoCmd.OpenReport "RelBiometrias", acViewPreview, , "CodLotacao = " & Me!txtCodLotacao

    End If


    End Sub

    ALAN
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3955
    Registrado : 29/06/2012

    [Resolvido]Imprime conforme botão de opção Empty Re: [Resolvido]Imprime conforme botão de opção

    Mensagem  Noobezinho 21/2/2018, 14:42

    Alan


    Ao invés de um quadro com 3 botões de opções, utilize o Grupo de opções

    Na aba controles, ele é o botão que tem o quadrado com a letras XYZ .

    Siga o assistente, grave o nome que vai dar para o grupo de opção, digamos gpEscolha. (é so um exemplo)

    Para referenciar ele:


    If Me.gpEscolha = 1 Then
            balbalalal
    elseif Me.gpEscolha = 2 then
            blblb      
    else   'só sobrou a opção 3
           blabla
    end If


    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    Cláudio Más
    Cláudio Más
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1278
    Registrado : 21/01/2012

    [Resolvido]Imprime conforme botão de opção Empty Re: [Resolvido]Imprime conforme botão de opção

    Mensagem  Cláudio Más 21/2/2018, 19:16

    Conforme o Noobezinho exemplificou, deve utilizar o evento Após atualizar do grupo de opções (o quadro que "agrupa" os botões), e não cada botão individualmente.
    avatar
    alantb
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 212
    Registrado : 25/07/2017

    [Resolvido]Imprime conforme botão de opção Empty Re: [Resolvido]Imprime conforme botão de opção

    Mensagem  alantb 21/2/2018, 20:10

    Pessoal, conforme o Noobezinho passou deu certo. Agora preciso que o relatório filtre conforme as caixas de texto. Sendo assim essa primeira dúvida foi solucionada. Resolvido!!!

    ALAN
    avatar
    alantb
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 212
    Registrado : 25/07/2017

    [Resolvido]Imprime conforme botão de opção Empty Re: [Resolvido]Imprime conforme botão de opção

    Mensagem  alantb 21/2/2018, 20:11

    Até aqui resolvido.......
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3955
    Registrado : 29/06/2012

    [Resolvido]Imprime conforme botão de opção Empty Re: [Resolvido]Imprime conforme botão de opção

    Mensagem  Noobezinho 21/2/2018, 22:52

    Alan

    Que ótimo!

    Valeu o retorno

    Boa sorte


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...

      Data/hora atual: 17/4/2021, 18:35