Modules & VBA :: Right Click Menu Command Bar Index Number?
Aug 13, 2014
I have a form that i used the following code on to stop people accessing anything naughty:
Code:
Dim i As Integer
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = False
Next i
This works great and gets rid of all the menu bars.
The problem is that it also stops the user getting the right click menu up in a datasheet view.
I assume i just need to enable the correct menu bar index number but i don't know what it is so my code would be:
Code:
CommandBars(X).Enabled = True
So do I need to bring back more than one command bar to get it working?
View Replies
ADVERTISEMENT
Aug 18, 2014
How do I remove items from a right click menu in access 2003? For example I need to remove the form view / design view button from a right click menu but i want to keep the hide/show columns button on the same menu.
View 1 Replies
View Related
Sep 17, 2014
the login is working perfectly, once It logs in there is a button to expand all that is based in JS. I can't seem to work out how to get it to click the button to expand the whole menu, latest code is below:
Code:
Option Explicit
Function Checkpage()
Dim IE As Object
Dim lform As Object
Dim Document As Object
Dim item As Object
[code]...
View 3 Replies
View Related
Oct 18, 2013
I would like to make an append query to piece together multiple tables into a holding table, once the command button is clicked.
a) how to make an append query in vba,
b) How to call an append query on click of a command button?
View 1 Replies
View Related
Nov 7, 2006
Often I use Labels as buttons due to the fact I can colour them the way I want, and use the on click event to trigger code.
The code below however works for a command button, but not a label button.
DoCmd.OpenForm "frmdatetime"
Do While Forms!frmdatetime!OKFlag.Caption = "False"
DoEvents
Loop
When this code is run by clicking on a command button, it works fine.
If run by clicking on a label, frmdatetime opens, but the mouse will not work on either of the 2 open forms unless you go down to the windows task bar, jump onto another window, and back onto frmdatetime.
If I remove the loop with the DoEvents in it, then the problem does not occur.
Can anyone enlighten me as to why this behaviour occurs.
Thanks
Richard
View 4 Replies
View Related
Nov 12, 2014
I need to return a folders directory to a text box on my forms record called Files_Directory when i click the Browse command button... The folder will have more folders within it along with documents all relivant to the folder selected, hense the need for just the folder directory rather than a file.
View 12 Replies
View Related
Aug 11, 2005
Hi All
A quick question.
Is it possible/Easy to wipe out the standard menu for right clicking a listbox
and replacing it with a custom menu.
I would like to make some custom functions for adding and deleting records using list box contol instead of having a huge amount of buttons all across the screen
Thanks Homer
View 1 Replies
View Related
Aug 3, 2005
I have locked my db down so that no one can use the right-click options will in it. I did this to lock them out of the filters and properties options. Does anyone know how I can allow them to use the right-click with the mouse to only do cut, copy, paste, and hyperlink? Thanks
View 2 Replies
View Related
Mar 7, 2013
i need the way for making a popup menu on the right clic of the mouse inside a form...so when i pree right mouse button i will have my list with my commands.
View 8 Replies
View Related
May 1, 2015
I have the following script which customizes the right click menu.
The problem that I am having is that I call the script to add the right click from the form open event and then multiple users can not access the same database.
I use one for forms and then another for reports.
If I manually close the open forms then reopen them then multiple users can use the same database.
If I close and reopen forms with vba the right click still remains making the database not accessible to multiple users.
It is definitely this as when I comment it out from the open event of the forms then everything is OK.
I call the following from the open event of the form as follows
Code:
Public Sub Form_Open(Cancel As Integer)
FormsShortcutMenu
End Sub
The following is stored in a module
Code:
Public Sub FormsShortcutMenu()
Dim cmbRightClick As Office.CommandBar
Dim cmbControl As Office.CommandBarControl
On Error Resume Next
CommandBars("cmdRightClick").Delete
[Code] .....
View 4 Replies
View Related
Dec 27, 2013
I am making a custom right click menu for our company database using this tutorial:
[URL] ....
The thing I can't find when making this macro is copy or paste. I want to add these to it but I can't find it using run command or anything. How to get these 2 in the menu?
View 1 Replies
View Related
May 1, 2006
Hi,
For i = 1 To CommandBars.count
If (CommandBars(i).name <> "Right Click Mouse") Then
CommandBars(i).Enabled = False
End If
Next i
I tried to use this code.
However, right click mouse is disable.
How can I disable all menus except the right click mouse option?
Thanks.
View 1 Replies
View Related
Dec 11, 2013
I'm trying to do right click menu on listbox.
currently i'm trying to implement a right click menu which will show a simple messege box.
My problem is that the list box is on a pop up form which opened up maximized. Now when i'm right clicking on the list box i see the right click menu but when i'm clicking on one of the menu options, nothing happenning (it seems that it don't go to the function as it should). i've also putted breakpoints on the function but it never tips.
It's important to mention that if i'm setting the form popup option to no the right click menu works perfectly (when i'm clicking on one of the options i see its matching messege box).
I'm running the following vba code:
This is the mouse up event handler for my list box:
Private Sub Song_List_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
' Call the SetUpContextMenu function to ensure it is setup with most current context
' Note: This really only needs to be setup once for this example since nothing is
[Code] .....
setting up the "SetUpContextMenu" sub:
Public Sub SetUpContextMenu()
' Note: This requires a reference to Microsoft Office Object Library
Dim combo As CommandBarControl
' Since it may have been defined in the past, it should be deleted,
' or if it has not been defined in the past, the error should be ignored
[code].....
View 3 Replies
View Related
Mar 29, 2015
how to customize my right click "Short-cut" menu in Access 2010. I need a right click menu with ONLY the "Print" and "Print Preview" options for my reports and I would like to disable right click in all other objects.
View 3 Replies
View Related
Aug 23, 2006
How can I refer to a form by using its index number? Also how can I retrieve an index number of a form?
(I'm opening multiple instances of the same form and read that the only way to refer to those instances is by using their index number. I found some solutions that use hWnd as well but I can't get any further support on it as far as referring to a form by using the window handle so I'm trying to capture and then use the index number)
View 4 Replies
View Related
Apr 25, 2005
With this
Me.Application.CommandBars("Menu Bar").Controls("&File").Enabled = False
I can disable the Command "&File" in the Menu bar, How can i disable its menu option Like "Print Preview"
View 1 Replies
View Related
May 12, 2007
Hello.
Your help is very much appreciated.
I want to launch the "partial replica wizard" from code.
Can it be done?
(It is located in Tools -> Replication ->partial replica wizard
Thank you.
Cheers
Roy
View 5 Replies
View Related
Dec 26, 2013
How could I activate filter menu with a command button. The filter menu I am referring to is the one on the home tab.
View 1 Replies
View Related
Jan 24, 2006
Dont be overwhelmed by the following, but it may require some extensive thought and I dont expect everyone to understand....
I want to have a unbound form control a subform. On the form I have an unbound text area entitled txtDate. In this area it displays the current date being viewed. I have put left and right buttons on the main form that will add (+1) one day to the date being shown and subtract (-1) one day from the date being shown. I want to conrol it though the "On Click" but I dont know what to enter in the "On Click" field that will allow me this. The reason is, co-insiding with the previous, when the date is changed, the subform is also changed to a new day. Therefore instead of displaying 24 hours of today, you can view 24 hours of yesterday, tomorrow and so on. See, if one is to set the onclick to be: Me.txtDate=Me.txtDate-1, or Me.txtDate=Me.txtDate+1, it calls for a custom macro and I dont know why. I know it somehow resides in some similar command set up.
I also need to know how to make the subform bound but continous, and what exactly does that mean?
Anyone care to offer some assistance? :confused:
View 4 Replies
View Related
Aug 9, 2005
Hi all!
I have this command button whose caption switches from update record to save record with a msgbox verifying if the person really wants to take this action. On click the user is then allowed to update the record then in theory they would be able to hit the same button whose caption now reads save record, the msg box would appear with a yes or no answer required. The code I have is putting the msg box after the user clicks the update button.
Anyhelp and/or suggestions would be most appreciated!
Private Sub cmdOpen3_Click()
stDocName = "frmSearch"
If cmdOpen3.Caption = "&Update Record" Then
If IsNull(Me.FTMSubform.SourceObject) = False Then
Me.FTMSubform.SourceObject = "frmFTMInfo"
Me.FTMSubform.Form!txtFirstName.Enabled = True
Me.FTMSubform.Form!txtFirstName.Locked = False
Me.FTMSubform.Form!txtFirstName.BackStyle = 1
Me.cmdOpen3.Enabled = True
Me.cmdOpen3.Caption = "&Save Record"
Me.cmdOpen4.Enabled = False
Me.cmdOpen4.Caption = "&Update Record"
Else
Me.FTMSubform.Form!txtFirstName.Enabled = False
Me.FTMSubform.Form!txtFirstName.Locked = True
Me.FTMSubform.Form!txtFirstName.BackStyle = 0
Me.cmdOpen3.Enabled = False
Me.cmdOpen3.Caption = "&Save Record"
Me.cmdOpen4.Enabled = True
Me.cmdOpen4.Caption = "&Update Record"
End If
End If
If cmdOpen3.Caption = "&Save Record" Then
If IsNull(Me.FTMSubform.SourceObject) = False Then
Me.FTMSubform.SourceObject = "frmFTMInfo"
If MsgBox("Save update to this individual?", vbQuestion + vbYesNo, "Save Update?") = vbYes Then
DoCmd.Save
DoCmd.Close acForm, "frmFTM"
DoCmd.OpenForm stDocName
Else
MsgBox "Return to the FTMInfo Form!", vbInformation, "Save Function Aborted!"
End If
End If
End If
End Sub
~Van
View 2 Replies
View Related
May 29, 2014
I have been using a table with queries with no problems. Now the queries wont recognize the last two records of the table when doing a Count. there are no null or empty spaces. I am using the drop down access standard menu to place the "Count" command. Is there a solution to this problem ?
View 3 Replies
View Related
May 15, 2014
I am currently in the process of creating a pop-up menu to allow my users to do some simple text formatting.I have used the following code to do so:
Code:
Dim cmbShortcutMenu As Office.CommandBar
' Create the new pop-up menu instance
Set cmbShortcutMenu = CommandBars.Add("popupFormatMenu", msoBarPopup, False, True)
' Add the bold button
[code]....
The problem is that I now want to add the FontColor picker control and I keep getting an error.I think the problem lies in the type of control I want to add. According to the Microsoft support files I downloaded the fontColor control is of type Gallery and ID = 11949, so the code should look something like this:
Code:
cmbShortcutMenu.Controls.Add Type:=msoControlButton, id:=11949
I need to replace msoControlButton with something else.
View 1 Replies
View Related
Jun 27, 2005
Hi everyone!
First, I want to say I would REALLY appreciate any help I could get with this problem. Let me lay out the details.
I DO NOT, DO NOT, DO NOT know the first thing about programming for ms access. I am an absolute novice, no exaggeration at all. I was a liberal arts major in school!!!!!
Here's the thing: being adventurous and all, about 2 years ago a co-worker and I were fiddling with databases to try and help out our employer keep track of dispatching his equipment for his business. With a little too much time on our hands, before we knew it, our database became fairly complicated, for such novices. A kind gentleman on this forum did us an enormous favor, and programmed a search form for our database. you could enter any or all of the id #'s for various equipment, and it would pop up in a list box. Double-clicking the listbox would open the particular record you were looking for.
Fast-forwarding to now, I'm trying to create another database to keep track of our inventory while while various equipment moves in and out of our yard. I have tried using the old search form as a foundation to create a similar search form for this db. I think I actually have it (kind-of) working! You type in a container number, and the record should pop up. which is a miracle all its own.
problem is, is that when you doubleclick the selection in the list box, I receive the following error:
"Run-time error '3075':
Syntax error (missing operator) in query expression '[ShipID] = '.
I click debug, and visual basic brings me to:
DoCmd.OpenForm "Inventory Table Form",,, "[ShipID] = " & Me.lstInfo
I don't know what to do! I'm sure it must be something painfully simple or obvious, but I'm really stuck & would appreciate any help.
Also, I would really appreciate any advice on this: I'd like to also be able to search by chassis # in addition to container number, but i don't know how to do it. no big deal, though. THANKS SO MUCH!!
p.s., I've attached the db. please let me know if you can open it ok
View 1 Replies
View Related
Nov 4, 2004
I'm new in access world. please help. I have many forms that control by On click command from the main form. One of the form (which is Calendar form), I like to have password protect in away that only the right ID or password would have access to edit this Calendar, If not users can only view it. Is this possible?, if it is can you please provide some code for me...Thanks in advance..
View 1 Replies
View Related
Jun 26, 2014
I have a command button using this code:
If Me.Setfilter.Caption = "Search By Hedging Program" Then
Me.Filter = "Hedging Program"
Me.FilterOn = True
cmd.Setfilter.Caption = "Don't Search By Hedge Program"
Else
Me.FilterOn = False
cmd.Setfilter.Caption = "Search By Hedging Program"
End If
Hedging program is the column from the table I am trying to filter, it is a yes/no column. I want it to return all yes values in my query if it says search by hedging program and if it says Don't search by hedging program I want it to disregard the filter. I also have it set so that when I click the button it changes the caption from one to the other. So I don't know if I really need the cmd.setfilter lines because they may do the same as my command button on click function.
View 14 Replies
View Related
Apr 14, 2012
I have a command button on a Web Mutli-Record form that is using a "= [Report_URL]" value within the Hyperlink Address property. This all seems to work other than the fact that when the link popups up it has a "#" on either side that basically makes it an invalid address. How do I get rid of the # signs to get the web address popup in the URL when a user clicks on the Command Button that is associated to the row the record is on.
View 4 Replies
View Related
