Hello Guys,
I need to know how to enable toolbars and edit a text in a report...
the database is locked by previous employee and I can't get to design view so I can change a text... There isn't any tool bar up there.. just EXIT button..
Thank you in advance.
Hello..
How do I regain the full menu bar in my dbase. I had unclicked "Allow Full Menus" and "Allow Default Shortcut Menus" and now I need to regain those features.
Help!
Diana
Hello People,
I was not sure were to post this question so i thought "General" would be a start.
I have a number of toolbars i would like to copy to a new database i am not sure if this can be done, but any help will be useful to me as i am stuck on this issue.
Alastair
On my database, for startup, I had the toolbars taken away from the user. Is there a quick shortcut to pull them back up? I noticed that the 'Tools' option is gone.
Thanks.
i am wanting to find some way of turning off the menus and toolbars in a startup macro and is it possible to turn off the warning messages that appear when appending or deleting rows in a table. many thanks
View 3 Replies View RelatedI did something in the start up options with this database.
Now when I open it I can't get Access to function as normal.
There is no right click, no tool barr or menu.
Any ideas?
hello,
I have this filename.mdb file which was given to me for revision, so I opened it with MS access but once I opened it, the toolbars are disabled so I can't switch to form view, design view etc. How can I resolve this? I remember when I once did VBA Access that you can do this 'disable' thing. Only that I forgot it how now. So if anyone could please help me in this? I need to 'have those toolbars back' so I can start editing the file. Please do help me.
Thanks in advance
I would like to hide the toolbars on the form.
Could you please explain to me to do it?
Thanks
i must be overlooking something obvious, but....
how in the world do you put in the little gray separators in a custom toolbar? you know, to keep similar buttons in logical 'groups' on the toolbar...
Hi all! Hope you can help me yet again!
My company recently completed a fairly large website for a local travel-agency. The website runs on a MsSQL and .net platform, but (It is a big but(t) by the way) a pricing calculation database is a old MS Access 2000 application.
The users of this DB have MSA2000 installed on their computers, and the database is made with one application DB and connected tables.
My problem is that I have to make some small changes to this DB, but when I start it up, the toolbars is hidden and right-clicking is disabled. (F11 works).
Is there a workaround this problem?
Hi All,
A previous employee of the company I work for setup an access database, which works well. But he populated some drop down lists and didn't give us the option to add additional items to those lists.
He has also done something that when the database is opened the usual access menus and toolbars disappear.
I'm pretty sure that the lists are collected from a table in that database, but I can't view the tables either :(
I have managed to get the start form into design view and also to open the code builder, but I can't see anything in there.
If anyone can offer any help or suggestions on how to access the tables when it's been locked out, I'd be grateful.
Kind regards,
Rich
The below code will hide ALL menu bars and ALL tool bars. Ensure that you have a way to unhide the menu bars and tool bars before you hide them! You should place the hide all tool bars routine in your opening splash screen form for it only needs to be run once when the db is first opened.
This will hide all menu bars and tool bars
Dim i As Integer
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = False
Next i
This will unhide all menu bars and tool bars
Dim i As Integer
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = True
Next i
An added bonus is the right-click mouse button option is disabled if the menu bars are disabled with the above code.
Use the 'ShowToolbar' command if you need to display a tool bar or menu bar...
DoCmd.ShowToolbar "YourToolBarNameHere", acToolbarYes
This will hide a tool bar or menu bar when needed...
DoCmd.ShowToolbar "YourToolBarNameHere", acToolbarNo
This will hide the menu bar...
DoCmd.ShowToolbar "Menu Bar", acToolbarNo
You can also hide/unhide the database window with code...
Hide the database window
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide
Unhide the database window
DoCmd.SelectObject acTable, , True
Remove the "Type a question for help" on the default menu bar in Access 2002 or 2003
Application.CommandBars.DisableAskAQuestionDropdow n = True
This command will prevent the db from opening up a separate window tab on the Taskbar
Application.SetOption "ShowWindowsinTaskbar", False
The above commands have been successfully tested with Access 97 and Access 2003.
Read this if you do not understand where to post your questions! >>> Please Read Before Posting (http://www.access-programmers.co.uk/forums/showthread.php?t=63576)
Please do not directly PM me with any questions related to my Hide all Access Toolbars and Menubars code. Please do not post any questions related to my Hide all Access Toolbars and Menubars code in the Code Repository forum. If you have a question related to the Hide all Access Toolbars and Menubars code... Please post your questions in the appropriate forum and include a link to this thread if you have a question or problem related to my Hide all Access Toolbars and Menubars code. I will be glad to help if I see your post and if I am available.
Key words: toolbars, tool bars, menubar, menu bars, hide, unhide, enable, disable, right click, right-click, database window, hide database window,
I started access today and all my icons and menus are gone from the interface. I am forced to right click on all my queries and tables to perform any action. All I have at the top of my window is the usual "Microsoft Access" caption. Absolutely nothing else. Other than that, Access is fully functional provided I can use the right click commands. Has anyone encountered this? Help!
-Nino
Hi,
The problem is when the users views a report there is no toolbar for them to print the report. The user can click on file print but they would prefer to see the icons on the toolbar.
I have set the startup to not show the toolbars I have also tried just to show each one individually with no joy.
How do I show the print preview toolbar. I do not want the user to be able to design the report I only want to allow them acccess to print the report or maybe export to word.
Any help I would be greatfull. Thanks PWF
Hello,
I've read most of the General category on Toolbars and Startup Menus, but still can't figure this out. I have no VIEW or TOOLS on my toolbar, so I can't get to the startup menu, toolbars, or anything else. When I go to Customize, one option is Built-in Menus. When I try to drag the VIEW or the TOOLS to the menu bar, it won't happen. I have tried the Shift trick, but it did not work either. Can someone help me?
There aren't too many threads on this subject folks. I am looking to understand this a bit more. From what I know, complete security of a database can only be accomplished by making an MDE file. But, the downside there is that MDE's cannot be edited by anyone, so any backups or changes that need to made must be done with an MDB.So, what I want to know is, if I want complete security of a database (as in, no changes allowed to be made, except by me), my only option is to make an MDE file and then transfer all the data back and forth between that and an MDB file whenever I need to make any design changes.Am I right?Thanks!
View 2 Replies View RelatedI want to hide the top toolbars when my users open my database in Access 2007! i have an autoexec macro to maximise the window which gets rid of the navigation bar on the side but cant work out how to hide the top bar? do i need to write code? if so what code and where would i input it.. any help would be much appreciated...
many thanks,
Gaz
I've created users and groups in my access database and assigned the permissions. My security wizard is not working. How do I enable the secuirty-- force the users to logon with a username and password?
View 3 Replies View RelatedHere is my problem: When a certain yes/no box is true (checked) other fields on the form are not enabled. That works just find when I am on the record that I click the yes/no field. When I go to another record and then go back to the previous record the fields that should be disabled due to a certain yes/no box being true are now enabled and not disabled. Below is my code. Can anyone tell me what I am doing wrong?
Private Sub Form_Current()
SetCheckBoxes
End Sub
Private Sub SetCheckBoxes()
If Me.StaPrimary = True Then
Me.StaUp.Enabled = False
Me.StaUpTrainerFirstName.Enabled = False
Me.StaUpTrainerLastName.Enabled = False
Me.StaUpVerifyDate.Enabled = False
Me.StaUpReverifyDate.Enabled = False
Me.StaBack.Enabled = False
Me.StaBackTrainerFirstName.Enabled = False
Me.StaBackTrainerLastName.Enabled = False
Me.StaBackVerifyDate.Enabled = False
Me.StaBackReverifyDate.Enabled = False
Me.StaOther.Enabled = False
Me.StaOtherTrainerFirstName.Enabled = False
Me.StaOtherTrainerLastName.Enabled = False
Me.StaOtherVerifyDate.Enabled = False
Me.StaOtherReverifyDate.Enabled = False
End If
If Me.StaPrimary = False Then
Me.StaUp.Enabled = True
Me.StaUpTrainerFirstName.Enabled = True
Me.StaUpTrainerLastName.Enabled = True
Me.StaUpVerifyDate.Enabled = True
Me.StaUpReverifyDate.Enabled = True
Me.StaBack.Enabled = True
Me.StaBackTrainerFirstName.Enabled = True
Me.StaBackTrainerLastName.Enabled = True
Me.StaBackVerifyDate.Enabled = True
Me.StaBackReverifyDate.Enabled = True
Me.StaOther.Enabled = True
Me.StaOtherTrainerFirstName.Enabled = True
Me.StaOtherTrainerLastName.Enabled = True
Me.StaOtherVerifyDate.Enabled = True
Me.StaOtherReverifyDate.Enabled = True
Me.StaPrimaryVerifyDate = ""
Me.StaPrimaryReVerifyDate = ""
End If
If Me.StaUp = True Then
Me.StaPrimary.Enabled = False
Me.StaPrimaryTrainerFirstName.Enabled = False
Me.StaPrimaryTrainerLastName.Enabled = False
Me.StaPrimaryVerifyDate.Enabled = False
Me.StaPrimaryReVerifyDate.Enabled = False
Me.StaBack.Enabled = False
Me.StaBackTrainerFirstName.Enabled = False
Me.StaBackTrainerLastName.Enabled = False
Me.StaBackVerifyDate.Enabled = False
Me.StaBackReverifyDate.Enabled = False
Me.StaOther.Enabled = False
Me.StaOtherTrainerFirstName.Enabled = False
Me.StaOtherTrainerLastName.Enabled = False
Me.StaOtherVerifyDate.Enabled = False
Me.StaOtherReverifyDate.Enabled = False
End If
If Me.StaUp = False Then
Me.StaPrimary.Enabled = True
Me.StaPrimaryTrainerFirstName.Enabled = True
Me.StaPrimaryTrainerLastName.Enabled = True
Me.StaPrimaryVerifyDate.Enabled = True
Me.StaPrimaryReVerifyDate.Enabled = True
Me.StaBack.Enabled = True
Me.StaBackTrainerFirstName.Enabled = True
Me.StaBackTrainerLastName.Enabled = True
Me.StaBackVerifyDate.Enabled = True
Me.StaBackReverifyDate.Enabled = True
Me.StaOther.Enabled = True
Me.StaOtherTrainerFirstName.Enabled = True
Me.StaOtherTrainerLastName.Enabled = True
Me.StaOtherVerifyDate.Enabled = True
Me.StaOtherReverifyDate.Enabled = True
Me.StaUpVerifyDate = ""
Me.StaUpReverifyDate = ""
End If
If Me.StaBack = True Then
Me.StaPrimary.Enabled = False
Me.StaPrimaryTrainerFirstName.Enabled = False
Me.StaPrimaryTrainerLastName.Enabled = False
Me.StaPrimaryVerifyDate.Enabled = False
Me.StaPrimaryReVerifyDate.Enabled = False
Me.StaUp.Enabled = False
Me.StaUpTrainerFirstName.Enabled = False
Me.StaUpTrainerLastName.Enabled = False
Me.StaUpVerifyDate.Enabled = False
Me.StaUpReverifyDate.Enabled = False
Me.StaOther.Enabled = False
Me.StaOtherTrainerFirstName.Enabled = False
Me.StaOtherTrainerLastName.Enabled = False
Me.StaOtherVerifyDate.Enabled = False
Me.StaOtherReverifyDate.Enabled = False
End If
If Me.StaBack = False Then
Me.StaPrimary.Enabled = True
Me.StaPrimaryTrainerFirstName.Enabled = True
Me.StaPrimaryTrainerLastName.Enabled = True
Me.StaPrimaryVerifyDate.Enabled = True
Me.StaPrimaryReVerifyDate.Enabled = True
Me.StaUp.Enabled = True
Me.StaUpTrainerFirstName.Enabled = True
Me.StaUpTrainerLastName.Enabled = True
Me.StaUpVerifyDate.Enabled = True
Me.StaUpReverifyDate.Enabled = True
Me.StaOther.Enabled = True
Me.StaOtherTrainerFirstName.Enabled = True
Me.StaOtherTrainerLastName.Enabled = True
Me.StaOtherVerifyDate.Enabled = True
Me.StaOtherReverifyDate.Enabled = True
Me.StaBackVerifyDate = ""
Me.StaBackReverifyDate = ""
End If
If Me.StaOther = True Then
Me.StaPrimary.Enabled = False
Me.StaPrimaryTrainerFirstName.Enabled = False
Me.StaPrimaryTrainerLastName.Enabled = False
Me.StaPrimaryVerifyDate.Enabled = False
Me.StaPrimaryReVerifyDate.Enabled = False
Me.StaUp.Enabled = False
Me.StaUpTrainerFirstName.Enabled = False
Me.StaUpTrainerLastName.Enabled = False
Me.StaUpVerifyDate.Enabled = False
Me.StaUpReverifyDate.Enabled = False
Me.StaBack.Enabled = False
Me.StaBackTrainerFirstName.Enabled = False
Me.StaBackTrainerLastName.Enabled = False
Me.StaBackVerifyDate.Enabled = False
Me.StaBackReverifyDate.Enabled = False
End If
If Me.StaOther = False Then
Me.StaPrimary.Enabled = True
Me.StaPrimaryTrainerFirstName.Enabled = True
Me.StaPrimaryTrainerLastName.Enabled = True
Me.StaPrimaryVerifyDate.Enabled = True
Me.StaPrimaryReVerifyDate.Enabled = True
Me.StaUp.Enabled = True
Me.StaUpTrainerFirstName.Enabled = True
Me.StaUpTrainerLastName.Enabled = True
Me.StaUpVerifyDate.Enabled = True
Me.StaUpReverifyDate.Enabled = True
Me.StaBack.Enabled = True
Me.StaBackTrainerFirstName.Enabled = True
Me.StaBackTrainerLastName.Enabled = True
Me.StaBackVerifyDate.Enabled = True
Me.StaBackReverifyDate.Enabled = True
Me.StaOtherVerifyDate = ""
Me.StaOtherReverifyDate = ""
End If
End Sub
Hello everyone. Over the summer i made a database. i think i may have done some locking on it so that i couldnt change it (and only use it), but now i would like to correct some errors. First off, i cant get the database toolbar to show up, and i cant use right-clicking. How do i enable right clicking and get this database to work so i can edit it.
View 1 Replies View RelatedOn searching the forum, I found the following post for enabling/disabling BypassKey. I did as instructed but on clicking the label, it gives 'syntax error with 'On Error Goto' in red color and highlighted.
Hello af1112 welcome to the Forum...
I use this code that ghudson supplied at the beginning of this post.
First of all create a copy of your db (Just incase.. )
Now......
Create a label on a form somewhere and make it invisible to other users
(I have mine hidden in my main Switchboard)
The idea is that by clicking on the label you can activate/de activate the code without anyone else knowing about what you are doing..
Name the label "bDisableBypassKey" & hide it somewhere in the corner of your screen or something.
Copy & Paste the code inbetween the bold text to the onclick event of the label you have just created
Private Sub bDisableBypassKey_Click()
On Error GoTo
Err_bDisableBypassKey_Click
'This ensures the user is the programmer needing to disable the Bypass Key
Dim strInput As String
Dim strMsg As String
Beep
strMsg = "Do you want to enable the Bypass Key?" & vbCrLf & vbLf & "Please key the programmer's password to enable the Bypass Key."
strInput = InputBox(Prompt:=strMsg, Title:="Disable Bypass Key Password")
If strInput = "MY PASSWORD" Then 'Change password to your own
ChangeProperty "AllowBypassKey", DB_BOOLEAN, True
Beep
MsgBox "The Bypass Key has been enabled." & vbCrLf & vbLf & "The Shift key will allow the users to bypass the startup options the next time the database is opened.", vbInformation, "Set Startup Properties"
Else
Beep
ChangeProperty "AllowBypassKey", DB_BOOLEAN, False
MsgBox "Incorrect ''AllowBypassKey'' Password!" & vbCrLf & vbLf & "The Bypass Key was disabled." & vbCrLf & vbLf & "The Shift key will NOT allow the users to bypass the startup options the next time the database is opened.", vbCritical, "Invalid Password"
Exit Sub
End If
Exit_bDisableBypassKey_Click:
Exit Sub
Err_bDisableBypassKey_Click:
MsgBox "bDisableBypassKey_Click", Err.Number, Err.Description
Resume Exit_bDisableBypassKey_Click
End Sub
Now paste this code in the Double click event of the same label
Private Sub bDisableBypassKey_DblClick(Cancel As Integer)
Private Sub Disable_Click()
Option Compare Database
Option Explicit
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
To Test
click on your label to activate the password prompt
and type in the wrong password (that will now disable the bypass key) and you will not be able to open the db by holding down the Shift button
to disable enter the correct password and you will be able to use the Shift button
Would someone help?
Hi there,
The View --> Zoom is in frozen state right now.I am trying to enable the View--> Zoom function but i dont see any option anywhere to set it on.
Please advice.
Thanks
Danny
Hi there I am new to Access and I am currently modifying an existing DB. Currently this DB has a main table which holds a bunch of Patient info such as:
Name
Age
AssignedStaff
Condition
etc....
The assigned staff field is populated from another table (Staff), which holds all the staff members working at the institution. However a couple of these individuals have left and they no longer want their name to show up on the form when inserting a new record. However we do want there name to still be in the DB for historical reporting purposes......My intital thought was to create another field in the Staff table that would hold either a "Active" or "Inactive" entry. Then just have a simple If statement to see if the staff member is active or inactive. Does anyone see any problems with this solution or propose a more efficient method.
Thanks
I am creating a data entry form with combo boxes related to two different tables:
TblEducationID
EducationID - Auto# PK
Education - Text
TblMediaFill
MediaFillID - auto# PK
Incubation Time- text
Incubation Temp - text
In my form, I have a combo box that the user selects the Education Type (Media Fill Test; Aseptic Technique Observation, Watch Video, etc....)
I want the incubation time and temp text boxes to be disabled unless Media Fill Test (ID#4) is selected on the first combo box. (I get a Procedure Declaration does not match error.)
Private Sub EducationID_AfterUpdate()
If EducationID = 4 Then
IncubationTime.Enabled = True
IncubationTemp.Enabled = True
Else
IncubationTime.Enabled = False
IncubationTemp.Enabled = False
End If
End Sub
Any Suggestions? Thanks,
Jason
I have code set up to disable a textbox by clicking on it (Yes, that right, I want the textbox disabled as soon as it is clicked on) with Me.Txt.enabled = false during the _onClick Event.
However, the with which I am working has 500 textboxes. Is there a way to call a function or something that would disable just the textbox that is clicked on?
I've used a form with labels for building a menu options
¿How can I do to enabled or disables a label ? (each label is a menu option)
I've tried to use:
label1.Enables = True
but don't work
Would you help me ?
Thanks a lot
Carlos