Error 3341 Or Error 3022; Do Or Don't, I'm Damned.

Aug 3, 2006

Okay, I'm kind of stumped here.

I have a subform that has a button that sends a user to a "sibling" subform on another tab page, pass some information to ensure they are adding more details to the same records rather than creating two separate record.

First time I programmed it, I got an error 3022 (keys cannot have duplicate values). I checked the query of the sibling subform and saw that the ID is from the one side table. I changed it so many table's foreign key is used. Second try, I got an error 3341 (there isn't a matching key in one side table).

After some thinking, it also occured to me that I had set the query this way to allow addition of new record which wouldn't be possible if I had the query pulling the many side key, not the one side key.

How do I get the subform to accept the ID that is being passed and create a new record using that ID?


View Replies


(Error 3022)The Changes You.... Error In Subform

Dec 18, 2006

hi guys i was wondering if you can help me this is my code: i have a main form with this code, this form contains a subform linked by the All_PricingID

Set rst = CurrentDb.OpenRecordset("tblAll_Pricing") 'main table
' adding data to the table
' Main table
rst!All_PricingID = Me.txtPricingID 'Main table pk
rst!MainContract_ID = Me.cmbMainContract 'combo box in parent form
rst!ItemNumber = Me.txtItem 'Main form text

'sub Table
Set rst2 = CurrentDb.OpenRecordset("tblPricing") 'sub table
For varItem = 0 To Me.lstsubContracts.ListCount - 1 'this is a list in the main form
'--- loop through all the items in the list box and create a new row in the subform for each subcontract in the listbox lstSubcontracts.
rst2!ID = Me.All_PricingID 'sub table foreign key
rst2!SubContractID = Me.lstsubContracts.Column(0, varItem) 'sub table
Next varItem
'--- close the tables
Set rst = Nothing
Set rst2 = Nothing

the subform appears correctly with the rows i wanted added but i need the user to be able to edit a column in the subform for the rows just created (my form is on datasheet view). but everytime i move to cursor into the subform, i can't even scroll up and down.

i keep getting an error that says :

The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. (Error 3022)

but when i check my tables tblAll_Pricing and tblPricing , everything is inserted correctly according to my recorset above, do you know why this is happening? and why i am not able to edit my subform. my subform allowsedits and additions.


View 2 Replies View Related

Error 3022

Feb 14, 2007

Hi there

I am using a select query meanz no modification at all but still getting the error 3022(The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. (Error 3022))

Anybody have any clue?


View 7 Replies View Related

Trapping Error 3022

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

After I realised that the normal handler wouldn't trap it I got the database from this thread:

But it doesn't seem to work for me:


View 12 Replies View Related

Error 3022 Duplicate Entries

Aug 6, 2006

I have a rather large database that was built in Access '97 and recently converted to 2003. I have a couple problems now. I get an error message about not being able to update the form because it would create a duplicate value in the primary key, index, or relationship. (Error 3022) I didn't build this particular database so I'm not totally sure why somethings are done the way they are. I've spent a long time going through everything to try to understand the relationships and I've asked lots of people at work to look at it, but no one seems to understand why it's doing what it's doing. The Access Help information has helped me understand some things better, but not this problem. I've gone through every table and removed all primary keys and set all indexes to allow duplicates. Then, when I was looking at the relationships and object dependancies, I think everything looks to be in order. However, when i add info directly to the table instead of using the form, the form is not updated with the new info. the table keeps the information, but isn't communicating with the form and i suspect reverse is true which is where the error is coming from. But how do I detect that for sure and how can I fix it with out starting over? I've gone through and added data to one field in the form at a time to try and narrow down what field is causing the problem, but no matter what i get the same error. Is there a way to find out exactly what field is causing the error? Thanks for any help you can offer!


View 3 Replies View Related

Error 3022 - Duplicate Key/Index

Mar 1, 2007

Just when I thought I had my problem licked...

I created a subforum with an updateable query, and this works. I can view the results of the query, modify them and add new records.

However I shortly realized that once I deleted a record (either by some VBA code, or by SQL) that I could not re-add the same record through the subform.

I've made sure that the record is deleted, so there is no duplication of the key.
I've made sure that Index is Duplicates OK, so there is no duplication issues there.

What am I missing?

View 9 Replies View Related

3022 Error With Linked Tables

Mar 27, 2008

I dont use linked tables very often, and when I always seem to run into the same problem.

I have two tables. The pri table has an index key defined as an autoindex, with no duplicates. The sub-table is linked to the pri
table key in a many-to-one relationship. The linked field in the subtable is defined as a long integer non-keyed field.

All is okay, until I attemp to add a SECOND record. At that point I get a 3022 error, stating I cant do something because I am attempting to create a duplicate key.

I would love to fix it, nut I am not sure exactly what the problem is that needs to be fixed. The pri key would not SEEM to be getting duplicated, and the subtable linked field is not keyed. Hmmm, I guess I need a steer here please.


View 1 Replies View Related

Forms :: Error 3022 On Form Refresh

Dec 1, 2014

I have an Access 2010 database with a form that allows me to input data which is saved into two tables (i.e. Orders and OrderDetails). I use a simple select query to bind the form to the tables.

When the form loads it asks for an order number, which it uses to pull details from the Orders table and auto-fill some fields on the form (these fields are not enabled as they are predefined, such as the order date).

So, when the order number is entered my VBA code does a Form.Refresh, which then breaks the code with the Run-time error 3022 - "The changes you requested to the table were not successful yada yada.." (I'm sure you all know the one)...

I have checked that there are no duplicated keys in my tables, I have checked that what should be indexed, is indexed. I have done a compact and repair on the database, and even created a new database and imported all the tables (used new data). Still get the same issue.

View 8 Replies View Related

Microsoft JET Database Engine Error '80004005' Unspecified Error

Jan 28, 2004


Im new to asp and access and have been having this problem for serveral weeks.

Every couple of days, all the asp pages on my site that communicate with the database start having 500 internal errors. i turned off the "Show friendly error messages" and one page gave me this specific error:

Microsoft JET Database Engine error '80004005'

Unspecified error

/admin/submitlogin.asp, line 8

I have tried a million things and have no idea why this is happening. Im not sure what other information i should post in order to see the problem. Any help would be greatly appreciated. Thank you,


View 3 Replies View Related

General :: Disk Or Network Error With Error Code 3043

Jul 13, 2012

How I can get rid of Disk or network error with error code 3043? What this error indicates.

View 4 Replies View Related

Simple Error Trapping By Error Code

Dec 6, 2005

hi all

i have the following peice of code ...

Private Sub NextApplication_Click()
On Error GoTo Err_NextApplication_Click
DoCmd.GoToRecord , , acNext

Exit Sub

If Err.Number = 2105 Then
MsgBox "Cannot navigate to the next record. This is the last record."
MsgBox Err.Description
End If

Resume Exit_NextApplication_Click

End Sub

but even when this error occurs nothing is being properly handled the way i specified - any ideas ?

View 3 Replies View Related

Reserved Error (-1517); There Is No Message For This Error.

Mar 31, 2006

Does anybody know what this error message refers to?

"Reserved Error (-1517); there is no message for this error."

It just started happening today, and I haven't even made any changes to the database. It occurs when I hit a button I have to run a macro.

the macro does the following:
1) Shows all records
2) Requery
3) ApplyFilter.
The Where Condition for the filter is:

The weird thing is that it only occurs if the Form window is taller than 1/2 of my viewable area. If the Form window is 1/2 the viewable area or shorter, it works OK. This was running fine earlier today, but about 4:00 pm (03/31/06) this started happening.

If anybody knows what this error means, or how to get rid of it (I really need to use this window in full-screen) then please let me know.

-Thanks, Sean

View 10 Replies View Related

Modules & VBA :: Why On Error Is Skipping Next Error In Sequence

Sep 1, 2014


Private Sub Consolidate_Click()
Dim temp As Variant
Excel.Application.Visible = True
temp = Dir(CurrentProject.Path & "Inputs")
Do While temp <> vbNullString

[Code] ....

From the second iteration its not picking the error.

View 5 Replies View Related

This Damned Check Box!

Jul 4, 2007

Hi, I have a checkbox, and when its value is 1 (I understand this means its selected) I want a textbox, which is the control of a field called flag (and is invisible) on the form to take the value of F, and relay to the field on the table. but it doesnt relay to the table.My code is under the onclick event procedure for the checkbox and isPrivate Sub Check4_Click()If Check4.Value = 1 ThenMe![Text7] = "F"ElseEnd IfEnd SubPlease help meThanksAlexP.S I have just made the source of the checkbox, the field in the table to ammend - flagged. My new code isPrivate Sub Check4_Click()If Check4.Value = 1 Then[Flagged] = "F"ElseEnd IfEnd SubBut it adds a -1 if i do tick the check box, and a 0 if i dont...

View 9 Replies View Related

Error Handling - Enough To Put In On Error Event

Sep 24, 2005

Every form has an on error property.

Is it enough for error handling to code the on error property for each form?
With enough I mean error handling which lets you resume the program.

Ontherwise I have to code (or call a procedure) for each coded event which i wouldn't prefer

For instance now I'm putting error handling in each event but would consider it more efficient if it can be placed once in each form
Private Sub cmdReport_Click()
On Error GoTo Err_cmdReport_Click

Dim stDocName As String

stDocName = "rptOfme"
DoCmd.OpenReport stDocName, acPreview

Exit Sub

MsgBox Err.Description
Resume Exit_cmdReport_Click

End Sub

View 3 Replies View Related

Error Message With No Error Number

Feb 1, 2006

Hello All,

I have been developing my database all one seems to be well exept for an error message which is attched.

If anybody can help me trap this error or offer some advice i would be greatfull.


View 6 Replies View Related

SQL ERROR - Runtime Error 3061 -

Aug 5, 2005

SQL Issue ...

ERROR: Runtime error 3061 - Too few parameters. Expected 1.


Not sure how to work in the '* ROLL *' into this SQL statement. The query statement works fine ... I have tried different quotation methods ( Not Like " & " '
* ROLL * & ' " & " ) AND .... )

sql = "SELECT DISTINCTROW Sum(CDbl([Scrap Factor])) AS SumOFScrap FROM [RT: Signpro1: Costs] LEFT JOIN [DT: InventoryExtend] ON [RT: Signpro1: Costs].[Part Number] = [DT: InventoryExtend].[Part#] GROUP BY [DT: InventoryExtend].CategoryID, [DT: InventoryExtend].Description, [forms]![signpro sign estima parameters]![combo14] HAVING ((([DT: InventoryExtend].CategoryID)=30) AND (([DT: InventoryExtend].Description) Not Like '* ROLL *') AND (([forms]![signpro sign estima parameters]![combo14])=1));"



View 14 Replies View Related

Error 2465 Application Defined Or Object Defined Error.

Nov 17, 2006

I am new to this forum and to MS Acess. i am not a software engineer or in the field of software. I had to learn as much as i could about MS Acess because of a project i worked on. I have a standalone MSacess database and one of the forms is giving me trouble when I try to enter a new record

The form is called frm_fragrances and has information about a fragrance.
the frm_fragrances has 4 fields in it and a sub form. the sub form has details about the fragrance

In a new record when I enter the 4 fields and attemt to go to the subform which has details about this fragrance I face this error.

an unexpected error haas occurred @2465: application defined or object defined error.

additional information
Active form:<frm_fragrances>
Active control:<txt_VendorName>
Previous control:<frm_fragrances>@Please call the developer for further instructions

I have looked in the FAQ and on this forum for help on error 2465 and cannot find anything to help me. I can work with forms to an extent but cannot write too much code.

I would really appreciate some help in this matter
Thank you

View 4 Replies View Related

Error #error In MS Access???

Dec 31, 2005

I'm from Vietnam and my English is bad. In my database, I have only a table named tblEmployees, which contains these following fields: Employee_ID (data type: text), Name (text), Salary (number) and Allowance (number). I build a form bound to this table. In the footer of this form, I have a textbox control named txtSumSalary that contains the expression: =Sum([Salary]). Everythings is OK. But when I build an another textbox named txtSumAllowance that contains the expression: =Sum([Allowancess]) (I misspelled this field intentionally), the result are error #error in both textbox controls. I don't understand why the textbox txtSumAllowance wrong, the textbox txtSumSalary is wrong too. Help me!!! Thanks a lot!

View 4 Replies View Related

Error Message - Error No:6;

Jan 21, 2008

Hi. The following message appears when an append query is run in one of my databases "Error No:6; Description: Overflow". I've never seen it before, can't find it in Help - nor anywhere else on the net. All assistance greatly appreciated!

View 2 Replies View Related

Error 438 On Error-handler!

Oct 25, 2004

I have the following code as error handling in a form that gives me Run-time Error 438 "Object doesnt support this property or method" with "Msgbox..." highlighted...
Code:'Error Handling On Error GoTo cmd_icp_catcode_Click_Err'and later in the code' Exitcmd_icp_catcode_Click_Exit: Exit Sub' Error notificationcmd_icp_catcode_Click_Err: MsgBox "An unexpected error hass occurred." _ & vbCrLf & "Procedure: cmd_icp_save_Click" _ & vbCrLf & "Error Number: " & Err.Number _ & vbCrLf & "Error Descricption:" & Err.Descricption _ , vbCritical, "Error" Resume cmd_icp_catcode_Click_Exit
I can provide any more info that you need... I am just surprised because i have used the same code on several forms before and this has never happened!

thanks a lot!

View 1 Replies View Related

3022 Question

Mar 2, 2007

I am working with an unbound form, with fields populated by an updateable query.

User may edit the fields, then attempt to save changes, done with a simple recordset based on the same query.

I trap 3022 upon Update.

I would like to know if there is a good, clean way to set the focus back to the field which caused the 3022.

Any help much appreciated.

Edit: Or, a good way to determine which field is the offending one. Thanks.

View 10 Replies View Related


Apr 26, 2005


I have a database networked with about 8 users. We have been having a problem recently with a specific table. Occasionally, when a user opens a specific form based on this table the entire form is whitened out. When I open the database there is no major curruption, but then when I check the specific table I always find one record with "#Error" shown in every field. I cannot delete the record (invalid argument), so I compact & repair the database and the bad record changes all fields to "##########". Then I can delete the record and all is fine.

Any thoughts on what can cause this kind of error ?



View 2 Replies View Related

I'm Getting The Following Error:

Jul 4, 2005

I'm getting the following error when I try to switch to design view. Also I can't close the database: :(
"You can't switch to a different view at this time.
Code was executing when you tried to switch views.
If you are debugging code, you must end the debugging operation before switching views."

View 2 Replies View Related

Why This Error Now?

Jul 28, 2005

Let's say we have a table in which one of the fields is Date. Now let's say we want to create a simple report from that table, but the user has to pick the date interval. So, the report will have to display records only from X date to Y date. We create then a form called Report with 2 fields for the user to input the X date and the Y date to create the interval. Then we make a query from that table, and on the criteria of Date, we put the following expression:

Between [Forms]![Report]![DateX] And [Forms]![Report]![DateY]

Well, that's what I've always done when I want to create a report based on a date interval input by the user and it always worked.

But now I've got a problem. Instead of making a query, I made a crosstab query from the table, to make the report easier to read. And again, on the date criteria I put the same expression, but it won't work on the crosstab query. I always get this error message:

"The Microsoft Jet database engine does not recognize '[Forms]![Report]![DateX]' as a valid field name or expression."

Why does this expression work on a regular query but not on a crosstab query?

Also, any ideas on how to create this report on the date interval provided by the user and using the crosstab query?

View 14 Replies View Related

I Got An SQL Error.

Nov 23, 2005

I have entered the following code below, but when I run it it doesn't work I a get an error:

Public Sub ExportOrderDestination(TableName As String, intNumber As String, YourOrderNumber As String, SalesRep As String, JobNumber As String, Terms As String, inNumber As Integer, valueOrderNumber As String, valueSalesRep As String, valueJobNumber As String, valueTerms As String)
DoCmd.SetWarnings False
Dim strSQL As String
Dim recordSet As Database
Dim strSQLTwo
strSQL = "INSERT INTO [" & TableName & "] ([" & intNumber & "],[" & YourOrderNumber & "],[" & SalesRep & "],[" & JobNumber & "],[" & Terms & "]) VALUES (" & "SELECT invoiceID FROM Invoice-Address WHERE CustomerNumber = " & inNumber & ",'" & valueOrderNumber & "','" & valueSalesRep & "','" & valueJobNumber & "','" & valueTerms & "')"
MsgBox strSQL
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End Sub

Any help would be greatly appreciate it.

View 9 Replies View Related

Copyrights 2005-15, All rights reserved