Trapping "The DoMenuItem Action Was Cancelled" On No To Delete Record
Jun 7, 2006
:confused: Anyone know how to trap/prevent the msg "The DoMenuItem action was cancelled" after answering no to deleting a record? I followed the instructions at the following thread but no luck:
http://www.access-programmers.co.uk/forums/showthread.php?t=53206&highlight=DoMenuItem+action+cancelled
Here's the code:
----------------------------------
Private Sub Delete_Click()
On Error GoTo Err_Delete_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Delete_Click:
Exit Sub
Err_Delete_Click:
MsgBox Err.Description
Resume Exit_Delete_Click
End Sub
-----------------------------------
Private Sub Form_Delete(Cancel As Integer)
DoCmd.SetWarnings False
If MsgBox("Are you sure you want to delete this record?", vbYesNo) = vbNo Then
Cancel = True
Else
MsgBox "Record deleted!"
End If
End Sub
-------------------------------------
Thanks in advance.
View Replies
ADVERTISEMENT
Aug 20, 2015
I have a cancelled service that gives a -1 to an ISCANNED field for each EventDate after the date the services are cancelled. Now I am permitted to Delete all of the cancelled records except the Min() date that =-1.
I built a query to find the value for the First Event date that =-1. I then built a delete query to delete all records after the First Event date that =-1 but it had to Join the "Find the value of the First query" to get the table records to show the records that were going to be deleted.It cannot delete.
Is there a module or VB that can be used to make the delete query work without using the joined "Find the value of the First query"?Something that will say "delete all the records after the first cancelled record"
View 7 Replies
View Related
Aug 23, 2005
I am trying to open a form with a specified record using double clicked event (list box) but access is throwin "The OpenForm action was cancelled". My code is:
Private Sub lstSchool_DblClick(Cancel As Integer)
Dim test As String
Dim thisForm As String
thisForm = "frmRegister"
test = "ID = " & "'" & lstSchool & "'"
DoCmd.OpenForm thisForm, , , test
End Sub
ID is a AutoNumber field. I have used this code in my other dbz and it works fine ....
View 12 Replies
View Related
Jul 10, 2015
I have a button on-click action of:
Code:
DoCmd.OutputTo acOutputReport, "Bladereport", "PDFFormat(*.pdf)", , True, "", , acExportQualityPrint
It works perfectly with the box appearing to choose the directory and file name, having done this it then outputs perfectly.
However if you choose cancel at the file and directory selector box it crashes:
Run-time error '2501':
The OutputTo action was cancelled.
View 1 Replies
View Related
Nov 7, 2006
Hi there,
I like having the action query warning appear with what I am doing - "You are about to update xxx rows". The problem that I am having is that when my RunSQL statement in the code executes and selects no to the warning, I get the error -
Run-time Error '2501'
The RunSQL action was canceled.
How can I trap the no selection so that this vba error does not appear?
View 1 Replies
View Related
Jan 12, 2015
One of the users of my application, reports an error when saving a report to pdf by VBA code. She’s using Access 2013, on Windows 8.1.
The error is “error 2501 output to action was cancelled with access vb macro”
The VBA code is
StrReport = “RepInvoice”
StrDocumentName = “C:UsersMaryDocumentsAccessInvoice.pdf”
DoCmd.OpenReport StrReport, acViewPreview
DoCmd.OutputTo acOutputReport, StrReport, "PDFFormat(*.pdf)", StrDocumentName, False
DoCmd.Close acReport, StrReport, acSaveNo
This error occurs at the OutputTo line. This code is part of an user form with a button “save as PDF”.
When this code is run, the report is visible as an example (as meant to be) on the screen. The code stops at the OutputTo line.
When I use
DoCmd.OutputTo acOutputReport, StrReport, acFormatPDF, StrDocumentName,, False
the problem still exists.
I tried to save the report manually by Preview > Export > PDF. The preview is OK, saving as PDF results in the same error 2501. This may lead to the conclusion that this problem is not caused by the VBA code.
I verified whether user write rights are OK, and whether a default printer is available. Both are OK. The report consists of 1 page.
When this very same application is used with Access 2010, everything functions as expected.
View 8 Replies
View Related
Oct 29, 2004
This is a copy of the SQL statement used to update records from the tblContentImport Table to the tblContent Table.
UPDATE tblContent INNER JOIN tblConentImport ON (tblContent.Code = tblConentImport.Code) AND (tblContent.Type = tblConentImport.Type) AND (tblContent.Title = tblConentImport.Title) AND (tblContent.LoginName = tblConentImport.LoginName) SET tblContent.[Date Assigned] = [tblconentimport].[Date Assigned], tblContent.[Date Started] = [tblconentimport].[Date Started], tblContent.[Last Accessed] = [tblconentimport].[Last Accessed], tblContent.[Date Completed] = [tblconentimport].[Date Completed], tblContent.[Time Spent (min)] = [tblconentimport].[Time Spent (min)], tblContent.Score = [tblconentimport].[Score], tblContent.Result = [tblconentimport].[Result]
WHERE (((tblContent.LoginName)=[tblconentimport].[Loginname]) AND ((tblContent.Title)=[tblconentimport].[Title]) AND ((tblContent.Type)=[tblconentimport].[Type]) AND ((tblContent.Code)=[tblconentimport].[Code]));
Now I want to Delete these same records from the ContentImport Table. I change this statement to start with the word DELETE and Access want me to identify which table to delete the records from. What is wrong with my statement. Please help?
View 2 Replies
View Related
Aug 2, 2006
To save records in a form, close the form and open a switchboard, I have the following Event code on clicking a command button on the form:
'Command on last page to save records and go to Switchboard
Private Sub OpenSwitchboard_Click()
On Error GoTo Err_OpenSwitchboard_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.Close acForm, "CaseNotes", acSaveYes
DoCmd.OpenForm "frmSwitchboard"
Exit_OpenSwitchboard_Click:
Exit Sub
Err_OpenSwitchboard_Click:
MsgBox Err.Description
Resume Exit_OpenSwitchboard_Click
End Sub
This seems to work okay in Access 2000, but I understand the DoMenuItem method is obsolete, and that I should replace "DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70" to a RunCommand method, but I am not sure about this.
I would be grateful for any help in replacing this piece of DoMethod code with RunCommand code! mcchu
View 4 Replies
View Related
Jan 18, 2006
i have an issue with the find record functionality
i have a main form that has a search button which works fine
i have a link to a popup form which in turn also has a search button but clicking this produces an error as below
run time error 2046
the issue seems to be the caused by the fact that the main form is still running in the background - if i open the popup form directly the search works fine
is there a way to get the search going on the po up form with the main form still running in the background?
View 4 Replies
View Related
May 30, 2006
OK, usually I can figure these things out for myself, but I'm realy stuck on this one and any help would be appreciated
background: I work in a small scale pilot production line, and we take a series of measurements for every part that we make, each of which has a unique ID. Sometimes we need to take the measurements more than once, so that the data output from the measurement system (which it can append straight to an access table) has a part ID and a measurement number, the combination of which is unique (for reasons that I won't go into it is not possible to combine them into a single field, otherwise we would do this)
problem: The measurement system can be temperamental and sometimes sends the same record more than once, and It is horribly time consuming to go through and check manually
It occured to me that we could send the measurements to table1 (where they would be stored temporarily), and write a sub to go through each record in table1 in turn, compare the part ID and measurement number to the records stored in table2 (where they would be stored permanently), and append the record to table2 only if the part ID and measurement number combo has not already been taken, before moving onto the next record in table1 and doing the same thing
The part I just can't figure out is how to go through the records in turn and compare them, I can do the append and deletion using SQL, that's not a problem.
if anyone can point in the right direction I'd be realy grateful (or tell me if I'm barking up the wrong tree completely)
regards
Bogzla
View 5 Replies
View Related
Jan 13, 2014
I've rebooted my copy record button and just used the macro wizard for now, it seems to work as far as I can tell but there is something strange about it.
I've added in some text boxes so I've got some confirmation, but when I click this copy button I get the following error;
"The command or action 'RecordsGoToNew' isn't available now."
View 1 Replies
View Related
May 19, 2011
I have two simple tables. I want to delete the records from Table1 that are on Table2. I've created a select query that gives me what I want but when I change to a delete query, I get this message: "Unable to delete from specified tables"
I think my problem has something to do with security but I can't figure out what to change.
View 13 Replies
View Related
Jun 28, 2013
When we browse through records in a subform we store the records in the database.When we want to delete a records for example the third record from the five records always the first records will be deleted. How can we delete the records where the cursor is at? When we are at the third record and press the delete button the third record from the list in the subform should be deleted.
Code:
Option Compare Database
Dim FocusBln As Boolean
Private Sub Identificeer()
Me.[Datum Aangemaakt].Visible = True
Me.[Datum Aangemaakt].SetFocus
If Me.[Datum Aangemaakt].Text = "" Then
[code]...
View 11 Replies
View Related
Aug 15, 2005
Hi there, I quickly made a database, and for some reason, can't get past this 'cancelled' error, to get it to occur, open the Companies form, click orders and then it pops up.
By deleting all of the data in my tables, I can get to a state where I can once again enter data, but after closing the orders subform and opening it again, once again I have the dreaded error.
If anyone has any ideas of why this may be happening, feel free to share them :P
Thanks alot,
James Prince
Edit,
Here's my table structure:
CompanyID PK Autonumber - Relationship
Name
Address1
Address2
Town
PostalalCode
TelephoneNumber
FaxNumber
OrderID PK Autonumber - Relationship
CompanyID - Relationship
WeekNumber
Price
PriceWithVAT
MPL Autonumber
OrderID - Relationship
PartNumber
Size
PriceEach
PricePer100
Quantity
Basically I used the forms wizard to create a linked sub form, and when moving to a new order thats when it errors I think.
View 1 Replies
View Related
Sep 17, 2007
Hey all... I have three searchable fields in my query ATM if i search the MO, and the job code by themselves they don't error out. But if i try searching the FName field. It says "You have canceled the previous operation? Can someone help me with this
View 1 Replies
View Related
Jan 5, 2005
Setup
i have a form (frmCustomers) with a subform (sfrmJobs). As you might have guessed, it keeps track of customers and jobs. One customer may have many jobs. within sfrmJobs are about 300 or so controls for about 300 or so fields (mostly yes/no boxes) and at the moment contains two subforms of its own. customers have an autonumber CustomerID and jobs have a user-entered numeric JobID.
Goal
it has been brought to my attention that some jobs may just not work out and must be deemed as "cancelled." however, my client wishes to retain these records rather than delete them. in order to maintain the integrity of the reports, i would like to remove these records from the non-cancelled customer database and place them elsewhere, but still retain the ability to review them if need be (but NOT to modify them).
Problem
the job can be cancelled at any point down the line, meaning that a job could have nearly no info or nearly all the info, and everything in between. each job record has a ton of fields. i don't know how to cut and paste an entire record (except for doing it field by field, which could take forever in this instance) into a new table. in this case, it would be several records, since i have a list of materials pertinent to each job as well as a list of services necessary for each job - all of which would have to be removed and placed elsewhere.
Cry for Help
what is the best way to go about this? some ideas i had were creating a parallel table for each table used in recording all of the job information and just manually (well, via VBA and recordsets) copying, pasting, then deleting. another is creating a checkbox that when clicked disables every control for the cancelled job (but oy vey that's a lot of controls to code the disabling for) and then have it reflected in my reports that these are only from the NON-cancelled jobs. does anyone else have an idea?
help?
thanks in advance
-Jason
View 2 Replies
View Related
Oct 12, 2007
Just a quick one.
I'm not usre how to handle the error when cancelling a report. so when I hit a control to bring up a report and say I cancel it before I put in any parameters for example I get the dialog box " runtime error" "OpenReport action was cancelled" etc.
Could anyone help me on how to handle this with VBA so that it's at least a more user friendly dialog box?
thanks
View 3 Replies
View Related
May 14, 2005
I have the following in the after update event in a Combo bound to a tbl on a Main form;
Sub Combo8_AfterUpdate()
' Find the record that matches the control.
Me.RecordsetClone.FindFirst "[Vendor] = '" & Me![Combo8] & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub
The Combo gets its data from a table and I use the Not In List to add data which is not in the Tbl and of course Limit To List is set to Yes.
It works ok with one exception, when data is entered, but not saved, then deleted And the form closed. In this set of circumstances I get an error in the code above. Granted that normally a user will not delete data from the combo then exit the form but it does happen occasionally. I have tried adding On error goto.... but with no luck. Any suggestions?
View 2 Replies
View Related
Nov 8, 2005
I've a form in which one of the fields the user enters is supposed to be a unique id. The unique id is an alphanumeric text box.
However, it's possible that another user enters an id that has already been previously used.
I'm thinking that I need to run a Find Duplicates Query with the text box entry and a table that holds all the previously entered ids prior to the form being saved so that I can inform the user of the possible duplication.
My question is are there any ideas on how I can do this or code it?
Thanks
View 2 Replies
View Related
Mar 14, 2007
Hello people of access world forums. I've decided to design a simple access db with 2003 version but with 2000 compatibility and everything appear to work ok.
After designing and testing the db, I have set the Jet user-level security options as described in some documentation and set the startup options too for a "clean type" start. Everything is ok: I have created the workgroup in a new .mdw file, joined the workgroup, set the users, set the groups, protect the forms I wanted to. If I try to open the db, it asks for user and password and the db works as espected about security.
But if I delete, move or change the .mdw filename, the db turns accesible without the implemented security. Only the startup option works but no user is prompted and the protected items turns unprotected.
I would like to know how can I associate the .mdw to the .mdb so I can't access the .mdb if the .mdw file is not present (i.e. copying the .mdb to another computer or something).
Thanks in advanced.
Kish
View 8 Replies
View Related
Jun 18, 2007
I have subform where access lists orderitems(the main form contains the order info). The subform uses a query to lookup items thats in the orderlist. Everything works fine execpt when I change something in a dropdowncombo list in the orderlist sheet(like in sample northwind db) the I get "You cancelled the previous operation". The post IS changed and everything seems to work nice but why do I get this error?
The combo uses "SELECT DISTINCT Items.IDItem, Items.Item FROM Items;" as rowsource and also "ListedItems.IDItem" as controlsource.
View 1 Replies
View Related
Jul 31, 2005
My table has an auto generated key as a string.
So on the offchance that two clients are trying to autogenerate a key at exactly the same time, I'm trying to trap the 3022 error raised when a duplicate key is entered so that I can repeat the operation with a goto.
I'm raising the error with requery like this:
DoCmd.Save acForm, Me.Name 'next line triggers 3022
DoCmd.Requery
After I realised that the normal handler wouldn't trap it I got the database from this thread:
http://www.access-programmers.co.uk/forums/showthread.php?t=77529&highlight=3022
But it doesn't seem to work for me:
http://www.imagedump.com/index.cgi?pick=get&tp=288631
Anyone?
View 12 Replies
View Related
Jun 22, 2006
Hi,
I have a VBA code that runs an append query to update a table. Due to relationship integrity a validation error shows (a type does not exist in the connected table): What I want to do is trap the error and write something that the user can understand. Help !
The Code:
Code:Private Sub Report_Deactivate()Dim Msg, Style, Title, Response, MyStringMsg = "Click OK to Import Verified Data to the Invoice Table"Style = vbYesNo + vbMsgSetForegroundTitle = "Verify Import"Response = MsgBox(Msg, Style, Title)If Response = vbYes Then 'This is the problem line DoCmd.OpenQuery "qry_Step_5_appending_invoices", acViewNormal, acEdit DoCmd.OpenQuery "Qry_Step_6_update_fob", acViewNormal, acEditElse MyString = "No"End IfEnd Sub
appreciate any help, thanks
View 6 Replies
View Related
Jan 2, 2007
I have a "homemade" switchboard that I am using and the first page allows the choice of administrator or user. I have used access user level security to deny all but administrators access to the administrator "path" in my switchboard.
When a user clicks on it, they get the runtime error 2603 saying that they don't have access. I am trying to modify the on error event so that the error won't show up and a custom message box I create will show up instead, however I cannot seem to get my on error code to do anything. I always get the standard access runtime error return box. Does anyone have any ideas??
View 1 Replies
View Related
Aug 6, 2007
I have an "Error trapping" problem.
I am relatively new to VBA and wondered if someone would be so kind and point out the error in my code.
I have a form "frmSelectInvoices" that opens another form, "frmInvoice".
I use the Select Invoices form to select completed jobs that are not invoiced, based on a query.
The user would then select a job that he/she wants to invoice, and "frmInvoice" opens in front of "frmSelectInvoice".
"frmInvoice" is based on "tblInvoices" and a couple of the required fields, (customer, JobID, etc) are filled-in automatically using the information from a couple of fields from "frmSelectInvoice"
"frmInvoice" also has an InvoiceNumber field which tblInvoices needs as it is set as a required field with no duplicates, (this is NOT the primary key).
I am trying to notify the user that the InvoiceNumber has already been used, and to reset the record, so they can enter a new Invoice Number.
The code I have so far is as follows;
Code:Private Sub Notes_Exit(Cancel As Integer)On Error GoTo Err_SameNumber Dim iResponse As Integer iResponse = MsgBox("Do you wish to Print an Invoice", vbYesNo, "SELECT AN OPTION") If iResponse = vbYes Then DoCmd.RunCommand acCmdSaveRecord Forms!frmSelectInvoice!Invoiced.Value = True Forms!frmSelectInvoice.Requery DoCmd.Save acForm, "frmInvoice" DoCmd.OpenReport "rptInvoice", acNormal, "", "[pkInvoiceID]=[Forms]![frmInvoice]![pkInvoiceID]" Me.btnClose.SetFocus Exit Sub End If If iResponse = vbNo Then MsgBox "You can Print it out later from the Invoices Main Menu", , "You Selected NO" End If DoCmd.RunCommand acCmdSaveRecord Forms!frmSelectInvoice!Invoiced.Value = True Forms!frmSelectInvoice.Requery Me.btnClose.SetFocusExit_SameNumber:DoCmd.RunCommand acCmdUndo DoCmd.GoToRecord , , acNewRec Me.fkBookingID.Value = Forms!frmSelectInvoice!pkBookingID.Value Me.fkCustomerID.Value = Forms!frmSelectInvoice!fkCustomerID.ValueMe.InvoiceNumber.SetFocusExit SubErr_SameNumber: MsgBox "Invoice Number has already been used", vbInformation, "Please use a New Invoice Number" Resume Exit_SameNumberEnd Sub
When I test the form with a number I know already exists, or even a number that has not been used before, the error message comes up and it then sets the focus to InvoiceNumber, but when I try and close the form it still keeps coming up and the only way I can get rid of it is to close the application using Windows Task Manager.
Any help on this would be appreciated.
Thanx
View 2 Replies
View Related
Jul 27, 2005
I don't know why this error message appear.
this message appear when I a lookup function is run.
The code statement that genrate this error for me is:
CName = DLookup("Name", "VisCardHolders", "Indx=" & CIndx)
Dim CIndx as long
CIndx=50025
The VisCardholders is a recordset consists of two fields:
CIndx
Name
One of the exist records in the [VisCardholders] is
CIndx=50025
Name: James Southern
.I tried to find the reason of this error but unfortuantelly, I found nothing.
Please tell me.
View 7 Replies
View Related