tenho um modulo chamado General.bas, dentro dele tem o seguinte codigo:

Sub ABRIR_BD()
Dim BD As Database
Set BD = OpenDatabase(App.Path & "\BANCODEDADOS.mdb")
End Sub

 

num formulario e usei o seguinte codigo:

 

Dim TBcliente As Recordset
Call ABRIR_BD
Set TBcliente = BD.OpenRecordset("CLIENTE", dbOpenTable)
End Sub

 

Bom... o que eu quero fazer e não está dando certo é a refencia do local do banco de dados ficar no modulo e a referencia do local da tabela ficar no formulário...

 

...toda vez ele vai buscar onde está o banco de dados no modulo, encontrando-o ele deve abrir a tabela que está especifica na formulário.

 

Tem como?

esperimenta tira o Dim TBcliente As Recordset do form load e coloca dentro do modulo assim

global TBcliente As Recordset

 

espero ter ajudado

Coloca

Dim BD As Database
fora do Sub.. ou seja..

 

Dim BD As Database
Sub ABRIR_BD()
Set BD = OpenDatabase(App.Path & "\BANCODEDADOS.mdb")
End Sub

 

ai talvez dê certo

Pessoal eu tentei as duas formas e quando eu executo dar o seguinte erro:

 

 

ai quando eu dou um debug ele seleciona a linha:

no form load

 

Quem poder me ajude... desde já agradeço

Veja se voce inclui a referencia do DAO (Projeto / references / microsoft DAO 2.5 3.5 compatibily library.

 

Ou veja de o DB foi aberto

 

Global DB As Database
    Set DB = OpenDatabase("\banco.mdb")

Sua variavel BD tem de estar nas declarações gerais dessa forma;

Option Explicit

Public BD as Database

 

Abraços