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]Abrir relatório por caixa de combinação

    avatar
    Tatiani Gomes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 4
    Registrado : 24/09/2014

    [Resolvido]Abrir relatório por caixa de combinação Empty [Resolvido]Abrir relatório por caixa de combinação

    Mensagem  Tatiani Gomes em Ter 31 Jan 2017, 7:45 am

    Olá, tenho aprendido muitas coisas sobre Access, principalmente com a ajuda dos fóruns. Por isso recorro diretamente à vocês, pois não consegui resolver uma situação:
    Estou montando um banco de dados sobre projetos de pesquisa e preciso periodicamente, dentre milhares de coisas (rsrs),  de relatórios que indiquem os estudantes envolvidos nesses projetos, conforme o curso em que estudam. Montei o relatório com esse agrupamento e agora queria abrir o relatório específico usando uma caixa de combinação onde consta os nomes dos cursos.
    Usei  seguinte código:

    Private Sub Combinação13_Click()
    'Declaração das variáveis
    Dim stDocName, stCriterio As String
    'Atribuindo os valores às variáveis
    stDocName = "Levantamento Cursos"
    stCriterio = "Curso = " & Combinação13.Column(0) '
    ' Chamando o relatório
    DoCmd.OpenReport "Levantamento Cursos", acViewReport, stLinkCriteria
    End Sub

    Está abrindo o Relatório, mas sem filtrar, abre o relatório de maneira geral.
    Como posso resolver?

    Desde já, obrigada.
    avatar
    Lucio Warley Lippi
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 07/01/2017

    [Resolvido]Abrir relatório por caixa de combinação Empty Re: [Resolvido]Abrir relatório por caixa de combinação

    Mensagem  Lucio Warley Lippi em Ter 31 Jan 2017, 8:28 am

    Olá Tatiani;

    Tentou tirar as aspas simples ao final de stCriterio = "Curso = " & Combinação13.Column(0) '

    Ficaria assim:

    stCriterio = "Curso = " & Combinação13.Column(0)

    Espero ter ajudado!
    avatar
    Tatiani Gomes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 4
    Registrado : 24/09/2014

    [Resolvido]Abrir relatório por caixa de combinação Empty Re: [Resolvido]Abrir relatório por caixa de combinação

    Mensagem  Tatiani Gomes em Ter 31 Jan 2017, 8:33 am

    Olá Lucio.
    Tirei, mas ainda não deu certo.
    avatar
    Lucio Warley Lippi
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 07/01/2017

    [Resolvido]Abrir relatório por caixa de combinação Empty Re: [Resolvido]Abrir relatório por caixa de combinação

    Mensagem  Lucio Warley Lippi em Ter 31 Jan 2017, 8:38 am

    Quantas colunas existem na Combinação13?

    Talvez, caso haja mais de uma coluna:

    stCriterio = "Curso = " & Combinação13.Column(1)

    Aguardo!
    avatar
    Tatiani Gomes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 4
    Registrado : 24/09/2014

    [Resolvido]Abrir relatório por caixa de combinação Empty Re: [Resolvido]Abrir relatório por caixa de combinação

    Mensagem  Tatiani Gomes em Ter 31 Jan 2017, 9:15 am

    Já tinha testado isso também.
    A caixa de combinação que estou usando é baseada em uma consulta onde estão listados só os cursos. Não coloquei nem os códigos nessa consulta. E ainda alterei para "valores exclusivos".

    Como o formulário tem outro consulta como referência, tentei fazer uma caixa de combinação com essa mesma consulta, mas como os cursos se repetem, tive tbm que alterar para "valores exclusivos".

    Não faço ideia do que pode ser. Sad
    avatar
    Tatiani Gomes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 4
    Registrado : 24/09/2014

    [Resolvido]Abrir relatório por caixa de combinação Empty Re: [Resolvido]Abrir relatório por caixa de combinação

    Mensagem  Tatiani Gomes em Ter 31 Jan 2017, 1:51 pm

    Lucio e demais interessados, resolvido.

    Infelizmente não consegui resolver usando código, mas sim aplicando uma macro que já usava para outras situações. A questão é que já percebi, não sei por acaso, ou eu acabo alterando alguma coisa, esse caminho nem sempre funciona.

    Simplesmente, criei uma nova caixa de combinação, mas sem a ajuda do assistente. Apenas a coloquei no "Fomulário Inicial" e escolhi a Origem da linha. Depois atribui em "Apos atualizar" a seguinte Macro: Abrir Relatório - Levantamento Cursos; Relatório; ; ="[Curso]=" & "'" & [Combinação20] & "'"; Normal

    Mas se alguém tiver uma saída em código, adoraria recebê-la e aprender um pouco mais. Smile
    avatar
    Lucio Warley Lippi
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 07/01/2017

    [Resolvido]Abrir relatório por caixa de combinação Empty Re: [Resolvido]Abrir relatório por caixa de combinação

    Mensagem  Lucio Warley Lippi em Ter 31 Jan 2017, 2:56 pm

    Ok, Tatiani....

    Obrigado pelo retorno!! Se vc quiser uma solução vba, envie o arquivo que eu ou um colega do forum tentaremos.

    Abraço.

      Data/hora atual: Sab 05 Dez 2020, 6:12 am