opening a new another data base 1

[notreconised]

HI
can any one help me i wish to open another database With comand button (BY code) but i do not wish to close current data base.

Many thanks in advance

 

[Rolliee]

What do you wish to do with the other not database, I imagine, but another table from the current database.

to do so you,

DIM db as doa.database, rs as doa.recordset

set db = currentdb() ' or another if you wish
set rs = db.openrecordset("Table&quot or

set rs = db.openrecordset("SELECT * FROM 'TABLE';&quot


It is now open for what you wish to do.

Did you really mean to open another form?

if so:


DOCMD.openform "frmName"


rollie@bwsys.net

 

[PauloRico]

Use the shell command -

lngResult = Shell("C:\MSAccess.exe yourdatabasepath.mdb&quot

Replace C:\MSAccess.exe with the path to Microsoft Access on your computer.

 

[TonyJollans]

Hi notreconised,

You need to create a new workspace to open a second database in Access, something like ...

Dim tjWorkspace As DAO.Workspace
Dim tjDatabase As DAO.Database
Dim tjRecordset As DAO.Recordset

Set tjWorkspace = CreateWorkspace("Tony", "admin", "")
Set tjDatabase = tjWorkspace.OpenDatabase("D:\My Documents\MyDatabaseName")

Set tjRecordset = tjDatabase.OpenRecordset("TableName", dbOpenDynaset)

' Do what you want with the recordset or anything else in the database

tjRecordset.Close
tjDatabase.Close
tjWorkspace.Close

Set tjRecordset = Nothing
Set tjDatabase = Nothing
Set tjWorkspace = Nothing

Enjoy,
Tony

 

[cmmrfrds]

If it is an Access database you can reference directly in the select statement. There are different ways. Here is one example using ADO.

Dim sql1 As String, exterDB As String
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
Set cn = CurrentProject.Connection

exterDB = "C:\AEmptyDir\employee.mdb"

sql1 = "select * from employees IN '" & exterDB & "';"

rs.Open sql1, cn, adOpenStatic, adLockOptimistic
Debug.Print "rs = "; rs(0); " "; rs(1)

 

[jbento]

I was wanting to do this as well today.

Thanks for sharing

Jerome Benton
JERPAT Web Designs

http://www.jerpat.org

GOD Is Good All The Time!!!