MS Access open remote database in design mode from vba

Question

4.00/5 (2 votes)

See more:

:-D Morning,

I have a code segment that opens a remote Access db from another Access databse using VBA.

VB

Set oApp = New Access.Application
oApp.OpenCurrentDatabase !DirName
oApp.Visible = False
Set db = oApp.CurrentDb

'< the code here loops through the tabledefs and outputs the connection strings>

oApp.CloseCurrentDatabase
Set oDoc = Nothing
Set oMod = Nothing
Set db = Nothing
oApp.Quit acQuitSaveNone
Set oApp = Nothing

The part that I can not figure out is how to open the remote in Design mode? Some of the remotes have routines that run at open and this is not necessary for my purposes.

Thanks for any help!!!
Gene
email is: [Email removed]

Posted 15-Feb-11 2:38am

Member 4505236

Updated 15-Feb-11 3:34am

Sandeep Mewara

v2

Add a Solution

Comments

Sandeep Mewara 15-Feb-11 9:35am

1. Format code part using PRE tags - it makes the question readable
2. Never give your email id like you gave unless you like SPAM

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Answer 1 · 2011-04-08T11:15:00

If you want to loop through the tabledefs, forms, queries and other objects you don't need to open access application, a specially if want to iterate objects in the current database. You can create query like this:
1) forms

SQL

SELECT Name
FROM MSysObjects
WHERE (Type = -32768)

2)tables and queries

SQL

SELECT Name
FROM MSysObjects
WHERE ((Type = 5) OR (Type = 6))

If you refer to DAO.xx, where xx is version of DAO (like 3.6) you can enum objects using collections of tables, queries and forms. Example for enum tables:

Sub EnumObjects()
Dim db As DAO.Database, tbl as DAO.TablDef

On Error Goto Err_EnumObjects

Set db = Currentdb
For each tbl In db.TableDefs
    Debug.Print tbl.Name
Next tbl


Exit_EnumObjects:
    On Error Resume Next
    Set db = Nothing
    Exit Sub

Err_EnumObjects:
    MsgBox Err.Description, vbExclamation, Err.Number
    Resume Exit_EnumObjects
End Sub