MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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]Filtragem tipo relat. cx. listagem

    avatar
    wianfe
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 21/04/2020

    [Resolvido]Filtragem tipo relat. cx. listagem Empty [Resolvido]Filtragem tipo relat. cx. listagem

    Mensagem  wianfe em 20/6/2020, 01:48

    Olá. Antecipadamente agradeço pela ajuda:

    Elaborei um formulário para filtrar 4 tipos de relatórios direferentes clicando um botão visualizar

    As filtragens serão feitas pelo:
    Nome do paciente: (selecionado a partir de uma caixa de listagem) - Já feito
    Período: Inical e final (Campo data abreviada) - já feito e

    Tipo de relatório (selecionado a partir de uma caixa de listagem - Ver imagem) - NÃO FEITO
    O que preciso é que após selecionar o Nome do paciente, o período e
    Selecionar o tipo de relatório da caixa de listagem, após clicar o botão Visualizar/Imprimir
    Aparece somente o Relatório selecionado pela filtragem.
    Anexos
    [Resolvido]Filtragem tipo relat. cx. listagem AttachmentFrmFltRlt.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (35 Kb) Baixado 4 vez(es)
    Alyson
    Alyson
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 19/06/2016

    [Resolvido]Filtragem tipo relat. cx. listagem Empty Re: [Resolvido]Filtragem tipo relat. cx. listagem

    Mensagem  Alyson em 20/6/2020, 15:43

    Bom se tiver tempo para conversar vou ficar disponível kkkkk

    Vamos fazer igual a nosso amigo Jack estripador.... vamos dividir o problema em partes....
    Já fez o comando para para abrir o relatório de acordo com o item que você selecionou?
    avatar
    wianfe
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 21/04/2020

    [Resolvido]Filtragem tipo relat. cx. listagem Empty Re: [Resolvido]Filtragem tipo relat. cx. listagem

    Mensagem  wianfe em 20/6/2020, 16:13

    Bom dia. A parte para filtrar por nom e data eu já fiz. Estou com dificuldades para montar a rotina para filtrar o tipo de relatório pela caixa de listagem.
    Alyson
    Alyson
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 19/06/2016

    [Resolvido]Filtragem tipo relat. cx. listagem Empty Re: [Resolvido]Filtragem tipo relat. cx. listagem

    Mensagem  Alyson em 20/6/2020, 17:01

    Vou considerar que seus campos são texto então fica o seguinte:
    Código:

    Private Sub Comando4_Click()
    If ListaReport.Value = "Relatório 01" Then
        DoCmd.OpenReport "Relatório1", acViewPreview
    ElseIf ListaReport.Value = "Relatório 02" Then
        DoCmd.OpenReport "Relatório2", acViewPreview
    End If
    End Sub
    Olha se entende.


    Última edição por Alyson em 20/6/2020, 17:02, editado 1 vez(es) (Razão : Erro no código)
    avatar
    wianfe
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 21/04/2020

    [Resolvido]Filtragem tipo relat. cx. listagem Empty Re: [Resolvido]Filtragem tipo relat. cx. listagem

    Mensagem  wianfe em 20/6/2020, 19:05

    Olá. Funcionou!
    Seguindo suas instruções a montagem ficou assim:

    Private Sub BtVisRlt_Click()

    If CombFltTpRlt.Value = "Imprimir Clientes" Then
    DoCmd.OpenReport "RltInfPessImp", acViewPreview

    ElseIf CombFltTpRlt.Value = "Imprimir PA" Then
    DoCmd.OpenReport "RltPresArtImp", acViewPreview

    ElseIf CombFltTpRlt.Value = "Visualizar Clientes" Then
    DoCmd.OpenReport "RltInfPessVis", acViewPreview

    ElseIf CombFltTpRlt.Value = "Visualizar PA" Then
    DoCmd.OpenReport "RltPresArtVis", acViewPreview
    End If

    End Sub

    Muito obrigado!
    Alyson
    Alyson
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 19/06/2016

    [Resolvido]Filtragem tipo relat. cx. listagem Empty Re: [Resolvido]Filtragem tipo relat. cx. listagem

    Mensagem  Alyson em 20/6/2020, 19:17

    Show.

      Data/hora atual: 13/8/2020, 15:59