[Resolvido]Parametros para Abrir Relatório

Bom dia amigos
Recorro a vocês em busca de ajuda, pois sou novato em Access. Antecipo cordial agradecimentos por lerem e me ajudarem.

tenho uma tabela em access
porem meu aplicativo esta em formulários de Excel (VBA-Userforms).

criei um relatório no Access e quero passar um parametros SQL para que seja exibido no Relatório os dados Filtrados desse SQL.
ou seja o resultado do SQL passar para o Relatório.

segue o código que estou utilizando.

Código:



Sub RelMovEntrada()
    'Conectando banco de dados
    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
    With cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & ActiveWorkbook.Path & "\BANCO-PISA3.MDB;"
        .Properties("Jet OLEDB:Database Password") = "123"
        .Open
    End With

      'Abrindo a tabela do banco de dados
    Set rs = New ADODB.Recordset
    Sql = "select * from Moventradas where codfornecedor = 1 order by código asc"
    rs.Open Sql, cn, adOpenKeyset, adLockOptimistic  ' Todos os registros da tabela"
    DoCmd.OpenReport "RelMovEntradas", acViewPreview

    'Desconectar banco
    rs.Close 'fecha a tabela
    Set rs = Nothing
   
      'Desconectar banco
    cn.Close 'fecha o banco de dados
    Set cn = Nothing
     
End Sub



porém na linha>> DoCmd.OpenReport "RelMovEntradas", acViewPreview
esta dando erro " 424 " o objeto é obrigatório.

o que estou fazendo de errado ??? alguém poderia me ajudar por favor.

Obrigado

Você está tentando abrir o relatório à partir do Excel ou do Access? Se for no Excel, precisará de um objeto Access com o relatório. Ou então pode criar um módulo no banco Access e chamar esse módulo no Excel, mas mesmo assim precisará criar o objeto Access que fará essa abertura.

bom dia Amigo
Daria Grandemente preferencia a abrir do módulo do Excel o Relatório Feito no Access. é o que estou tentando fazer ...


porém caso não seja possivel, posso fazer ela no módulo do Access , porém uma pergunta ... como que do módulo do excel eu passo
os parametros para o módulo do access e em seguinda rodo o módulo do access ? Essa eu acho mais complicada de fazer , por isso se puder me ajudar na primeira acima agradeco...kkk.

Para rodar uma função do Access, a mensagens n° 4 desse tópico pode ajudar. Entre as outras alternativas, uma pode ser programar todo o processo no Access mesmo, com uma macro AutoExec que se auto executa ao abrir o banco. Essa macro AutoExec roda uma função dentro de um módulo que faça esse trabalho e logo depois, fecha o banco.

Boa Tarde mfrigerio, não estou aperceber o que você quer, tens uma tabela no access e os formulários em Excel pretende usar um relatório com filtro dos dados que estão no banco de dado, mais queis abrir o relatório a partir do Excel é isso?
Se for isso você pode fazer o relatório em Excel tens que ter uma planilha bem formatada ou desenhada, usa um formulário para carregar os dados filtrados no modo pré-visualizar a planilha relatório.

Obs.: Deixo aqui um forun onde podes encontrar dica sobre Excel,agente se encontra também lá http://www.tomasvasquez.com.br/

Obrigado amigo Avelino e Criquio por responder-me

segue anexo um arquivo que ajudará a entender o que estou tentando buscar


https://2img.net/r/ihimg/photo/my-images/443/formexcel.png/

https://2img.net/r/ihimg/photo/my-images/854/relaccess.png/

minha aplicacao esta tudo em excel ... e via ado gravo no banco access.
porém tive a necessidade de fazer relatórios ... aprendi a fazer no access ....
a questao agora é como que de dentro do excell eu mando imprimir os relatorios feitos no access.???

estou tentando utlizar essa macro de dentro do excel para rodar uma macro de dentro do access mas nao esta dando certo... alguem poderia me ajudar a desvendar esse problema...

Sub AccessMacro()
Dim A As Object
Set A = CreateObject("Access.Application")
A.Visible = False
A.OpenCurrentDatabase (ActiveWorkbook.Path & "\BANCO.MDB")
A.DoCmd.RunMacro "RelMortalidade", 0

End Sub

obs: "RelMortalidade" é o nome da macro que eu tenho dentro do access que estou tentando excultar...


meus cumprimentos aos colegas.

olá amigos ...

fica aqui como solucionei o problema ... desta forma todos poderão compartilhar os conhecimentos.
meu muito obrigado a todos.
obs: minha aplicação esta em excel e meu banco esta em access
eu rodo uma macro do excel , que executa uma macro do access... o nome da macro dentro do acess neste caso chamava "Mortalidade"

obs: tem que habilitar dentro do VBA > Ferramentas > Referência > microsoft Access 14.0 object library.


Sub ChamarMacroAccess()
Dim sCaminho As String
Dim obj As Object
Dim appObj As Object

sCaminho = "ActiveWorkbook.Path & "\BANCO.MDB""

Set appObj = CreateObject("Access.Application")
'A linha de baixo é opcional
appObj.Visible = True
appObj.OpenCurrentDatabase sCaminho
appObj.Run "Mortalidade"
appObj.Quit

End Sub




Obrigado amigos.

Ainda bem que conseguiste resolver o problema o forun agradece por compartilhar a resolução do problema, um conselho tenta apreender a usar uma planilha como relatório no Excel, porque dessa forma que você usa consume muita memoria do pc no momento de abrir o relatório no access.