can not find field 'I'

[VG]

Hi folks,

I have procedure that I am using to assign ID number vs Autonumber. It
is working fine but something going wrong with my form that I have to
replace the form with old version to make it working again. It has
happened about 10 times for the last 6 month. The error message is "MS
Access can't find the field 'I' referred to in your expression. Please
advise what is going wrong. The procedure is as follows:
Private Sub Command98_Click()
On Error GoTo Err_Command98_Click

Dim NResult

DoCmd.GoToRecord , , acNewRec
NResult = DMax("[AddressID]", "Address", "")
'MsgBox NResult 'Will display maximum record in Address Table
Me.[Address ID].Value = NResult + 1
'MsgBox Me.AddressID.Value ' Will display maximum record + 1 and
display it on the current Form
Exit_Command98_Click:
Exit Sub

Err_Command98_Click:
MsgBox Err.Description
Resume Exit_Command98_Click

End Sub

Thanks,

Vadim

[engles]

On Apr 19, 5:25 pm, VG <[e-mail]:

Hi folks,

I have procedure that I am using to assign ID number vs Autonumber. It
is working fine but something going wrong with my form that I have to
replace the form with old version to make it working again. It has
happened about 10 times for the last 6 month. The error message is "MS
Access can't find the field 'I' referred to in your expression. Please
advise what is going wrong. The procedure is as follows:
Private Sub Command98_Click()
On Error GoTo Err_Command98_Click

Dim NResult

DoCmd.GoToRecord , , acNewRec
NResult = DMax("[AddressID]", "Address", "")
'MsgBox NResult 'Will display maximum record in Address Table
Me.[Address ID].Value = NResult + 1
'MsgBox Me.AddressID.Value ' Will display maximum record + 1 and
display it on the current Form
Exit_Command98_Click:
Exit Sub

Err_Command98_Click:
MsgBox Err.Description
Resume Exit_Command98_Click

End Sub

Thanks,

Vadim

What do you mean "assign ID number vs Autonumber"? Either it is an
autonumber or not. You cannot assign a value to an autonumber field.
When you step thru the code in debug mode, what statement does it fail
on?

Try replacing the DMAX with something like the following (I've never
been a fan of domain statements, but not really sure why):

dim db as dao.database, r as dao.recordset
set db=currentdb
set r=db.openrecordset ("select Max(AddressID) as nResult from
Address;", dbopensnapshot)

Then you can use nResult in the same manner as your code. Be sure to
close and set to nothing when you're done.

Here's a stupid question (but it has to be asked) - Have you repaired
and compacted your database lately? If so and that has not solved
the problem, have you imported all this to a new database to see if
that solves the problem?

-- Larry Engles
- Access Developer since day 1 of Access 1.0.