I want to create a custom command button that when clicked hides elements (such as a box, a label, etc) on a specific form (the switchboard) and shows another element (a sub form)
I guessing I would create a module check if the active form is the form called switchboard then using the .Visible properties of each element I want to hide set it to false, and the opposite for the sub form.
Questions I have
1- how do I check if the active form is the form called switchboard - and if not how can I switch focus to the form called switchboard
2- working with modules can i simply call each element like the following Me.CategorySubcategory.Visible = False?
3- now how do i have the code in the module execute when the person clicks the custom command button (i guess it has to do with the on action event in the property for the custom command button but not sure what)
I am rewriting an old Access 2003 database in Access 2010. When creating new command buttons, the current theme gives them a default appearance. I need to apply this appearance to old command buttons. I know there is a way to select the default button and apply its properties to others quickly. I have done it before but didn't write the process down .
I have created a web-database (? - There are globes over all the forms and tables icons) based on the Issues & Tasks template. This means that most of the data is entered and seen on the "Main" form, which has two tabs - Open Issues and Closed Issues. I have created a form that allows people at my work to input the necessary data and save it, so that it will show up on one of the two tabs. However, once a record has been created, I want to be initially locked if the ID/PK is clicked, so that data can't be changed or entered inadvertently.
SO, I changed the code so that when the ID/PK for a record is clicked, it brings up a different form, but one that looks exactly like the one that is brought up when entering a new form, but I locked all of the fields so that the information cannot be changed. It seems from what I have read that I can create a button on this form so that when clicked, it unlocks the fields on the form so that they can be changed, and then when clicked again it will lock the fields again. Is this true? If so, how can I do it? Or is there something similar I can do? I have seen codes that I could copy and paste, but I cannot figure out the place to copy and paste codes in Access 2010.
I have changed the Form properties so that Data Entry and all the "Allows" are set to No...
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'm just creating my first db. When I'm on a form looking at a previous record (in this case a transaction), I need to be able to make a minor change to that record (such as the date for a repeat transaction), and then save the record as a whole new record. The button commands I found in the wizards only let me save over the current recond after an edit. Anyone know the easiest way to creaet a command button that does this? Thanks for any insights.
Hi, I have got a small problem and maybe someone could advise me. I am creating a customised command button from a label button. The new button works fine but I can't apply the 'requery' function to it, if i do an error occures and i am being prompt to save the data first???? :confused: :
Private Sub Labelsearch_Click() Me!itemquery.Requery End Sub
Private Sub Labelsearch_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Labelsearch.SpecialEffect = 2 Me.Labelsearch.BackColor = 255 Me.Labelsearch.ForeColor = 10092543 Me.Labelsearch.FontItalic = True Me.Labelsearch.FontBold = True End Sub
Private Sub Labelsearch_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Labelsearch.ForeColor = 255 Me.Labelsearch.FontItalic = False Me.Labelsearch.FontBold = True End Sub
Private Sub Labelsearch_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 'Come back to initial state when button release' Me.Labelsearch.SpecialEffect = 1 Me.Labelsearch.BackColor = 16373685 Me.Labelsearch.ForeColor = 8388608 Me.Labelsearch.FontItalic = False Me.Labelsearch.FontBold = True End
If I create a command button with the wizard and assign the code : me!itemquery.Requeryto the on_click event my form is working fine. Why is his code is not working if I assign it to a label? :o
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 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.
I made some custom icons for use with command buttons, and I made them ICO files with transparency. However, after I assigned them to my buttons, there's a light grey background colour - which doesn't look all that great.
Is there a way to import images with their transparency intact? There must be, since Access' built-in buttons are transparent. Do I need to use a different image format? Or are there other tweaks to make this work?
I am building a db for reservations for my limo company. I want to have a cmd button that verifies the user to make sure she wants to delete a run. This is what I have so far:
Private Sub cmdDeleteRun_Click() Dim Response Response = msgbox("Are you sure you want to delete this run?", vbYesNoCancel + vbCritical, "Really delete run?") If Response = vbYes Then
End Sub
I don't know what I am missing for the cmd to actually delete it.
I got an image bitmap that I want to use to customize my button. I got following error pop up."Image Generator" - "search key not found in any record".I'm using access 2013
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've been working on a database for work for the last few weeks and this forum has been a Godsend many times over, but now I have a problem that I can't find any reference to.
Using Access 2003, I have a form that uses 3 cascading combo boxes in the header to find a unique record, and a command button that brings up the rest of the record into unbound fields in the body of the form.
It works fine for finding records, but whenever I enter/change data on it, the record doesn't save. The navigation buttons at the bottom don't work - the Next/Previous record buttons are disabled, and the First/Last Record buttons do nothing.
Navigation buttons are enabled/activated in the properties.
I tried getting around this by creating a Save Record command button - first using the wizard, then using VBA code DoCmd.RunCommand acSaveRecord as advised by [missinglinq;696351], but this still doesn't save the changes.
I have been working on this for awhile, and can't figure it out for the life of me!
I have a form set up with a drop down box that lets me pick from values from a table based off of the Primary Key of that table (Row Source = SELECT Order.OrderID, Order.OrderName from Order). I have a button on the form that I want to set a value (Closed) from the table entry based off of the order selected.
Pseudo code would go something like this.
Closed.Value = True Where Table.Order.OrderID = SelectedOrderID
Table.Order is a Table Named Order (obviously) Closed is a yes/no field in my Order table OrderID is the primarykey of the table Order SelectedOrderID is the drop down box.
I, unfortunately, have been singled out as the Access guru in my work area. We have 223 people and the Information Manager has tasked me to modify a database he "found" to be able to track a number of things, but most important to him: performance reports.
I have posted the sample of what I currently have. What is being asked of me is a way in which to have a button or by double-clicking a block where a date would go for all other dates on the form to become non-visible while the current date stored in the computer the database is being worked from be entered in the block where the button or double-click happened. All this links to a report for the IM to be able to track what performace reports are out, and when they are due back to his section. He also wants me to be able to show which are overdue and where they are at. I am not sure if it is at all possible, but with me having spend most of last week purusing the articles on Access here, I know now that nothing is implausible if you happen to go about it the right way.
Since I have read the rules on posting, here is what I have done. I searched the forum for command button and got a lot of really cool ideas to use elsewhere in the database. I looked up the help in the program itself for command button, and got some good information on how a command button works, but I cannot make it put a date into a block. I can enter the date in any block that is a date format, but then I have dates in every block. He only wants to see the most current date in any of the blocks.
Any assistance at this point would be appreciated. If I have missed something in another thread, I apologise in advance.
A couple of weeks ago I asked the question of how to send a single record from one table to another (Archive table) using a command button. I got a response. I have had time to work with this a little. My problem is I keep getting a error message "Run-time error '3075'; Syntax error (missing operator) in Query expression "[New ID]='. I wanted to mention that the archive table has an "archive ID" field as well as "New ID" that links the tables. I have the following code. Please help with this if possible.
" Private Sub Command667_Click() ' Save the main record if it has not been saved. If Me.Dirty Then DoCmd.RunCommand acCmdSave Me.Recalc End If
If MsgBox("Do you want to archive this record?", vbYesNo) = vbYes Then Dim SQL As String
' Move main record to Grants Activity Archive. SQL = "Insert into [Grants Activity Archive]" & _ " select * from [Grants] where [New ID]=" '" & Me.ID & "'" CurrentDb.Execute SQL Me.Recalc End If
End Sub "
The error seems to refer to the & Me.ID section. I have tried putting Me.New ID and also Me.Archive ID. The Grants Activity Archives is the subform where I want the record to go. This subform is set up like a form with many fields so it is a lot of work to type the main record from the Grants table to the Grants Activity Archive table every time you want to archive a record. I hope that makes sense.
This is perhaps a simple question for which I have not been able to find an answer to. I've been trying to create a form which contain command buttons, but the problem is that the look of these buttons are not similar to those found in Windows XP.
I know it’s purely cosmetic :cool: - but how do I make my buttons in Access 2003 to look like those on my Windows XP?
I've seen some samples here on these forums which have the 'XP' look. Any hints on how to do this would be greatly appreciated.
Hi I have a option group with 6 command buttons. The trouble is when you select a button, the button stays selected, so if you want to select it again you have to select another butoon then go back to it (hope this makes sence!). Is ther a way to re-set the button so it returns to un-selected mode!!!! Thanks in advance!
Question One I want to create a command button in the form view that once pressed opens a folder that contains a photograph. I assume that I need to use a hyperink but how is it done?
Question Two When in the form view and I press a 'Find ' button that I created I want to have a combo box/list box on the find. The alternative to this is that the reader has to remember all of the subjects. With a combo box/list box, or similar, the user can scroll down the list and pick and choose the subject to search for.
I would greatly appreciate any assistance on either question.
I have a DATA ENTRY SCREEN FORM and i have the add,next,previous records etc... The thing is when a user came to the last record and press NEXT command button, he can insert a new record. I want the ADD button for insert a new record not the NEXT button. Can i fix this problem?????
I have much help from this forum during my latest project, and all help has made me progress at a nice pace....So thanks guys.
The latest problems I have is to do with command buttons. Really simple i`m sure, but could not find the answer in the search.
I have added a command button to search a refernec number field. By Default, the search is set to "MATCH Whole Field" Can I change this to default to "Match Any Part of Field" ??? I have looked in the code section, and cant see where this could be done... But i`m sure its just me not understanding what I`m looking at.
