I'm not sure if anyone has come across this but here goes:
I'm creating a custom shortcut menu in which I'd like to maintain some of the filter functionality that comes with the standard Access shortcut menu. The customize menu window allows me options for "Filter By Selection", "Filter Excluding Selection", and "Remove Filter/Sort", but I do not see the menuitem "Filter For:" as an option (of course the one that I would most like to have).
Anyone that can point me in the right direction or know a work-around?
I have a custom menu on my db, but when another user logs on they have the same toolbar buttons and the same menu but more items that I have originally added. Is there a way to fix this?
I asked a similar question some time ago, but the answer I got didn't help out a whole lot. Maybe someone else could help me out here. I have a split db which resides on our server. This will soon be joined with MySQL so that multiple users can log on simultaneously. I have created a custom menu bar with the only buttons that I want my users to have. So far the only person that has the buttons I chose on their screen is me, everyone else has more than what I specify. Is there a way that all of my users will have the buttons that I specify? Can this be done with code? Any help would be appreciated.
Hi all, I was wondering if you could use custom menu bar commands to open reports and varying the recordsource of the reports according to which command you choose. For instance, if the user wants to view a report for January, he clicks on the January menu bar button. And I do not wish to use macros as there might be many macros to use.
Was looking at it and I am able to use my own vb functions but was wondering if I could use the tag field under the customise menu bar command to specify which records to filter to?
Maybe I should just use a form with all the code behind. lol... :p
I can't believe I haven't come across this problem before, but I want to add a button to a custom menu I've created. When clicked, this button will run some code I've written.
It may be that I'm losing it (no comments, please :D ) but I can't work out how to add a button that will run code of my choosing, as opposed to just opening a report, opening a form, etc.
I'm having a rather strange problem that no one can fix, apparently. My teacher is even baffled :S.
Basically, I created a custom menu bar, took off some of the defaults, but now I am having a problem. I deleted the original custom menu bar and now I am posed with the following error when my database is loaded (I am using an autoexec script that opens the switchboard).
Can anyone shed any light on this? Thanks a lot, again, guys :).
I have created a menu bar in access 2003 and I have spent the last couple of hours designing icons in photoshop, however, when i come to import these icons to use on the menu bar I can't see anywhere to do so, only a button editor that isn't much use to me.
Is it not possible to import icons in this way (like you can for command buttons on forms)?
I'd like to create a custom toolbar that has links to subforms and dims the links (subforms) that have no data in them.
Catalog Postcard Letter Bulletin
This would mean that there is data in the "Postcard", but not on the other subforms. Even though the others are dimmed, I want them to be active so that they can have data entered if needed.
I'm working to put together a shortcut menu for a form that will be viewed as a datasheet. I'm trying to put together the vba to create the menu. I'd like a lot of the standard options i.e. sort a-z, filter toggle etc. I'd also like to add the menu option that is displayed in the default menu called "Text Filters". I've been unable to find the id code for that option, and since it, when chosen opens another menu, I'm not real sure how to code it. Here is what I have so far:
Sub CreateWIPShortcutMenu() Dim cmbRightClick As Office.CommandBar Dim cmbControl As Office.CommandBarControl ' Create the shortcut menu. Set cmbRightClick = CommandBars.Add("cmdWIP", msoBarPopup, False, True)
How to create custom menus in Forms in MS ACcess 2010. For example, I have a form fmrMainMenu. At the top of the form I want to create a menu labelled "Reports" that when clicked or hovered it displays a list of sub-menu options of all the Reports available in the database. Once the user makes a selection the report is generated. The functionality that I am looking for is similar to the old menu options like File, Edit, etc., in MS Office.
I have a program.mdb with a customized menu bar from Database Creations.When I open program.mdb in 2007 & 2010 the ribbon is disabled and the custom bar is displayed as it should be and all is OK.When I open the same program.mdb in 2013 the ribbon is displayed and the custom bar is missing
I have a clean compile and get no error messages.How do I disable the ribbon and get the custom EZ Menu Bar to display in 2013?.Following are the Options, Current Database, Ribbon and Tool Bar Option settings that is used in all Access 2007, 2010 & 2013 versions
Ribbon Name: Menu Bar:EZ Menu Bar Shortcut Menu Bar:(default) CheckedAllow Full Menus CheckedAllow Default Shortcut Menus UncheckedAllow Built-in Toolbars
I know that ever since 2007 custom menus are not well supported as in 2003. From what I've read, outside to using 2003 to make changes, a person can create/update the menus using Commandbars in VBA.
Some coding to use Commandbars to create/update menus/toolbars for Access 2007/2010? It seems possible to do that, although I would expect it would be a lot of work. I've seen a few one-off examples to do specific updates, but so far nothing that would approach what was available in 2003.
I finally got tired of having 100 macros managing my different custom shortcut menus, and decided to figure out how to generate the shortcut menus programatically (because lets be honest, Macros are the devil.)
I found a good tutorial here : [URL] .....
and was able to create some basic shortcut menus like the following:
Code: Sub CreateCopyShortcutMenu() Dim cmbshortcutmenu As Office.CommandBar Set cmbshortcutmenu = CommandBars.Add("CopyShortcutMenu", _ msoBarPopup, False, False) 'ID 19 adds copy command cmbshortcutmenu.Controls.Add Type:=msoControlButton, Id:=19 End Sub
Nice and simple, now I have a copy command. But the problem is that I also need some custom commands. Most (possibly all?) of these would be function calls.
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:
I am using Microsoft Access 2010. It provides great filtering and sorting options in the ribbon for any object. But what if I hide the ribbon and want to create custom buttons on the form to do the filtering and sorting job? There are some filter options available in macros but are not quite like the ribbon's own Filter button. When the Filter button is clicked from the Robbin, a filter menu pops-up under the active field, which doesn't happen when I try to do it using Macro functions like "Apply Filter" or "Set Filter" etc. I want to have that big "FILTER" button from the Ribbon on my form.
Custom filter I'm trying to set up. I have a data full of records with multiple columns and a form linked up to it. The form has a search box that works as well as navigation buttons.
Currently I am trying to get a filter to work. The filter will use up to five combo foxes to narrow down the fields, then return the filtered records after clicking a button. The button itself is where my code is. My issue now though is I cannot get the filter to work if I try to use more than one combo box.
The code I have at the moment is as follows: '------------------------------------------------------------ ' cmdApplyFilter_Click ' '------------------------------------------------------------ Private Sub cmdApplyFilter_Click()
End SubThe current error I am getting is Error 13: Type mismatch. I also know that the And might be the cause but I cannot change it to AND: it keeps changing back.
Hi everyone, I was trying out the options on the startup item of the tools item on the menu bar and my access window has gone except the following menu items: File,Window and Help. Can someone kindly show me how to bring back these seemingly lost items? Thank you for your willingness to help me out!
Ok, This is something I have long wanted to do, but cannot figure out.
I am working on a database for a company that orders a large number of Items. I have these all in one table (itemCode, itemDescription, price, categoryCode, etc). I have another table with categorys (categoryCode, categoryDescription) . Each Item is asigned a categoryCode and the appropiate relationship exsists. Right now I have a comboBox in a form that when selected opens a drops down menu with all the Items. Then another one auto loads up (continuous form) and I get the same drop down list of all the Items.
What I would like to have is a combo box then when it is selected shows the categorys, then based on that selection, I see all the Items that are in that category.
I guess another way of saying this simply is, I would like to create a drop down menu inside of a dropdown menu.
Is this possible? Does anyone have another alternative suggestion that might work well? I'm relectant to use a list box, becoase ideally it would be a drop down menu inside of a drop down menu as seen on many websites.
I'm trying to hash two scripts I've found into 1 functioning filter, however I'm still relatively new to vba and can't figure out how to get this working.
I'm trying to use Allen Browne's Search Criteria:
with another snippete of code I found here:
Code: 'Purpose: This module illustrates how to create a search form, _ where the user can enter as many or few criteria as they wish, _ and results are shown one per line.
[Code]....
It's the date part I'm having trouble with, the rest of the search criteria work fine without the date, but I can't get it working when I try to modify and merge the date sections of each code.
Also I'm using a listbox for the "Yesterday";"Last 4 days";"Last 9 days" and not a combo box.
I have a continuous form based on table "INCOMES" that shows all the payments received, which mediums can be (field "PMNT_MEDIUM"):
- check - transfer - taxes - cash
Table "INCOMES" is filled using another form, but in this particular form I just want to show "check", "transfer" and "cash" (not "taxes") so that I can track all the cash incomes.
Note: taxes are loaded because they appear in my invoices and I need them there to reach the invoice total amount.So my form has a search bar which allows me to search by PMNT_MEDIUM listing all "checks", all "cash" or all "transfer". I can also search by payment number (meaning: check number). To that end I have a "search" button that applies the filter. And I have another button that "cleans" the filtering by "putting a "" in the search-bar and then calling the "on click" of the search button".
What I need is, no matter if I click over the "search" or "clean" button, it NEVER shows me the "taxes".Search button, on click code:
If IsNumeric(Me.busq_chq_med) Then Me.Filter = "[PMNT_MEDIUM_NUMB] =" & Me.SEARCH_BAR Else Me.Filter = "[PMNT_MEDIUM] like'" & Me.SEARCH_BAR & "*'" Me.Filter = "[PMNT_MEDIUM] like'" & Me.SEARCH_BAR & "*' or [INVOICE] like'" & Me.SEARCH_BAR & "*'" End If Me.FilterOn = True
I have a form that is showing data from 1 table. That table has 12 different fields on it and I want to be able to filter based on selections I make in a combo box in the header of the form. The filter string must be dynamic enough to allow filtering based on 1 criteria selected, or multiple criteria selected. For example:
If I have values in filter fields 3, 5, and 9 I'd want the filter string to be created as follows:
"...WHERE field3 = field3filter.value AND field5 = field5filter.value AND field9 = field9filter.value"
If I have values in only field 7, I'd want th efilter string to be created as follows:
"...WHERE field7 = field7filter.value"
And so on and so on.
I have created some filters before but all of the different VBA syntaxes I'm using seem to come up short.
How can I create a "Filter Button" on a form and filter my records? I create a textbox on a form and a filter button on the right. Then I click the filter futton, the filter function will search/match the content in the box through the datasheet. And then the results of the filtering will be pop up on the split form datasheet.
I am using MS Acess2000 and need to make a report that will be passed around with production work. My primary key is the invoice number of the work order. Currently to open an invoice i have a macro, attached to a query with the following qualifiers; Like [Enter invoice]
This pulls up the current record fine. for the form and flags the folloing in the property filter sectin of the form
(((([CustomerTableMasterRef].[Invoice]) Like [Enter invoice])))
PART 2
Now I am trying to use microsofts how to filter a report using a forms filter... This picks up on the Invoice query as shown above but does not just insert the query results...
Is there better code or another way to approach this... Currently i am using:
Name:cmdOpenReport Caption: Open Report OnClick: [Event Procedure]
Private Sub CmdOpenReport_Click() If Me.Filter = "" Then MsgBox "Open an Invoice First" Else DoCmd.OpenReport "rptCustomers", acViewPreview, , Me.Filter End If End Sub
Using this code not only does my report not detect the correct fields to import data (no data is filled in) but it requerys the invoice or atleast should, which I could do with out all of that code...
When I click the filter button I get a blank message box titled 'Microsoft Access" and an OK button, when closed the filter works perfectly.I have checked this procedure in other forms and it works without showing the blank message box.The only difference with this form is that its control source is a union query.
