Opencurrentdatabase (without open a new database)

E

EyEciTy

Joined
Jan 20, 2015
Messages
1
Reaction score
0
Hi,
All,

The code below is working but i want i don't need to open a new database.

Can someone help me with the code change, i need this connection but to use on a open database.

And i can't use Currentdb because i want to link to another database that is opened too.


Private Sub Command25_Click()
Dim strAppName
Dim strAppFrontEnd
Dim db As Access.Application
Set db = CreateObject("Access.Application")
strAppName = "Complaints1"
strAppFrontEnd = "Complaints07.mdb"
Set fso = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("Wscript.Shell")
' Get User Profile
strUserProfile = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
pathdb = strUserProfile & "\" & strAppName & "\" & strAppFrontEnd
db.OpenCurrentDatabase (pathdb)
teste = db.Forms!Gestion!txtTextoReclamacion
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Execute Procedure on a remote Access Db file 17
Leave database open 3
create a new database? 1
Problem with access acImportDelim importing csv with headers 1
script to compact database VBS 14
Problem with VBScript to open a database 1
Active X component can't create object Access.9 3
Get list of files in C:\Test\ and open 4

Top