I have a code which now works perfectly on my subsubform. My navigation buttons are fine until I put code for showing the record number and total number of records on the form, subform and subsubform. When scrolling through records I get error 3021 suggesting no record found. There may not be a record on the subform yet but there are always records on the form I am trying to navigate.
Any Ideas how I can avoid this error or even get access to ignore it!!!
It of course...as many others have discovered goes into the error 3021 because there is no current record for the form to move to because it is filtered from the above statement
DoCmd.OpenForm stDocName, , , stLinkCriteria
All I need to do is close the form after the error message and refresh the subform so it removes the deleted record which I know I can do by placing the commands after the error description....but it would be nice to know how to do it properly rather than bodge it ..!!
Hi, I'm learning Access on the fly for a temp job, and it's going pretty well, but I can't get past this problem:
I have a form for deleting a record, and it has a delete button with this code:
Private Sub Delete_Click() DoCmd.RunCommand acCmdDeleteRecord DoCmd.Close acForm, "frmDelete" End Sub
The record IS deleted, but the form is not closed. Instead, I get this message:
Run-time error 3021 No current record
I think I understand, logically, why this is happening - the counter at the bottom of the form is still set on record #x after x has been deleted, and it stops the code. But I can't for the life of me figure out how to fix it.
Hi I am having a real hard time with access weared errors. I am using following code:
Me.HistorySymptoms.Form.Refresh 'Just to make sure. It was a try because of error If Me.HistorySymptomTab.Visible = True Then 'It is a subform in a tab page For counter = 0 To 29 'Number of fields in the recordset If IsNull(rs.Fields(1 + counter).value) = False Then ' Just to check Null values MsgBox rs.Fields(counter).Name 'For debugging Old_History(counter) = rs.Fields(1 + counter).value 'This line has problem End If MsgBox rs.Fields(counter).Name & " Done.||" & counter Next counter End If
The error comes in the maked line on accessing the field value. Previously I had another error but after going through the process of "Corrupt Access file correction", I am getting this one. My form has subforms in tabpages. I want to save all the field values to the array on pressing a button. Button is part of the main form and code copies values from a subform. I don't think my file is corrupt as I went through the process twice :-( Looking for help RMA
I get this error when I delete more than one record consecutively.
Here is my delete code;
Private Sub Komut98_Click() Dim blnLast As Boolean 'MsgBox call must return the value in order to be checked. 'If user says no then cancelling is not required. It is only required ' that the deletion command is not invoked.
I have ODBC linked tables to a DB2 database.When I try to edit the values in some of the tables (open the table in dataview and edit one record) I get a 3021 Error -No current record.On other tables (linked the same way) I don't get this error
If I try the update by running a query on the same table, I get no errors.
The system I have is a german Access 2010 on german WinXP and a connection to DB2 LUW v9.7
Is there any set of settings necessary for ODBC to work with access and vice versa?
I have a linked table to a DB2 database. this table contains key-pair values and has about 140k records.
I use a Sub to update the value of a specific record.
The sub starts by opening the needed DAO recordset Then it uses the rs.Findfirst method It checks if rs.Nomatch is not true (so the records exists!) Then it starts updating the record with rs.edit rs!value1 = myvalue1, rs!value2 = myvalue 2 rs.Update There is where I get the '3021 No current record' error
I use the same sub on the same table to update to different parts. One part works the other gives me the error.
I have managed to sort out the data to be used in the final table. However, I am having trouble transferring the data from each of their own tables into the final table.
Each time I run my code I receive "run-time error 3021: No current record."
It seems that only my timestamp is being added properly, but the error pops up and highlights the first "rstInsert.Edit" of my code. I'm suspecting that my function is running too fast, such that it did not have time to read that the table has already been populated by the timestamp in the AddNew code
Code: Private Sub Command9_Click() Dim dbs As DAO.Database Dim rstTimestamp As DAO.Recordset Dim rstAcknowledgement As DAO.Recordset Dim rstAgent As DAO.Recordset
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,
Private Sub NextApplication_Click() On Error GoTo Err_NextApplication_Click DoCmd.GoToRecord , , acNext
Exit_NextApplication_Click: Exit Sub
Err_NextApplication_Click: If Err.Number = 2105 Then MsgBox "Cannot navigate to the next record. This is the last record." Else 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 ?
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: Right([tblContracts].[JobNum],4)=Right([Forms]![FrmContProc].[txtFindJobNum],4)
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.
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?:confused:
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.
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
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));"
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 rst.AddNew ' 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 rst.Update
'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.AddNew rst2!ID = Me.All_PricingID 'sub table foreign key rst2!SubContractID = Me.lstsubContracts.Column(0, varItem) 'sub table rst2.Update Next varItem '--- close the tables rst.Close rst2.Close 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.
hi, 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
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!
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!
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!
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 ?
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."
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?