I'm looking for a button that cancels an entry on a form. I want everything within that form to be cancelled including the Primary Key field. I currently have a button the uses the me.Undo code and then automatically closes, however this only clears the data that has been entered by the user. So when the user re-opens the form the primary key field is showing a 2 instead of a 1.
View Replieswhat would i write in the onclick private sub of my 'btnCancel'.i need it to do a number of things depending on whether there is data entered in the form fields or whether its completely empty, is there is data being entered in some fields and the cancel button is clicked it should ask whether the user wants to lose all current data as a msgbox, or if there is completely no data in any of the fields and the cancel button is clicked it shoud take me make to the main form where the rest of my buttons work, which is "inmode normal"
View 3 Replies View RelatedI have a form with a control for the user to enter some data and then two command buttons 'OK' and 'Cancel'
For the OnExit event in the control I have a procedure that check the user input and if incorrect, opens a message box with an error message asking the user to correct the data. It then cancels the event so the focus remains in the current control.
However if the user presses the 'Cancel' command button on the form to cancel & close the form, the OnExit event for the current control still fires and asks the user to correct the data.
In my code in the control, how can I recognise that the Cancel command button has been pressed, so I can cancel the OnExit event and close the form?
I have an Undo button : [btnUndo] and would like it hidden until someone starts to enter data, where it will become visible...
what code would I use? and where would
Code:
me.btnUndo.visible = true
be triggered?
Here's the setup:
- I have a parent form bound to a parent table with a subform bound to a subtable.
- The parent does not allow data entry and has its sole field filled by a listbox.
- The subForm is a data entry form which contains two buttons in addition to it's fields: btnCancel and btnOK
-btnOK checks to ensure that all required fields are filled out and then saves and closes the parent form. - ALL OK
- btnCancel closes undoes any changes andcloses the form - ALL OK
The issue I have is with the user utilizing the Parent form x button to close the form. For uniformity I would like to not remove this button but would like it to prompt the user whether to discard the changes if the form is dirty.
I attempted the following on both the parent and sub forms to no avail. I can't even get the event to trigger:
Code:
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim rspSaveorDiscard As VbMsgBoxResult
rspSaveorDiscard = vbYes
If Me.Dirty Then
intSaveorDiscard = MsgBox("Are you sure you want to close without saving?", vbYesNo, "Discard Changes")
[Code] .....
I was under the impression that when closing a form using the x button the before_update event was triggered first, then the close event, then the unload event. How should I handle this?
I have a cancel button on an add new record form and its not working for some reason. When I press cancel it prompts if I really want to cancel and when I press yes it cancels the record creation BUT it adds a number to the recordID autonumber as if one has been created. Is there anyway to stop this? Here is my code
Option Compare Database
Private Sub Cancel_Click()
On Error GoTo Err_Cancel_Click
If Me.Dirty = True Then
[Code] .....
I have a form and a subform in it. I added New cancel button in the form so that the the user can cancel the record creation and no record will be inserted in the parent table.
But when details are entered in the subform (a datasheet) row records will be created in the subform table. what is the correct method or how to cancel these records if the user choose to click cancel button on the parent form.
How can I determine if the InputBox Cancel button was clicked?
View 4 Replies View RelatedI have a form (Pipeline) with an on load event that automatically directs the user to a new empty record.
Code:
Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
End Sub
Now my problem is that I am trying to design a 'search form' that will allow the user to look up a specific record in the main form by pressing a command button. Creating the search form is easy enough. I cannot figure out how to override the on load event in the main form when pressing the command button.
As it is right now, the button opens the form and then go directly to a new record.
I have a database with a Main Menu Form, containing a Button that loads my main data entry form. When the Button is Clicked portions of the data entry form that is loading shows through the Main Form Background (e.g. portions of the navigation bars, and portions of the boarder on the form that is loading.)
View 5 Replies View RelatedI have the below code that when a user will make a change in a combo box, it will pop up a message asking if they want to do so (to make them aware of it). How could I change it so there is a extra button cancel and when they hit cancel, the combo box will keep the value, if OK is hit, then make the change.
Code:
If Me.Business = "TYPE 1" And Me.Case = "Sent Email" Then
MsgBox ("You really want to change this!!!")
End If
I am trying to use a Combobox BeforeUpdate Event to achieve a required result.
I have two combo boxes inside a frame. The first is a year number 2011, 2012, 2013, 2014
The Second is the Week No ranging from 1-52, but 1-53 in some cases and this updates accordingly with the year number selected.
When the user has selected Week 53 and then changes the year to a year where only 52 weeks exist I want to Cancel their event.
I have already made a function to determine if 53 weeks exits however when I come to do the Cancel Event, the combobox for the year doesn't change back. It stays on the users new selection.
Below is the code that I am trying to use:
Private Sub cmbWeekNoFromYear_BeforeUpdate(Cancel As Integer)
If UpdateWeekNoSelections Then
Cancel = True
Me.cmbWeekNoFromYear.Undo
End If
End Sub
'cmbWeekNoFromYear is the name of the combobox which holds the year number
'UpdateWeekNoSelections Simply returns True if I want the users change cancelled for cmbWeekNoFromYear
How i can cancel the a carriage return and replace with a tab or stop it moving down my subform and make it move the the next field instead of going to a new line.
I am using the Keydown but don't know how to cancel it, it just bring an message but it stops it moving to a new record,
Code:
Private Sub Barcode_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
MsgBox "rtn pressed"
End If
End Sub
End If
Code:
Function dialogFolderBrowse() As String
Dim fp As FileDialog
Dim vrtSelectedItem As Variant
Dim VarX As String
'this next line is an optional warning to the user so they know what is about to happen
'MsgBox "LOCATE THE DESIRED FOLDER!!", vbOKOnly
[code].....
THE UPPER code is to locate the user desired folder path and name in order to do further process. However, my problem is that no matter I press <OK> or <Cancel> option in the normal MS Folder dialog box, the process still going on. Is that I miss some on error or on exit code??My idea is that when user press <OK>, the process goes on and when press <Cancel>, no process will be done!!
I have a form where customer data is entered. one field serves as a criteria for a query. If, for example, A is selected in the form the query uses the criteria "A" in the X field f query. However, if B is selected in the form, the query uses the criteria "B" in Y field of query.
I can easily do this by setting up two queries and having criteria A run in X field of query and similarly for B. However, it seems as if there should be a way for me to have one query and simply use the criteria in a different field.So, is there VBA that will update a given query's SQL to use one criteria in one case and another critiera in another case?
I've got a data entry form bound to one table. The form has four buttons:
- Clear Fields
- Cancel
- Save and exit
- Save and add another (which should save the user input to the subform/table, clear the input fields, and allow the user to add another record)
I can't quite seem to get the "Save and add another" button to work. When I put some information in the input fields and click the button, it saves it to the subform/table perfectly, but when I try to do it again, it just edits the last record (the one just created).
How can I get that button to place the information from the input fields in a new record every time?
The _Click event for the button looks like this:
Code:
If Len(Me.field1 & Me.field2 & Me.field3) > 0 Then
Me.Refresh
btnClear_Click
DoCmd.Save
End If
I Work for an NHS organization. A department here orders prescriptions and sends them out to Gp Surgeries. I have been tasked in designing a database to make this easier for them.
Prescriptions arrive on a Pallet. Each pallet has 100 Boxes of prescriptions on it. Each box Contains 2000 Individual prescriptions. I have a table which contains the following:
Box Number
Serial Start Number
Serial End Number
When the user enters the first box number and the serial start number, i need it to calculate the serial end number and insert another 99 rows into the table and also calculate the serial start and end numbers for these other 99 records.
I have a form for entry and some fields are computed or result of a query from another table. I have a function that looks up a value from another table like so
************************************************** ********
Public Function GetTargetType() As Variant
GetTargetType = DLookup("type", "tblFormulations", "[tblFormulations!formulation]=Forms![frmNmsConsumptionEntry]![formulation]")
End Function
************************************************** ********
Which works fine when I test in the immediate window.Then I have this form event. This however does not insert this value when I am adding records using my continuous form.
************************************************** ********
Private Sub Form_BeforeInsert(Cancel As Integer)
Me!target_group = GetTargetType()
'Forms!frmNmsConsumptionEntry!target_group = GetTargetType()
'[tblNmsConsumption.target_group] = GetTargetType()
End Sub
************************************************** ********
making sure I can insert this value once retrieved.
I'm looking for a way to cancel the closing of a form/app. I added a button asking if the user is sure they wish to exit, and am having difficulty finding the correct code to cancel the close event.Here is my codeDim ians As Integer ians = MsgBox("Are you sure you wish to exit?", vbYesNo, "Exit App") If ians = vbNo Then DoCmd.CancelEvent DoCmd.OpenForm "orderlist", acNormal Exit Sub End IfCan help or send me down the right path?Thanks
View 2 Replies View RelatedHi all, I have a textbox with an input mask for an id number, so if I begin adding numbers I get an error message if they're not in correct format- this is fine- but I want the user to be able to cancel the entry and exit the form, but when I click the cancel button I get an error message about the id format- anyone know how I can allow cancel to override this?
thanx
Hi
I have a form with avout 4 fields based upon a query to allow user to edit an entry if needed.
I want to put a cancel button on so that if they change their mind after having changed a field it reverts to its original value - so for instance they decide to change a land line phone number to a mobile, exit the field but then have a brain storm and decide not to do this so hit the cancel button.
At the moment my cancel button just closes the form (and accepts the overwrite) which would be fine if I am using ADO but not if I am using a bound form.
I am sure there is a simple answer (since I cannot be the only person who thinks this option might be a good idea). I am just not sure how to look for it.
Any thoughts or ideas?
Thanks
I have two forms. Main form called "frmCarV" and another form "frmEngine"
The form frmCarV contains the its ID called VID that is connected with the frmEngine also.
I made a button on frmCarV form that when click opens form frmEngine as a new entry (because the form is for entering certain data) with the VID field already filled from the VID field in the frmCarV form where data about each car is put.
This is the VBA I placed in the button in the Main form frmCarV.
Private Sub btnUnosEvidR_Click()
DoCmd.OpenForm "frmEngine", , , "VID=" & Me.VID
End Sub
When I click the button form opens but the VID field is not filled, it stays blank. Also the VID field in the form frmEngine is a combobox.
Is there a way to cancel a form's close event? If a user clicks the form's close button, I want a msgbox to ask if they are sure, and if yes continue and close, else cancel the forms close event. I know how to perform the msgbox and the if statement. I can not figure out how to cancel the form's close event.
View 2 Replies View RelatedHello peeps!
Just someone advice if I can!
I have a table that contains student details:
StudentNo
Surname
Forename
I have created a form to add students to this table but I need a button that will read the highest StudentNo and then add one, putting the new stundent number in the form in a new record?
How can I go about doing this? Can it be done using a macro or do I need to use VBA??? I have been told that I would need to use the DMax function but I dont know VBA.
Thanks in advance for all your help
I have a button on a form which calls a module to show a calendar form. The user picks date and time, and saves it. The calendar form closes and adds the date and time to a text box on the initial form.I want to save the record so that the underlying table/query is updated, but it's not working. The record is not saved until the initial form is closed.Here's the form vba...
Code:
Option Compare Database
Option Explicit
Private blnFlag As Boolean, blnSaveIt As Boolean
Private Sub btnDelete_Click()
On Error GoTo Err_btnDelete_Click
[code]...
Hi All,
I have a pop up form that requires me to fill out all 4 fields of the form. When I don't, I get a prompt telling me which field(s) I've forgotton to fill in and allows me the option to Cancel (Yes or No) and if i decide yes it wont save and will close the form. BUT when I say No (Don't cancel), it still closes out the form and I obviously don't want that. I don't know if it might have to do with my macro button either? Any clue?
Thanks in Advance!
MY CODE:
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim blnError As Boolean
Dim strError As String
strError = "You are missing data for "
If IsNull(Me.[Account Number]) Or Me.[Account Number] = "" Then
blnError = True
strError = strError & "Account Number,"
End If
If IsNull(Me.Contact) Or Me.Contact = "" Then
blnError = True
strError = strError & " Contact,"
End If
If IsNull(Me.Department) Or Me.Department = "" Then
blnError = True
strError = strError & " Department,"
End If
If IsNull(Me.Address) Or Me.Address = "" Then
blnError = True
strError = strError & " Address,"
End If
If blnError Then
strError = Left(strError, Len(strError) - 1)
If MsgBox(strError & vbCrLf & "Are you sure you want to cancel." & vbCrLf & "If you do, the info will not be added.", vbQuestion + vbYesNo, "Close Confirmation") = vbNo Then
Cancel = True
End If
End If
End Sub