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]Criar uma caixa de mensagem com opção de escolha

    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido]Criar uma caixa de mensagem com opção de escolha Empty Criar uma caixa de mensagem com opção de escolha

    Mensagem  julianovv 11/5/2012, 09:57

    Tenho um botão para abrir um determinado relatório. Esse relatório é exibido o total de horas executadas mas digitado pelo responsável (Efetivo Consultivo). Outro relatório idêntico é exibido a soma das horas reais (Efetivo Real).
    Gostaria de criar uma caixa de mensagem onde o usuário poderia escolher entre o consultivo e o real e dar Ok para exibir o relatório ou cancelar. As opções seriam como o controle grupo de opção.
    Obrigado!

    Wink
    avatar
    Convidad
    Convidado


    [Resolvido]Criar uma caixa de mensagem com opção de escolha Empty Re: [Resolvido]Criar uma caixa de mensagem com opção de escolha

    Mensagem  Convidad 11/5/2012, 10:12


    Crie um formulário personalizado com os controles de opção e botões que precisa.
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido]Criar uma caixa de mensagem com opção de escolha Empty Re: Criar uma caixa de mensagem com opção de escolha

    Mensagem  julianovv 11/5/2012, 11:21

    Ok, já fiz. E aí? São 2 relatórios de layouts idênticos mas baseados em consultas diferentes.
    Segue uma imagem do que pretendo.



    Última edição por julianovv em 11/5/2012, 11:29, editado 2 vez(es)
    avatar
    Convidad
    Convidado


    [Resolvido]Criar uma caixa de mensagem com opção de escolha Empty Re: [Resolvido]Criar uma caixa de mensagem com opção de escolha

    Mensagem  Convidad 11/5/2012, 11:28


    Já fez? E o que falta? scratch

    Se são 2 relatórios, coloque um botão para cada um, com legenda que identifique.
    No evento click de cada botão coloque o código que abre o relatório: DoCmd.OpenReport...

    E complete com um comando para fechar o formulário.
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido]Criar uma caixa de mensagem com opção de escolha Empty Re: Criar uma caixa de mensagem com opção de escolha

    Mensagem  julianovv 11/5/2012, 11:33

    Sim, a maioria dos que tenho aqui são assim. Já fiz um tipo de menu onde podia gerar um relatório a partir de um item numa caixa de combinação e deu certo.
    Essa forma por grupo de opção eu nunca tentei.
    O que falta é o código para quando clicar num item o botão "Ver Relatório" abra o relatório relacionado a esta escolha.

    Rolling Eyes


    Última edição por julianovv em 11/5/2012, 11:37, editado 1 vez(es)
    avatar
    Convidad
    Convidado


    [Resolvido]Criar uma caixa de mensagem com opção de escolha Empty Re: [Resolvido]Criar uma caixa de mensagem com opção de escolha

    Mensagem  Convidad 11/5/2012, 11:35


    Bem, só via imagem agora...

    Neste caso, ao clicar no botão VerRelatório:

    If Me.NomeGrupoOpção = 1 Then
    DoCmd.OpenReport "NomeRelatório", acPreview, "", ""
    ElseIf Me.NomeGrupoOpção = 2 Then
    DoCmd.OpenReport "NomeRelatório", acPreview, "", ""
    End If

    Deve definir a propriedade Valor de opção de um dos botões com 1 e do outro como 2.
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido]Criar uma caixa de mensagem com opção de escolha Empty Re: Criar uma caixa de mensagem com opção de escolha

    Mensagem  julianovv 11/5/2012, 11:40

    Ok, obrigado. Vou tentar aqui e mando um retorno.

    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido]Criar uma caixa de mensagem com opção de escolha Empty Re: Criar uma caixa de mensagem com opção de escolha

    Mensagem  julianovv 11/5/2012, 12:08

    Deu certo. Só que ainda tem mais uma coisa.
    Esse menu precisa estar ligado a um formulário que exibe uma lista de registros filtrados por mês.
    Então, quando eu escolher na caixa de combinação por exemplo "maio de 2012" e os registros desse mês aparecerem, clico no botão de menu e escolho o tipo de relatório. Quando gerar os relatórios eles deverão abrir no mês escolhido como já acontecia.
    Segue uma imagem:
    avatar
    Convidad
    Convidado


    [Resolvido]Criar uma caixa de mensagem com opção de escolha Empty Re: [Resolvido]Criar uma caixa de mensagem com opção de escolha

    Mensagem  Convidad 11/5/2012, 12:24



    Deve colocar o critério entre as últimas aspas do comando DoCmd.OpenReport

    algo como:

    DoCmd.OpenReport "Relatório", acPreview, "", "[Consulta]![Mês]=[Forms]![Formulário]![ComboBox]"
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido]Criar uma caixa de mensagem com opção de escolha Empty Re: Criar uma caixa de mensagem com opção de escolha

    Mensagem  julianovv 11/5/2012, 13:06

    Não deu. Ele não localizou a consulta e o mês.
    A consulta do formulário (Cst Status Data) possui um alias "Mesano" que torna o campo data em formato escrito (ex. 12/05/2012 = maio de 2012).
    No código coloquei [Cst Status Data]![Mesano].
    Não funcionou.

    No
    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 685
    Registrado : 14/12/2010

    [Resolvido]Criar uma caixa de mensagem com opção de escolha Empty Re: Criar uma caixa de mensagem com opção de escolha

    Mensagem  julianovv 11/5/2012, 13:29

    Agora deu! Dei uma remexida aqui e funcionou.
    Obrigado!

    Wink
    avatar
    Convidad
    Convidado


    [Resolvido]Criar uma caixa de mensagem com opção de escolha Empty Re: [Resolvido]Criar uma caixa de mensagem com opção de escolha

    Mensagem  Convidad 11/5/2012, 14:21


    Disponha!

    O Fórum agradece o retorno.

    cheers

    Conteúdo patrocinado


    [Resolvido]Criar uma caixa de mensagem com opção de escolha Empty Re: [Resolvido]Criar uma caixa de mensagem com opção de escolha

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 17:45