Microsoft Access can't find the field 'I' referred to in your expression

[bhcob1]

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
 
 

[bhcob1]

Thanks NeoPa, it worked

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.)

[NeoPa]

Was that the whole problem then?
That would be a nuisance (I have to watch my language on here you understand ;))!