Strange Error Message

[Steve S]

I have a newer form in a database that is causing an error. I want to
display a message when a field in a subform is changed. I do this all the
time in other forms/subforms but for some reason in this subform I get the
following message when I change the text in a field.

“The expression On Change you entered as the event property setting produced
the following error: A problem occurred while Microsoft Access was
communicating with the OLE server or ActiveX control.â€

This happens for all 3 of the 4 fields I tested.

The 4th field I tested is a yes/no checkbox and when I try to set the
[Eventprocedure] for the Change event and select “Code Builder†I end up in a
completely different subform from the one the checkbox is in.

The code that caused the error is:
Private Sub First_Name_Change()
MsgBox "P"
End Sub

 

[Douglas J. Steele]

Try compacting the database (which will also repair it) and/or decompiling
it.

 

[Steve S]

already tried that 4 or 5 times. No help other than reducing the file size
from about 9 mg down to 7 mg.

--
Steve S

Try compacting the database (which will also repair it) and/or decompiling
it.

--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)

I have a newer form in a database that is causing an error. I want to
display a message when a field in a subform is changed. I do this all the
time in other forms/subforms but for some reason in this subform I get the
following message when I change the text in a field.

"The expression On Change you entered as the event property setting
produced
the following error: A problem occurred while Microsoft Access was
communicating with the OLE server or ActiveX control."

This happens for all 3 of the 4 fields I tested.

The 4th field I tested is a yes/no checkbox and when I try to set the
[Eventprocedure] for the Change event and select "Code Builder" I end up
in a
completely different subform from the one the checkbox is in.

The code that caused the error is:
Private Sub First_Name_Change()
MsgBox "P"
End Sub