Runtime error 459

[mermaidboy]

Hi,

I have a procedure set to run as follows on OrderForm:

Private Sub Form_Current()
If [Forms]![OrderForm]![Checked?] = True Then
Me.AllowEdits = False
Else
Me.AllowEdits = True


End If

End Sub

It worked fine for several weeks, and then started giving me a runtime 459 error message when I tried to open the form.

Any clues?

Thanks,

Nick

[isladogs]

Error 459 = "Object or class does not support the set of events"

This suggests one of the following:
a) a VBA library reference is MISSING - check and replace if so
b) the form or control may be corrupted
First try doing the following: compiling then compacting the db
If that doesn't solve it - replace the checkbox, save & try again
If that still doesn't solve it - create a new copy of the form
Save a copy of the original form before changing it ... just in case

[ranman256]

rename the checkbox without the ?.
but, OrderForm MUST be open.

Private Sub Form_Current()
Me.AllowEdits= not Forms!OrderForm!Checked.value
End Sub