×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

start another access dbatabase from an access database

start another access dbatabase from an access database

start another access dbatabase from an access database

(OP)
Hi I am trying to run an access database from another access database with the following code in ms access 2010

Private Sub Command21_Click()
Call Shell("""C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE"" "" C:\Users\Rudolf\Desktop\Signinfo playitmovie,1")

End Sub

RE: start another access dbatabase from an access database

try

CODE --> VB

Dim appAccess As Access.Application
 appAccess.OpenCurrentDatabase "PathToDatabase"
 appAccess.Visible = -1 

RE: start another access dbatabase from an access database

sorry should be

CODE --> VB

Dim appAccess As Access.Application
 Set appAccess = CreateObject("Access.Application")
 appAccess.OpenCurrentDatabase "C:\Users\Pincus\Desktop\be.accdb"
 appAccess.Visible = -1 

RE: start another access dbatabase from an access database

Hi PWise tried your code as follows without succes
Private Sub Command23_Click()
Dim appAccess As Access.Application
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase "C:\Users\Rudolf\Desktop\Signinfo\playitmovie"
appAccess.Visible = -1

End Sub

RE: start another access dbatabase from an access database

Hi Pwise I forgot the extention accde
Private Sub Command23_Click()
Dim appAccess As Access.Application
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase "C:\Users\Rudolf\Desktop\Signinfo\playitmovie.accde"
appAccess.Visible = -1

End Sub
It error message appAcess .Vissible wrong code

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close