Runtime error -2147352567 (800200009)

[vmon]

I have a form I run the following code and I get the error message The data has been changed. What am I doing wrong?

Select Case rstLevels.Fields("BomLevels")

Case 1 ' One level Bill - Tube/Slit
strSql = "SELECT" this is a select statement that processes fine

Set rstBom = dbDatabase.OpenRecordset(strSql)

rstBom.MoveFirst
Me.ID_ITEM_SLIT = rstBom.Fields("ID_ITEM_COMPONENT")

Last line is where I am getting my error.

vmon

 

[WayneRyan]

vmon,

Try:

Me.ID_ITEM_SLIT = rstBom!ID_ITEM_COMPONENT

Wayne

 

[vmon]

Wayne,

I tried that but same error. I will expand. When I debug the happens after I enable/disable some controls on a dirty event.

I hit the statement which takes debug to on dirty then upon retuirning to the statement in question I get the error.

Any ideas?
vmon