Error when button click in MS Access form

See more:

MS-Access

macros

VBA

Hi all,

I got this error when call the button click event in the ms access VBA.

The expression OnClick you entered as the event property setting produced the following error:
The expression you entered has a name that Microsoft Office cannot find.
* The expression may not result in the name of a macro, the name of a user-defined function, or [Event Procedure].
* There may have been an error evaluating the function, event or macro.

My code is like this

Private Sub Button1_Click()
MsgBox "HI"
End Sub

I cant find the solution..
can any one help me...