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

  • Thread starter Thread starter Robert Johnson
  • Start date Start date
R

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
 
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?
 
Robert said:
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?
Click to expand...

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
 
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
 
comments inline.

Joan Wild said:
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).
Click to expand...

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
Click to expand...

cool - thanks! :)
 
Back
Top