Error 3021 Is Driving Me Nuts
Jan 14, 2006
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
View Replies
ADVERTISEMENT
Oct 15, 2007
I have form that will pop up to run a report, and allow the user to select a state for that report.
There is a combo box which you can select a state, then based on what state it is, it puts a criteria value into an unbound text box on the form.
The query has this set as the criteria:
[Forms]![frmStateSelection].[txtStateFilter].[Value]
I have also tried just:
[Forms]![frmStateSelection].[txtStateFilter]
The value of the text box is:
Like '5???????'
When the query is run, it returns 0 results. However, if I put in Like '5???????' as the criteria in the query itself, it runs properly.
I tried closing the form and running the query so that it asks me for a value since it can't find that textbox since the form is closed. I pasted in Like '5???????' and it returns 0 results.
I have used this method for entering start and end dates for reports before and it has worked just fine. I can't figure out why it isn't working here. Any thoughts?
View 13 Replies
View Related
Nov 13, 2006
hi,
i made an attendance db for work and got it to work. i then copied it and made two more for years 2 and 3. Years 1 and 3 work perefectly but for some reason the year 2 db won't allow me to write the data.
this is driving me nuts as i have already spent a few hours putting the students in and their course selections. i've tried making the forms again and as soon as i use a joint sub form to get the students first name the problem occurs. i've looked at the properties of the forms and they allow edits etc..
if anyone is feeling kind and has a spare moment, could you let me know why it doesn't work.
cheers
View 6 Replies
View Related
May 5, 2005
Hello,
I have search previous threads on this problem and not been able to solve it....so if there are any new ideas on this I would appreciate your help.
Firstly I open a new form "Document Details" from a subform which filters out a single record thus
Private Sub Command116_Click()
On Error GoTo Err_Command116_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Document Details"
stLinkCriteria = "[Fileandrev]=" & "'" & Me![Filename] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command116_Click:
Exit Sub
Err_Command116_Click:
MsgBox Err.Description
Resume Exit_Command116_Click
End Sub
If I then try and delete the record using the following
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
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 ..!!
Any ideas please
Thanks in anticipation :)
View 2 Replies
View Related
Oct 11, 2006
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.
Thanks for your help!
View 7 Replies
View Related
Apr 8, 2006
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!!!
View 1 Replies
View Related
Sep 18, 2014
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.
[Code] ....
View 5 Replies
View Related
Jan 3, 2014
How to by pass error 3021 No current record
I know I can put the code below just don't know where to put it.
If Err.Description = "No current record" Then Resume
I attached a pic of my code that is causing the error .. and its okay I just want to by pass the message box.
View 4 Replies
View Related
Jul 8, 2014
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?
View 3 Replies
View Related
Sep 11, 2003
Run-time error '438'. Object doesn't support this property or method
The command:
If Not IsNull(DLookup("[JSANo]", "JSA", "[JSANo] = '" & Me.JSANo & "'")) Then
I think the rest of the code is uncessary. I have searched Google over and over. From what I can gather this error can mean more than one thing.
I have moved the data into another new exact same field, deleted the old field, renamed the new field to have the old field name. Still keep getting this message. At one time, I had messed with the index settings on the field. Thought I saw something about that can cause problems.
I have this exact same command on another field name and it works perfectly, but on this one I get the above error. Ideas?
View 1 Replies
View Related
Jun 16, 2014
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 checked for typos.
View 5 Replies
View Related
Nov 25, 2014
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
[Code] ....
View 1 Replies
View Related
Aug 20, 2004
I am really green when it comes to Access---i am entering
text variables and pushing tab to get to the next field..however,
when I push tab to get to next field it the program is automatically
counting by two's, three's etc. based on 'pattern.' For example-I entered
2, then tab 4 and when I tabbed again a 6 magically appeared. I need
to know how this can be turned off...it is driving me nutty.
View 1 Replies
View Related
Mar 18, 2005
Can someone please help me because this is driving me insane!!
All I want to do is open a form which automatically copies the ExampleID from another form which is open.
For example on an Orders Form there will be an OrderID (Primary Key) so when I click to open the OrderItems form, which will open so that I can add an item to the Order, I need the same OrderID (Foreign Key) to automatically match the OrderID from the Orders form.
I've tried making the default value for the OrderID (Foreign Key) = the OrderID on the Orders form but the database doesn't like this method and produces errors!
Does that make sense? I hope so as I am in need of a very kind persons help!!!
Thanks,
Paul.
View 5 Replies
View Related
Nov 9, 2005
My query looks like this...The problem is that when I have one Radio with two records where [Defect fixed?] is false it counts that as two separate radios instead of one. Somehow I need to make it sum records with the same Radio/Serial_number as one...Anyone have any suggestions?
SELECT DISTINCT Defect_Log.[Defect Fixed?], Defect_Log.Station, Part_Number_Log.Type
FROM Part_Number_Log INNER JOIN (Serial_Number_Log INNER JOIN Defect_Log ON Serial_Number_Log.Serial_Number = Defect_Log.Serial_Number) ON Part_Number_Log.[Part Number] = Serial_Number_Log.Part_Number
GROUP BY Defect_Log.[Defect Fixed?], Defect_Log.Station, Part_Number_Log.Type
HAVING (((Defect_Log.[Defect Fixed?])=False) AND ((Defect_Log.Station)="station 1") AND ((Part_Number_Log.Type)="vhf"));
View 1 Replies
View Related
Sep 11, 2004
I have attached a very small table with one query. I need help having the query perform a calculation. NOTE: I do not want to achieve the calculation in a form or a report.
Thanks so much for the help - John
View 3 Replies
View Related
Mar 3, 2007
Hi,
I'm trying to build a mdb which holds customer details, which insurance they have, who sold them this and which Insurance company provided this.
The relations I have to make are driving me nuts !
When I try to enter a new customer in a Form, there is a advisor added, the package the customer wants is added. But this shouldn't happen for the advisor and the package allready exists !
Who can help me with the proper relations ?
Attached is screendump of the current relations.
Thanks a lot !
View 8 Replies
View Related
Mar 15, 2008
Hi, i have several tables in my database, wanted to know if the tables between:
Client -----> Theory
Client -----> Practical
are 1 to 1 relationship, right? Client can do one Theory, Practical.. but what if Client failed Theory, is that saying they can do more? I'm confused with the whole logic on this. Any help would be appreciated.
Thank You! :)
View 2 Replies
View Related
Oct 18, 2006
Hehe... and since me and my girlfriend just broke up, that seems applicaple both in the dbase and the real world ;)
I have one Access Database. For now containing three Tables:
KlantNAW (customer adress data) with one primary key, Klantnummer (clientnumber) which is an Autonumber Data Type, Long Int, Increment, Indexed: Yes (No dupes).
CaseDateTimeInfoTable with one primary key, Casenumber which is an Autonumber type, Long Int, Incremental, Indexed: Yes (No dupes).
Within this table I have included the Klantnummer field from KlantNAW as a Number, Indexed: Yes (dupes OK).
CaseTechInfoTable with no primary keys but with both the KlantNummer field and the CaseNumber field included. Both have a direct relationship to the tables in which those two values are created. Both values are now of type Number, both are Indexed, but Klantnummer is set to Duplicates OK and Casenumber is set to No Duplicates. I don't know if it might be wiser to just not index those values in this table, since they are already indexed in the tables in which they are created, if someone could tell me which is better in this case, please do.
I have created a one-to-many relationship (well actually, access seems to decide whether it becomes a one-to-many or one-to-one relationship) between KlantNAW.Klantnummer and CaseDateTimeInfoTable.Klantnummer with Join Type 1 and I've created a Join Type 1, one-to-many relationship between KlantNAW.Klantnummer and CaseTechInfoTable.Klantnummer.
There is only one extra relationship left, which is a one-to-one, Join Type 1 CaseDateTimeInfoTable.CaseNumber with CaseTechInfoTable.CaseNumber.
So ehrm.... a recap:
KlantNAW.Klantnummer (P-key) with CaseDateTimeInfoTable.Klantnummer
KlantNAW.Klantnummer (P-key) with CaseTechInfoTable.Klantnummer
CaseDateTimeInfoTable.CaseNumber (P-key) with CaseTechInfoTable.Casenumber
If I leave it like that the dbase works perfectly except for the fact that when I delete a customer the related case date/time info and the case tech info don't delete with the client account accordingly.
So, I thought I'd "Enforce Referential Integrity" and "Cascade Delete Related Records". I do not know if it would be wise to also enable "Cascade Update Related Fields". Could someone please tell me if that would be wise to do or not? And maybe even why... I have some beginner and more advanced books but can't be sure, probably because of lack of experience (or maybe lack of brains ;) ).
Anyway, back to the problem: when I make all the relationships to Enforce Rererential Integrity and I add a customer through a form (KlantNAW_InvoerForm) and click the "Create new case for this customer" button, the form I use for entering the case date info pops up nicely, but when I try to close that form I get an Error stating: "You cannot add or change a record because a related record is required in table "KlantNAW"". So, I click ok, then get a messagebox stating I can't save the record at this time. Do I want to close anyway? .... well, ok. Let's do that. And now the strange thing is that after that, when I do absolutely nothing other than pressing the create new case button again, enter the date/time info into the form and close it again, no errors or messages come up. Wel... that should happen the first time around right? What's wrong?
Now... I'm really lost. I'm new at this. I made some tables, queries and forms, set all options for all values, that which I didn't understand mostly tried solving or finding out on my own but now I'm hitting a brick wall.
If you guys and gals could help me out I would really be very grateful for that.
EDIT: I even tried making it more simple by removing all relationships and creating just one new one between KlantNAW.KlantNummer and CaseDateTimeInfoTable.Klantnummer (type 1, enforce referential integrity and cascade deleted records) but still, the same problem arises.
EDIT2: made sure it was not a form thing by just putting in data in the table data views directly. Same thing occurs.
View 14 Replies
View Related
Nov 13, 2007
I just started learning Access and I have created a database with 53 records, 3 tables and 1 Split form. I creared a new yes/no field and I am attempting to display "Completed" in green for yes and "Not Completed" in red for no. I used the correct code in the format field:
"Not Completed "[Red];" Completed "[Green]
This worked for different field before I created the split form but now I cannot get the new field to display anything but check boxes regardless of what code I use. It won't even let me use the default yes/no, true/false or on/off options.
I've been studying this for about 2 weeks and I've figured out quite a bit but this one thing is really iritating me....:eek:
Help
Any comments would be appreciated
John
View 3 Replies
View Related
Jul 19, 2005
I am trying to create a chart on a Form. In Excel I have no problems arranging my data. This is my first try for charts in Access. I have a table. I created a query summing two fields of this table:
Total Workers
Total Workers: DCount("[WorkerNameLast]","1-StationVerifyTbl","[ClockNbr]<>'*'")
Total Workers = 120
Total Verified
Verified Workers: DCount("[WorkerNameLast]","1-StationVerifyTbl","[StaPrimary]=True")
Total Verified = 43
So far so good. That is the correct information. What I want in a Chart is two bars side by side. One bar at 120 and the other bar at 43. I have tried everything and cannot get this to work. I am getting confused on the Axis, Data, & Series. I think I need another Field somehow. The totals I would call Monthly Totals
Could someone please help me get this thing started. I have wasted a week and feel like I have learned nothing except how to count in the Query.
After this I would like to be able to show a percentage of those verified. I have 120 workers and 43 are verified. That would be approx 35%. Anyway I am assuming that there is a solution and that I am just floundering for nothing. Thanks in advance.
View 8 Replies
View Related
May 27, 2006
I have a subform with textboxes for data entry.
I want the last data entered to stay displayed in the textboxes after the form is closed.
When the form is re-opened the textboxes display a row af data several rows down.
How do you link the textboxes to the feilds of the subform the new data is always at the top row.
Example:
Form textboxes data Entry:
Apples Oranges Pears grapes
Click command button to save:
Subform displays
Apples Oranges Pears grapes
Grapes Kiwi Tangerines Corn
Beans Lettuce Okra Rice
Close form Text boxes still display Apples Oranges Pears Grapes
Open form back up
Text Boxes Display
Grapes Kiwi Tangerines Corn
Subform Displays:
Apples Oranges Pears grapes
Grapes Kiwi Tangerines Corn
Beans Lettuce Okra Rice
How Can I make this work Right?
If anyone knows how to do this please Help.
If it must be done in code please provide an example.
I need to get this worked out this weekend.
Thanks for all the help
You guys are great!:D
Charles
View 4 Replies
View Related
Jun 14, 2006
Hello!
Hope someone can help. My code behind my command button is not working. It is opening Report1 but not the criteria in the query.
I have a form (form1) with 2 unbound text boxes on, called "txtDatefrm" and "txtDateto" in which dates can be entered. There is also a command button on the form which searches for these dates and then opens a report(Report1). The report's control source is a query. (query1). On the ExpiryDate field in the query I have the criteria:
Between ([forms]![form1]![txtDateFrm]) and ([forms]![form1]![txtDateTo])
Behind the command button I have the code:
Dim stdocname as string
Dim ExpiryDate as Date
txtDateFrm.setfocus
ExpiryDate = txtDateFrm.text
If Trim(ExpiryDate) <>"" Then
stdocname = "Report1"
Docmd.Openreport stdocname,acViewPreview
End if
Many Thanks for any suggestions!:eek:
View 4 Replies
View Related
Feb 15, 2007
Hi all,
im having trouble with an update query wher i need to update one field [class] of a table [txStudents] from an existing query Newfacility_Students where the StudentId in [txStudents] matches the StudentId in Newfacility_Students
thought it would be simple enough
UPDATE txStudents
SET Class = Newfacility_Students.class
WHERE ((StudentId = Newfacility_Students.StudentId));
it's not working it says it prompts me for this Newfacility_Students.class
but when i add that table to the design view it messes up the syntax in the sql view
UPDATE txStudents Newfacility_Students
SET Class = Newfacility_Students.class
WHERE ((StudentId = Newfacility_Students.StudentId));
any ideas?
im going crazy!!
dubs
View 1 Replies
View Related
Jan 28, 2004
Hi,
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,
Patrick
View 3 Replies
View Related
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
