(Resolvido) Erro Função Docmd.OpenReport - Access 2007

[velozo_braga]

Pessoal,

Tenho uma aplicação em Access que fiz inicialmente na versão 2000 e funciona perfeitamente porém quando executada no Access 2007 ocorre um erro.

Trata-se de um Form coletor de Parâmetros, cujos parâmetros (Originários de uma consulta) alimentam um filtro utilizado para impressão dos dados em um relatório.

A função utilizada é a seguinte:

DoCmd.OpenReport "nme_relatório", acViewPreview, "nme_consulta", "clàusula Where sem Where", acWindowNormal, OpenArgs

Já tentei utilizá-la sem os parâmetros opcionais, e outros testes, mas sem sucesso, sempre tenho o seguinte erro:

"O mecanismo de banco de dados do Microsoft Access não pôde encontrar o objeto '0'. Verifique se o objeto existe e se você digitou seu nome e caminho corretamente."

Já tentei inclusive modificar os nomes dos relatórios, que é o provável objeto não encontrado, mas o problema persiste.

Agradeço a atenção à minha dúvida.

Marcos Velozo Braga Jr.

velozo_braga@hotmail.com

[MrMALJ]

Fera não sei o que poderia estar errado até mesmo porque não uso essa versão mais logo alguém deve ajudar você

[velozo_braga]

Caro, agradeço o apoio!

Estou quebrando a cabeça pra descobrir, mas tá difícil. :huh:

Fiz um teste incluindo um novo botão no form para gerar o relatório sem parâmetros para o filtro e: OK! Funcionou beleza! :D

Só que preciso filtrar os dados que irão para o relatório... :unsure:

Vou postar detalhes, segue o código que utilizo:

''''' INICIO Montagem dos Filtros
    For Each itemLista In ListaRegiaoCRSAdulto.ItemsSelected
        If filtro = "" Then
            filtro = "nome_crs = '" & ListaRegiaoCRSAdulto.ItemData(itemLista) & "'"
        Else
            filtro = filtro & " OR nome_crs = '" & ListaRegiaoCRSAdulto.ItemData(itemLista) & "'"
        End If
    Next
    
    filtro = "(" & filtro & ") AND mes_ano = '" & cboCompetCRSAdulto & "'"
    ''''' FIM Montagem dos Filtros
    
    ''''' Chamada do Relatório
    DoCmd.OpenReport stdocname, acViewPreview, ConsIdosoCRS - Completo, filtro

Help me please! Thank's for all attention!

[velozo_braga]

Consegui!! Graças à Deus!!! :D

Após vários testes, a seguinte implementação para o Access 2007 funcionou:

DoCmd.OpenReport "nme_relatório", acViewPreview, , "clàusula Where sem Where", acWindowNormal, OpenArgs

ou seja, o nome da consulta não deve ser informado na função.

Na versão 2000 funciona, mas na 2007.... só desse jeito mesmo!

Deus abençõe! Até mais!

[MrMALJ]

Ok fera agradeço por ter postado a solução!