[Resolvido]Consulta partindo de um BD usando a consulta que esta em outro bd

Olá a todos,

Tenho um BD e quero criar um botão em um form que clicando nele vai abrir uma consulta ou relatório, ou relatório baseado em uma consulta

em outro BD, e este BD tem senha de login e senha de usuário.

É possível? não achei exemplo no forum!

Obrigado

Olá Norimar,


Já tentou a "Busca" aqui do fórum, veja como fazer:
https://www.maximoaccess.com/t1115-busca-no-forum-search

Veja este por exemplo:
https://www.maximoaccess.com/t1507-resolvidovincular-tabelas-com-password

Abraço

Valeu Teixeira, mas não é isso que eu quero.

Na verdade seria como se eu abrir o a Aplicação "A" e dentro dessa ter um form como um Botão de comando

que ao clicar teria a instrução de abrir (Docmd open form " xxx" mas esse form esta em outro BD externo ao

chamador.

Tenho me dado bem com esta instrução;

Código:

Dim strdb As Object
Set strdb = CreateObject("Access.Application")
strdb.OpenCurrentDatabase ("C:\SuaPasta\SeuOutroBanco.accdb")
strdb.DoCmd.OpenForm "SeuOutroForm"

Completo e mais eficaz;

Código:

Private Sub SeuBotão_Click()
'By JPaulo maximoaccess 16032022
Dim oAccess As Access.Application
Dim strCaminhoBanco$
    On Error GoTo 1
'caminho do banco externo
strCaminhoBanco = "C:\SuaPasta\SeuBancoExterno.accdb"

Set oAccess = CreateObject("Access.Application")
    With oAccess
        .OpenCurrentDatabase strCaminhoBanco
        .Visible = True
        .UserControl = True
        'nome do seu formulario externo
        .DoCmd.OpenForm "SeuFormExterno"
    End With

Exit_1:
    On Error Resume Next
    'limpa a  memoria
    If Not oAccess Is Nothing Then Set oAccess = Nothing
    Exit Sub
 
1:
    DoCmd.Hourglass False
    DoCmd.Echo True
    Dim Msg$
    Msg = "Erro # " & Str(Err.Number) & " gerado na " & Err.Source _
        & vbNewLine & vbNewLine & "Descrição: " & Err.Description _
        & vbNewLine & vbNewLine & "Por favor contate o Administrador do Sistema."
    MsgBox Msg, vbMsgBoxHelpButton + vbCritical, "Erro", Err.HelpFile, Err.HelpContext
    Resume Exit_1
End Sub

Valeu JPaulo,
O primeiro exemplo abriu e estou testando.

Vou testar o segundo e retorno para fechar a questão.

JPaulo o segundo deu esse erro:

Isso acontece porque você tem o outro banco aberto na memoria.

Note que no primeiro código não tem o:

Código:

If Not strdb Is Nothing Then Set strdb= Nothing

Se fizer o Compactar/Reparar vai funcionar.

JPaulo,

Então tenho que substituir esse código no da mensagem 5?

Pois estão diferentes.

JPaulo,

Agradeço as dicas, vou treinar aqui.
No meu caso eu resolvi unir os dois bancos em um só e estou testando,
coloquei a chamada do form em um Botão da ribbon e esta ok.

Obrigado!