Cross post: sorry.. Have mdb that I cannot go to design view with.

[Robert Johnson]

Hi all. I just recieved an app from a client that I am unable to get to
design view with. This is a mdb not a mde file so why am I locked out. Is
there something I'm doing wrong?

Regards,

Robert

 

[Lynn Trapp]

Robert,
I'm not exactly sure what you mean when you say you can't get to design
view. Are you unable to see the design view of ANY objects? Can you open the
code window (Ctrl+G)? Are you able to get to the database window?

 

[Joan Wild]

Hi all. I just recieved an app from a client that I am unable to get
to design view with. This is a mdb not a mde file so why am I locked
out. Is there something I'm doing wrong?

First, what you did was a multipost, not crosspost (which would have been
preferred). A crosspost sends a single message to multiple groups, allowing
everyone in all groups to see all the responses.

How do you know it's not a mde? Just because it has a mdb extension doesn't
mean it isn't a mde (the extension could have been editted).

In another database create this function and see what it returns

Function IsMDE() As Boolean
On Error Resume Next
Dim strMDE As String
Dim db As Database
Set db =
DBEngine.Workspaces(0).OpenDatabase("fullpathtodatabase\whatever.mdb")
strMDE = db.Properties("MDE")
IsMDE = (Err.Number = 0 And strMDE = "T")
End Function

 

[Robert Johnson]

Thanks for your replys.. I found out that if I hold down the shift key while
opening the mdb it will go to design view. It worked.

Robert

 

[tina]

comments inline.

First, what you did was a multipost, not crosspost (which would have been
preferred). A crosspost sends a single message to multiple groups, allowing
everyone in all groups to see all the responses.

How do you know it's not a mde? Just because it has a mdb extension doesn't
mean it isn't a mde (the extension could have been editted).

wow, i never knew that - how sneaky!

In another database create this function and see what it returns

Function IsMDE() As Boolean
On Error Resume Next
Dim strMDE As String
Dim db As Database
Set db =
DBEngine.Workspaces(0).OpenDatabase("fullpathtodatabase\whatever.mdb")
strMDE = db.Properties("MDE")
IsMDE = (Err.Number = 0 And strMDE = "T")
End Function

cool - thanks!