I have converted a 2003 database to the 2010 file format. In the 2010 database, I have created the USysRibbons table with 2 separate ribbons. One of the ribbons need to load depending on what the user chooses upon opening the database. I have a form that opens with the database and the user can either choose "Premium" or "Subsidy." I'm uncertain as to why the conversion will not replicate how the database works in 2003 but if I had to assume it would be because of the ribbons. I found a small piece of VBA that I think needs to be changed but I'm not sure to what or how. As of right now, I don't have a ribbon loading, just the form to load when the database is opened. Except I noticed that the "add-ins" opens the correct menu depending on which the user chose.
I actually went into Options--->Current Database--->Ribbon and Toolbar and selected a generic ribbon (File, which just has exit because it's the same whether the user selects Premium or Subsidy).
To clarify if needed, the user doesn't actually log in. The form that pops when the database opens has the drop down of either Premium or Subsidy. So really it goes like this:
Open database
Select Premium
Click Enter
Premium ribbon loads
OR
Open database
Select Subsidy
Click Enter
Subsidy ribbon loads
Technically, if I could have just the form pop I'd be cool with that because on the form there is an Exit Application button where the user could click and exit the database. When either the Premium or Subsidy ribbon is loaded, I already have an exit in the coding.
Public Sub openRegion(authority As String, region As String)
If (cboRegion.value = region) Or (region = "ALL") Then
'open region selected
If cboRegion.value = "PREMIUM" Then
loadPremium authority
OK..... After searching many sites I can't seem to find any simple way to trash the new ribbon and give my apps a toolbar or Menu I want! If it were not for the free packaging and runtime I would trash 2007 all together.... If I'm thinking correctly there is an option on the XP operating system for "Classic view" why couldn't this have been implemented into Access? How bout doing a free release of the packaging wizard for 2003???? hopefully there are some sharp folks out there that will have some ways to do this.....OK.... I'm done venting..........:rolleyes:
how i can get a current user from a custom login form CurrentUser() this function always return a system user name admin as default. In my login schema i have a Hidden splash form that have a unbound field that holds user name from custom login form after login a dashboard execute and also display user name on dashboard according to user login ,this working fine for mine. Actually i want to make a currentuser stamp in every entry when a record is entered in database.
Customizing ribbons in 2007 and having a little trouble with the buttons... It seems I need the listing of the "Button idMso" and the "ImageMso"..... I think I have found the "button id" (I'll know after I try a few) but can't seem to locate a listing of the images. Anyone know? Thanks
I would like to create a command button that saves a report as a PDF. Currently I am using the built in "PDF or XPS" button but it always opens Adobe reader at the end and also a dialog with the option to save export steps. I want nothing other than a simple save dialog like I can do with a VBA command, but is it even possible to add a custom command to the quick access toolbar?
I know you can add custom commands to the ribbon but the user of this database keeps the ribbon minimized due to it eating up too much of his screen space. The QAT is always visible.
Creating and installing a custom icon for my database but I'm still seeing the access icon. I've done these things:
-I made a 32x32 bitmap in photoshop. -I saved it in the same folder as my database. -I opened access 2007 with my database -I went to access options/current database/application options/application icon and browsed for my bitmap. -Clicked on use as form and report icon. -Closed everything and reopened my database.
I couldn't see my icon anywhere in explorer, access or my desktop shortcut for my database.I repeated all this except I put the bitmap into an online icon creator and downloaded an .icon for win vista and win 7 which I selected as above.
I'm looking to simplify some aspects of our company's order database, including standard notes that appear on the sales orders that we send to customers. We have different lines of business and the notes vary. We currently have several reports, depending on the type of order, with the notes hard coded in labels. It's not an elegant, nor scalable, solution.
Our ideal solution: One order report only, with an option for the user to select one or more notes from a list when they enter the order. I'm thinking a popup form with a checkbox next to each note, where each checked note will print on the order report.
I found the following getimage script but am not sure how to apply it to my button, I have seem various examples on sites but just can't get it to work. Can I somehow set the icon path like C:Image1.png
Code: Public Sub getImages(control As IRibbonControl, _ ByRef image) Set Image = LoadPicture(getAppPath & control.Tag)
' Maybe something like ' Set Image = LoadPicture(c:image1.png) End Sub
I've created a custom ribbon for my end users (Access 2010) and everything looks and works great except for one issue that is becoming a deal breaker for me and my end users:
I've got a number of tabs on my custom ribbon and on each tab there are a number of buttons that open various forms and reports. Anytime one of those forms or reports is opened and then closed, the ribbon jumps back to the first tab in my custom ribbon. So if you were on tab 3, opened a form and then closed it, you would be jumped back to tab 1.
Any workaround for what seems to be "by design" behavior for custom ribbons? The built-in ribbon does not do this.....
My database has been set with the 'All records' locking option set to prevent two or more people editing files at once. This is working fine but I wondered if there is a way to make a more personal message appear instead of the default Access one, just to maintain a uniform look.
In Access 2010 I made a custom ribbon.The File Tab still gives users access to features that should not be available to them such as: Compact & Repair, Encrypt etc.I spent a few hours looking for a solution but found none that works.It does not seem to be possible to hide the File Tab, but is there a way to hide the options it reveals?
I was wondering if it is possible to create custom security permissions in access. For example I have created an employee database, with security. I would like to have it when a manager logs on, it will only display his employee's information and no other departments. Is this possible?? In one of the tables is a field for the department the employee works on, can it based off of a table field?
I was wondering if it is possible to create custom security permissions in access. For example I have created an employee database, with security. I would like to have it when a manager logs on, it will only display his employee's information and no other departments. Is this possible?? In one of the tables is a field for the department the employee works on, can it based off of a table field?
I use custom categories in the navigation pane to make finding the right objects easier (duh) but now I have quite a lot of custom categories and they are stuck in the order they were created in.
I would like to rearrange them into some logical order (maybe alphabetical, maybe custom) so i can find the categories quicker.
I have created an application. It has a split front end and back end. I plan to distribute the runtime version. I have used code throughout that "hides" the microsoft access shell for popup (modal) windows. In every form & report I have a function to show or hide the access window. Everything works great until I get to my reports. I open reports in print preview. I created a custom table (USysRibbons) and added a Reports print preview ribbon & xml. I assigned that ribbon to my report(s), and I assigned it in options as the default ribbon. If I test the ribbon (by working in the database using "shift" open) I see my ribbon. But, in when I open app without shift or or if I emulate runtime, I can't get the ribbon.
I have multiple popups forms, several non popup forms and a couple of reports.I just want to keep all the access background stuff hidden - except for needing the ability to print.
I use the following code for an error message box to pop up. I need to know how bring up a custom form I have made instead of the standard message box but don't know how to code it into the function.
Function StartUp() On Error GoTo Err_ProcedureName
Set db = CurrentDb Set rs = db.OpenRecordset("tblEmployeeBenefits", dbOpenDynaset)
If rs.EOF = False Then rs.MoveLast If rs.Fields("FlagDate") = True Then MsgBox "You need Administrative access for this function to work.", vbOKOnly, "Serious Warning" DoCmd.Quit End If
Else
If rs.BOF = True Then y = 0
Do Until x = 1 x = rs.RecordCount
rs.AddNew rs.Fields("MeDate") = Date + y rs.Update y = y + 1 Loop End If End If UpdateTable
I've created a custom search form where using unbound text boxes and combo boxes I enter the criteria for a query. I would like to enhance my form to allow "and" and "or" searches on a field. For example, a product on my database has multiple features. I would like to search for products who have "feature1 and feature 2" or "feature1 or feature2". {Note: The table, Product is connected to table, Features using table, LineItem_ProdFeature where there are multiple records in Features for one record in Product}
Right now, the search form has a combo box that lists all product features. The user selects a feature and runs the query. All products with that feature are listed in the query.
It would be so great if the user could choose multiple features from the combo box. Then the query would return all products that have all of the selected features ("and" search). It would be just awesome if the user could select multiple features, and specify if they want an "and" or "or" search of those features.
I have a custom record counter on a form using the below code:
Private Sub Form_Current() If Me.NewRecord Then Me.lblRecordCounter.Caption = _ "Record " & Me.CurrentRecord & " of " & Me.Recordset.RecordCount + 1 Else Me.lblRecordCounter.Caption = _ "Record " & Me.CurrentRecord & " of " & Me.Recordset.RecordCount End If End Sub
I think at some stage the form was saved with a filter on and this may be causing the issue. The problem I have is:
There are 1749 records. Everytime I open the form the custom record counter displays "Record 1 of 501". The built in record counter shows 1 of 1749. The moment I hit the next record arrow the custom record counter displays "2 of 1749" and if I go back again it displays "1 of 1749.".
I know it's a filter causing the problem because I have a macro that does a clear search. As soon as I hit the clear search the custom counter goes back to "1 of 501" again (even though the built in one stays at 1 of 1749).
I have made a database for work and is fully functional, but theres one thing I want to add but cant get my head around how to do it.
I have created a Form called 'Filtered Search', on the form it has multiple combo boxes for 'Auditors' 'Area' 'Status' and 2 text boxes for date range.
I want to be able to set what filters I want, and for the query to ignore any fields with no information selected/inputted (i.e. I want to see all records raised by "Mr Smith" (Auditor) that are still 'Active' (Status) in all areas at any time).
Names of items;
Table = 'Incidents' Form = 'Filtered Search' Report = 'Filtered Report' Auditor = 'Combo7' Status = 'Combo156' Area = 'Combo5' Date Range From = 'Text161' Date Range To = 'Text163'
I built a custom search form that uses unbound text boxes to set the criteria for a query. For example, I have an unbound text box, LastName on my search form. Then in the query, I set the criteria to Like "*"&[Forms]![SearchForm]![LastName]&"*". This returns all records if the text box is left blank or returns those records that match the text box if it isn't.
I would like to do the same thing but instead of searching a text field, I want to search a number field. And I want to search for a range of values aka >10 instead of just a single value. I still need the query to return all records if the text box is left blank.
I have a main form and a sub form. Tbhidden and tbpropersave are the text boxes that govern the update procedure. The main form has two text box that i use to prevent the user from modifying the information on the main form without clicking my custom save button. the problem is that the subform should be completed after the information on the main form has been filled in. The Update code i have refuses to allow me to complete the subform without first clicking the save button on the main form. Here is the code. I wana be able to fill in info in the main form, then the sub form then click save. The sub form is a table which relates to the main form table Many to One.
Private Sub Form_BeforeUpdate(Cancel As Integer) On Error GoTo Err_Form_BeforeUpdate
Me.tbhidden.SetFocus
If Me.tbPropersave.Value = "No" Then Beep MsgBox "Please Save This Record!" & vbCrLf & vbLf & "You can not advance to another record until you either 'Save' the changes made to this record or 'Undo' your changes.", vbExclamation, "Save Required" DoCmd.CancelEvent Exit Sub End If
Exit_Form_BeforeUpdate: Exit Sub
Err_Form_BeforeUpdate: If Err = 3020 Then 'Update or CancelUpdate without AddNew or Edit Exit Sub Else MsgBox Err.Number, Err.Description Resume Exit_Form_BeforeUpdate End If
I have generated a standard form for displaying/editing of data and I have also created a form for generating Sql query statements (The form builds a string but does not execute the query). Can I execute a query and use it with that form.
So when I generate the the SQL statement and execute the query it loads the form (With Data) instead of a query datasheet. Thank you.
For keeping record of provient fund, I have made a access/(or excel) database with many fields like ID, Name,contribution for months eg March, April,..to..,Feb,etc.It contains 50 records.
Now I have to print the provident fund statements of my 50 friends. This statement consists of some text language and some data(It is a word form letter document).The statement also shows some data which has to be calculated from the data of database eg grand total, cumulative total, interests etc.
Now I want to print the statement for all or selected no of people. What I want is to make the statement proforma in another excel sheet and then merge and print the statements for selected no of persons eg for ID 1 to 20, 50 to 70 etc. I do not want to make statement in MS word and do not want to merge it there, but I want to do it in excel just as we do in MS word mail merge.
Pl help me how can I do it in access/Excel? Can i calculate in word or should I calculate before hand in access before merging data?
