What method is best to open another database from an Access switchboard?
I have an Access database (BE / FE) that I have utilized switchboards. I want to open another database in a new window. I presume I can either use the "Run Macro" or
Run Code" command. I am most comfortable creating a macro and calling it from the switchboard.
Can someone help me with the method to create a macro that opens a separate database in a new window?
Run Code" command. I am most comfortable creating a macro and calling it from the switchboard.
Can someone help me with the method to create a macro that opens a separate database in a new window?
Or simplified version:
Public Function OpenDb()
Dim strPath As String
strPath = "C:\YourPath\Yourfile.accd
Application.FollowHyperlin
End Function
Then in Macro, using RunCode, enter the Function name OpenDb().
Hope this helps,
Daniel
Public Function OpenDb()
Dim strPath As String
strPath = "C:\YourPath\Yourfile.accd
Application.FollowHyperlin
End Function
Then in Macro, using RunCode, enter the Function name OpenDb().
Hope this helps,
Daniel
Well the Query contains a selection from a Table or more Tables.
So the Delete statement will be almost the same, but instead of SELECT command you need to use the DELETE command.
Basicaly creating a DELETE query.
See below thread:
http://www.fmsinc.com/microsoftaccess/query/snytax/delete-query.html#DELETE%20Query%20SQL%20Syntax
Hope this helps,
Daniel
So the Delete statement will be almost the same, but instead of SELECT command you need to use the DELETE command.
Basicaly creating a DELETE query.
See below thread:
http://www.fmsinc.com/microsoftaccess/query/snytax/delete-query.html#DELETE%20Query%20SQL%20Syntax
Hope this helps,
Daniel
Please ignore the last post, it was meant for different thread.
For some reason ended up in this thread (?)
If possible delete.
For some reason ended up in this thread (?)
If possible delete.
ASKER
Ok, I tried to complete the solution submitted by Daniel "danishani" but i get an "Action Failed "Error Number 2950".
I am working in an Access 2007 database and trying to open a .mdb file. Is this a problem?
My code is below.
I am working in an Access 2007 database and trying to open a .mdb file. Is this a problem?
My code is below.
Public Function OpenDb()
Dim strPath As String
strPath = "\\brc-cor-fp01\mas90\1 Quality\Training\Training Records.mdb"
Application.FollowHyperlink strPath, , True
End Function
"I am working in an Access 2007 "
Is the db you are trying to open in a Trusted Location ?
mx
Is the db you are trying to open in a Trusted Location ?
mx
I have tested it, and it worked for me.
Make sure you have compiled the Function OpenDb() and saved it in a seperate Module in your database.
Hope this helps,
Daniel
Make sure you have compiled the Function OpenDb() and saved it in a seperate Module in your database.
Hope this helps,
Daniel
Another thing, make sure you have enabled Macro's, and run in Trusted Location.
ASKER
Yes:
\\brc-cor-fp01\mas90\
is trusted (with subfolders)
\\brc-cor-fp01\mas90\
is trusted (with subfolders)
Well, error 2950 is a relatively new error number (A2007) and specifically deals with Trusted Locations. Did you look at the KB above ?
mx
mx
ASKER
Yes I looked at the KB. I have ensured that both locations of each database is in a trusted location. Both databases have Macros enabled. Still does not work for some reason.
The host DB is on a terminal server (Remote Desktop) and is calling to open a database elsewhere on the server. I read where this may be more difficult. Could this be the issue?
The host DB is on a terminal server (Remote Desktop) and is calling to open a database elsewhere on the server. I read where this may be more difficult. Could this be the issue?
"Could this be the issue?"
My guess: Yes ... if you already have TL's set up.
I don't know the solution ...
mx
My guess: Yes ... if you already have TL's set up.
I don't know the solution ...
mx
ASKER
Update:
The code works like a charm when ran from Visual Basic. But it gives me the error when run from the switchboard.
I decided to make a blank form and add a button that runs a macro (runcode). No luck! But this time it says the database can't find the function. Then it gives me the error.
The code works like a charm when ran from Visual Basic. But it gives me the error when run from the switchboard.
I decided to make a blank form and add a button that runs a macro (runcode). No luck! But this time it says the database can't find the function. Then it gives me the error.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Daniel, that was it!!!! Thank you so much. It works. Above you mentioned to make sure it was saved in a separate module - I did that but I gave it the same name. Now that I named the Module different from the Function, it works perfectly.
danishani:
Good one - hyperlink !
mx
Good one - hyperlink !
mx
Public Function mOpenDbInWindow
Dim obj As Application
Set obj = CreateObject("Access.Appli
obj.Visible = True
obj.OpenCurrentDatabase ("FullPathAndDbNameHere")
obj.UserControl = True
Set obj = Nothing
' other code
Set obj = Nothing '
End Function
mx