Hi, Whenever I delete a record my command button, the record deletes, a list displaying all records is updated and then a message box appears:
Microsoft Access can't find the field 'I' referred to in your expression
It only has the option of clicking 'OK', when I do this everything is fine again.
I would like to know what is going on and how to fix this problem. Below is parts of the code that I believe the problem is in.
The form is frmDeviation based on tblDeviation, the list displaying all the records used for navigation is lstDeviation, and their are several other lists which display related records in other tables. -
-
Option Compare Database
-
-
Private Sub Form_Current()
-
-
'Sets value selected in related list to Null every time the user changes record
-
Me![lstReqAndDeviation2] = Null
-
Me![lstDeviationAndSG21] = Null
-
-
'Requery all the lists displaying relationships
-
'Updates every time the user changes records
-
Me!lstReqAndDeviation2.Requery
-
Me!lstDeviationAndSG21.Requery
-
-
'Removes users ability to Add, Edit and Delete
-
'Exception is if user is on new form
-
Dim fStatus As Boolean
-
Dim nfStatus As Boolean
-
fStatus = Me.NewRecord
-
nfStatus = Not fStatus
-
-
Me.Reference_Number.Locked = nfStatus
-
Me.Issue.Locked = nfStatus
-
Me.Title.Locked = nfStatus
-
Me.Airworthiness_Impact.Locked = nfStatus
-
Me.Airworthiness_Assessment.Locked = nfStatus
-
Me.Planned_Operations_Impact.Locked = nfStatus
-
Me.Planned_Operations_Assessment.Locked = nfStatus
-
Me.Manuals_Impact.Locked = nfStatus
-
Me.Manuals_Assessment.Locked = nfStatus
-
Me.Training_Impact.Locked = nfStatus
-
Me.Training_Assessment.Locked = nfStatus
-
Me.LSA_Impact.Locked = nfStatus
-
Me.LSA_Assessment.Locked = nfStatus
-
-
cmdEditRecord.Enabled = Not fStatus
-
cmdDeleteRecord.Enabled = fStatus
-
-
' Code to give the detail section a different colour when in view mode and edit mode
-
If (fStatus = True) Then
-
Me.Detail.BackColor = RGB(255, 255, 255)
-
Else: Me.Detail.BackColor = RGB(211, 211, 211)
-
End If
-
-
End Sub
-
-
Private Sub lstDeviation_AfterUpdate()
-
-
Me!lstReqAndDeviation2.Requery
-
Me!lstDeviationAndSG21.Requery
-
-
' Find the record that matches the control.
-
Dim rs As Object
-
Set rs = Me.Recordset.Clone
-
rs.FindFirst "[ID] = " & Str(Nz(Me![lstDeviation], 0))
-
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
-
-
End Sub
-
-
Private Sub cmdDeleteRecord_Click()
-
-
On Error GoTo Err_cmdDeleteRecord_Click
-
-
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
-
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
-
-
Exit_cmdDeleteRecord_Click:
-
Exit Sub
-
-
Err_cmdDeleteRecord_Click:
-
MsgBox Err.Description
-
Resume Exit_cmdDeleteRecord_Click
-
-
End Sub
-
-
Private Sub Form_Activate()
-
' Refresh Form after it gains focus (ie, another window is closed such as the edit relationship window
-
' Required so that lists show correct relationships
-
DCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
-
End Sub
-
-
Private Sub Form_AfterDelConfirm(Status As Integer)
-
'Refresh Form after a record has been deleted (updates lists)
-
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
-
' Updates the counter after record deletion, counts distinct Deviation numbers
-
Me.lblDeviationCount = "(" & DCount("*", "qryDeviationCount") & ")"
-
End Sub
-
-
11 8421 MMcCarthy 14,534
Recognized Expert Moderator MVP -
' Updates the counter after record deletion, counts distinct Deviation numbers
-
Me.lblDeviationCount = "(" & DCount("*", "qryDeviationCount") & ")"
-
If you think this could be the line causing the error can you give the SQL of the query qryDeviationCou nt.
NeoPa 32,579
Recognized Expert Moderator MVP
Please can you post which line of your code this error message appears after.
BTW Assuming the Me.lblDeviation Count of the last line refers to a Label control, you need to assign the value to the .Caption property if you want it to work.
Rabbit 12,516
Recognized Expert Moderator MVP
Do a compile and it should at least jump to the general area of the code that's causing the problem.
I have deduced that the error is being cause in the following code as suggested: -
-
Private Sub Form_AfterDelConfirm(Status As Integer)
-
'Refresh Form after a record has been deleted (updates lists)
-
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
-
-
' Updates the counter after record deletion, counts distinct Deviation numbers
-
Me!lblDeviationCount = "(" & DCount("*", "qryDeviationCount") & ")"
-
-
End Sub
-
The Query that is being called has the following SQL -
SELECT tblDeviation![Reference Number] AS Expr1
-
FROM tblDeviation
-
GROUP BY tblDeviation![Reference Number];
-
The reason for the group by is because each [Reference Number] can have several [Issues], i am only interested in how many differerent [Reference Number], i am using Acc2000.
All i want is for the count label to update after a record has been deleted, is there another event i can run the code after?
Thanks guys
MMcCarthy 14,534
Recognized Expert Moderator MVP
Try changing this to ... -
-
Private Sub Form_AfterDelConfirm(Status As Integer)
-
'Refresh Form after a record has been deleted (updates lists)
-
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
-
-
' Updates the counter after record deletion, counts distinct Deviation numbers
-
Me!lblDeviationCount.Caption = "(" & DCount("[Reference Number]", "qryDeviationCount") & ")"
-
-
End Sub
-
The query shouldn't be showing the As Expr1 as there is no reason for it. Make sure that [Reference Number] is the correct fieldname. -
SELECT [Reference Number]
-
FROM tblDeviation
-
GROUP BY [Reference Number];
-
Mary
NeoPa 32,579
Recognized Expert Moderator MVP
In a situation like this you can even use (a bit more efficient for the SQL engine) : - SELECT DISTINCT [Reference Number]
-
FROM tblDeviation;
Also, NB for the OP.
Please try to read all the posts as you're still not using the .Caption property in your code which was first pointed out back in post #3.
I have tried all your suggestions and none work, the caption property is not even recognised.
I believe it has something to the with where the code is (the event), as i have the exact same code for the on load event and it works perfectly.
MMcCarthy 14,534
Recognized Expert Moderator MVP
I have tried all your suggestions and none work, the caption property is not even recognised.
I believe it has something to the with where the code is (the event), as i have the exact same code for the on load event and it works perfectly.
OK can we establish if this control is a label or a textbox? If it's a textbox then what is the datatype. Also did you check the query?
NeoPa 32,579
Recognized Expert Moderator MVP
I have tried all your suggestions and none work, the caption property is not even recognised.
For some reason I don't understand, the auto-complete feature doesn't work for the .Caption property. Have you tried typing it in by hand and seeing if it works for you? (When you type it in, it should change it from '.caption' to '.Caption' so you'll know it's recognised it.)
Sign in to post your reply or Sign up for a free account.
Similar topics |
by: JMCN |
last post by:
hello
i receive a runtime error '2465' whenever i run my module in access
97. it says
'Run-time error '2465'
OOB Reports can't find the field "DuplicatePayments' referred to in
your expression.
You may have misspelled the field name or the field may have been
|
by: andykevans |
last post by:
Hi Guys,
Pretty much a novice at Access so I apologise if this is obvious:
I have an Access form called MainForm1. On the form is an execute button which starts a vb script. The script runs along nicely importing lots of records using the docmd.transfertext command. It then, at random points in the records, will return the above 2450 error saying it can't find the MainForm1, even though it's open and the only form in the database with no...
|
by: Crayola465 |
last post by:
Im trying to create an autofil for the city and state fields of my database by just entering a zip code. I have tried a few different things but it doesnt populate correctly. I haven't had to write programming since college so Im not very up to date on my language and I cant seem to figure it out. If anyone has any ideas, I would really appreciate it.
|
by: klaka |
last post by:
Hello,
Could u please help me with this error?
Microsoft access can't find the field 'I' referred to in your expression
or
The field 'I' already exists
It appears after an "Export to Excel" button is pressed, I have made lot of tests and I realized that it works fine before a split database...after that the error appears.
|
by: CindySue |
last post by:
I'm using a subform linked to the main form by a bidder number field. In the subform, I added a group header and put the field LS in it so that it would list all records designated as Live first under a heading that says Live, and then all that are designated as Silent under a heading that says Silent. The subform works beautifully by itself, but when I put it in the main form, I get an error that says "Access can't find the field 'Live or...
| |
by: dougmeece |
last post by:
Hello everyone,
I have created a search button but I receive the message "Microsoft Access can't fine the field "|" referred to in your expression" when I try to use it. I have looked online for this error but the fix did not pertain to this problem because the table or field name did not match any reservered Access words as described.
My records search form will have two combo boxes and one or two search buttons. I am just trying to...
|
by: KrazyKasper |
last post by:
I created two Command buttons in a form, one to preview the entire report and one to "cancel" or exit the form. They both work. I'm trying to create a third Command button to select/filter data from the report. My code to filter the data is:
Private Sub SelectedContract_Click()
On Error GoTo Err_SelectedContract_Click
strFilter = " = '" & Me! & "'"
DoCmd.OpenReport "OPTIMIZEIT-Audit1", acViewPreview, , strFilter
...
|
by: kcdoell |
last post by:
Hello:
I have the following afterupdate event:
Private Sub GWP_AfterUpdate()
'Updates the Total calculation in the control "SumGWP" on the quick reference
'table that is located on the form
With Me!
DoCmd.Requery
|
by: zufie |
last post by:
I have a main form containing a command SEND button that prompts an
email form to pop up.
The email address(es) that are supposed to appear on the email form
are those corresponding to the respective agency record appearing on
the main form at the current time.
Instead, what I get is the email form without the appropriate
information in the textboxes of the email form.
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look !
Part I. Meaning of...
|
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth.
The Art of Business Website Design
Your website is...
| |
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own....
Now, this would greatly impact the work of software developers. The idea...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules.
He will explain when you may want to use classes instead of User Defined Types (UDT). For example, to manage the data in unbound forms.
Adolph will...
|
by: conductexam |
last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one.
At the time of converting from word file to html my equations which are in the word document file was convert into image.
Globals.ThisAddIn.Application.ActiveDocument.Select();...
|
by: adsilva |
last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
|
by: 6302768590 |
last post by:
Hai team
i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system
| |
by: bsmnconsultancy |
last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...
| |