I have a "Browse" button on a form that works fine. I would like to add a Message Box that warns the user that if they click "ok" on the message box they will start browsing, and if they dont want to do that click "cancel" in the message box. ( I know its obvious, bu thats what my friend wants). Is there an easy way to do this?
View RepliesI have a command button that basically saves the record that i just finished entering. here's the code:
Private Sub cmdAddAnother_Click()
On Error GoTo Err_cmdAddAnother_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_cmdAddAnother_Click:
[Code] ....
What I'd like to do now is add a second function that will make all the controls on the form go to null after the record is saved. so the user can start from scratch and add another record.
I tried adding me.refresh right before "end sub" but that didnt work.
I tried adding "me.controlname.value = null" for every control on the form, and that didnt work either.
I also tried adding this code that i found on bytes.com:
On Error Resume Next
Dim ctl As Control
For Each ctl In Me.Controls
ctl.Value = Null
Next
That didn't work either.
Dear All:
I have created a from which contains names, address, ID's and other data.
I wish to place a command button on the form and when it is pressed, a page pops up with instructions on how to use the database.
Any ideas on how to get started?
Thanking in advance,
Dion
I have created command buttons to enter event registration information after biographical information has been completed. When I click on the button I get the following error message:
"Microsoft Office Access cannot find the field '|' referred to in your expression."
This is the On Click code that I have in there. Can anyone spot the error of my ways?
Private Sub RegisterButton_Click()
On Error GoTo Err_RegisterButton_Click
If IsNull(Me![AttendeeID]) Then
MsgBox "Enter attendee information before registering for an event."
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenForm "Registration", , , "[Registration]![RegistrationID]=Forms![Attendees]![Attendees Subform].form![RegistrationID]"
End If
Exit_RegisterButton_Click:
Exit Sub
Err_RegisterButton_Click:
MsgBox Err.Description
Resume Exit_RegisterButton_Click
End Sub
Thanks!
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 .
View 2 Replies View RelatedWhat event would I attach code to, to have a message box pop up warning the user when that he is editing existing records.
I would like the message to appear not as the form loads, or as he tabs to the first control, but right as he makes any changes to the data displayed. Preferably the box should have a "OK" to continue the edit and a "Cancel" to undo it.
How to change the default message of Exist table. the message shows like as. I wanna change this. How can i will do this?
View 1 Replies View RelatedI 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...
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 got the error message cannot execute command after we upgraded from Access 97 to Access 2000. There are multiple users connected to one database on Windows 2000. Some people are able to get access, but there is a good chunk of people that get the error message " Cannot execute Command".
What's going on and is there a solution?
I'm trying to include a field in a form by putting the form in the design view, however, when I try to press the button 'Add Existing Field' or 'Property Sheet' in the Tools group Access doesn't do anything.
I have tried to search on the web for possible solution but I haven't found one yet but I did read about disabling the shift-key feature which may have something to do with it.
This is probably very simple, but how and where do I add codes to the button where a confirmation message pops up? Like, "Are you sure you want to save?" or "Are you sure you want to exit?"
For Example: Save and Close button
Private Sub cmdClose_Click()
On Error GoTo Err_cmdClose_Click
DoCmd.Close
Exit_cmdClose_Click:
Exit Sub
Err_cmdClose_Click:
MsgBox Err.Description
Resume Exit_cmdClose_Click
End Sub
Private Sub cmdSave_Click()
On Error GoTo Err_cmdSave_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_cmdSave_Click:
Exit Sub
Err_cmdSave_Click:
MsgBox Err.Description
Resume Exit_cmdSave_Click
End Sub
Thanks in advance!
I have a command button with the VBA code below. I'd like a message box to appear with a comment and an "OK" button that continues the code below . . is this possible?
Private Sub cmdDuplicateOverpayments_Click()
On Error GoTo Err_cmdDuplicateOverpayments_Click
Dim stDocName As String
stDocName = "qryFindduplicatesforOverpaymentsDetails"
DoCmd.OpenQuery stDocName, acNormal, acEdit
[Code] .....
Hi everyone
I posted this question about an hour ago but I seem to have been logged out by the time that I actually pressed "send", so I don't know whether it was posted correctly - I can't find it!
I've created four buttons on a form to negotiate my way through the records. When I come to the end, a message box is shown stating that the next record cannot be found (it doesn't exist). Can I trap this message and use it to activate some code? I thought about a form popping up (in "corporate" colours to match the remainder of the database) or a form asking whether I want to add another record.
I looked at the code that Access generated when I made the buttons, and I saw the following:
Err_MyButton_Click:
MsgBox Err.Description
Resume Exit_MyButton_Click
I "remmed" out the middle line, but the automatic message box still appeared. I added a line of code: <MsgBox Err.Number>, but that didn't give a result, so I guess that the message box that's being shown isn't generated via this snippet of code.
I know that I could disable the relevant button when the record number reaches the end or add another button to add a new record, but I'd like to trap this automatic message box. Can I do so, and, if so, how?
Thanks for your time.
I use a close button to close a form. There is list box in this Form. If the list box is empty, then simly close the form. However, if there are projects in the list box, I want to give a warning. If the user say YES, then everything in the listbox will be deleted and the form will be closed. If user say NO, tehn the form will not be closed. They then can use anotehr button to save teh projects.
I wrote the follwing code. The delete portion itself works. But it seesm comfused with msgbox. Could you pelase help me correct this code? Thank you very much for your help.
lbDestination -- list box name
Private Sub Close_Click()
On Error GoTo Err_Close_Click
If IsNull(Me.lbDestination) Then
DoCmd.Close
Exit Sub
End If
If MsgBox("You have unsaved initiatives. Are you sure you want to close?", vbQuestion + vbYesNo + vbDefaultButton2, _
"Delete?") = vbYes Then
Dim rsDestination As DAO.Recordset
Set rsDestination = CurrentDb.OpenRecordset("tbInit", dbOpenDynaset)
rsDestination.MoveFirst
Do While Not rsDestination.EOF
rsDestination.Edit
rsDestination.Delete
rsDestination.MoveNext
Loop
Me.lbDestination.Requery
End If
Exit_Close_Click:
Exit Sub
Err_Close_Click:
Resume Exit_Close_Click
End Sub
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.
Any help would be greatly appreciated!
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.
how can i assign a formula to a command button?
also can anyone give me specific advice about calucalating the % of check boxes ticked across multiple records.
thanks 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.
Hi all
Can any one correct my attached program to make it works with one command button only please?
Using two buttons make conflict.
Any help will be highly appreciated.
Thank you
vbnt
Hi I can't seem to be able to find any option to open a table from the command button wizard how is this possible. Thanks
View 2 Replies View RelatedHi,
How can I make command button on my DAP to use update query that I wrote? :confused:
Hi everyone,
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.
All the best,
Sab.
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.
Cheers.
hey guys...
is there a VB code by which i can tell a command button to add a new record in a specific table ???