Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

MS Access Database 2002 1

Status
Not open for further replies.

tlo

Programmer
Oct 27, 2003
5
US
I've completed building my Access database and I am ready to have the user work with it. Is there anyway to create an executable file (or something of that nature that would make the database stand alone) that would hide all the normal menus above and only show my forms. I'm looking for a way to have the user navigate solely on the Forms and push buttons I've included.
 
If you open the database, go to Tools->Startup and you can uncheck the boxes for the things you don't want the user to see. If you run this code, you will get back the original settings:

Option Compare Database


Sub SetStartupProperties()
Const DB_Text As Long = 10
Const DB_Boolean As Long = 1
ChangeProperty "StartupForm", DB_Text, "Switchboard"
ChangeProperty "StartupShowDBWindow", DB_Boolean, False
ChangeProperty "StartupShowStatusBar", DB_Boolean, True
ChangeProperty "AllowBuiltinToolbars", DB_Boolean, True
ChangeProperty "AllowFullMenus", DB_Boolean, True
ChangeProperty "AllowBreakIntoCode", DB_Boolean, False
ChangeProperty "AllowSpecialKeys", DB_Boolean, True
ChangeProperty "AllowBypassKey", DB_Boolean, True
End Sub

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True

Change_Bye:
Exit Function

Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function






 
Tlo - start by going through the "options" and "startup" drop down menus and selecting parameters there. What you are trying to do is fairly straightforward.
 

The other folks seem to have covered your question about menu bars. As to a self-executable application, you will need the Developers Kit in the appropriate version with its attendant licensing agreement.

Cheers, BIll
 
Thanks for all your responses. I will look into them all. Zambezibill, The self-executable was probably more what I need. I will be purchasing the Developer edition of office soon but I want to be sure it allows me to do the self-executable thing. Have you (or anyone else) done this before? If so, is there a need for a separate DB? Thanks everyone for your help.
 


I hope I am not getting my MS products labelling confused, but the edition I am thinking should cost you upwards of $1000.

It will include the tools for creating self executable database application (ie: the user will not need Access installed to run the application) and the requisite licensing agreement from Microsoft allowing you to distribute (unlimited I believe) copies of their software.

I haven't been there yet, but am about to.

Good luck,
Bill
 
I'm purchasing the developer edition of office XP - I believe that costs $700 - $800. I'm assuming thats the one you are referring to. Does anyone out there know for sure? What are the name of those tools you are referring to? Thanks for all your help.
 
OK I went into STARTUP and UNcheck view full menus and now main menu is gone. How do I get it back.
 
I'm reading this and it's way over my head, but I think if you hit the shift key and then open the datbase you'll bypass some of the startup options or code.

I don't know if that'll work or not. Lemme know.
Onwards,

Q-
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top