请教版主[求助]!!!

蓝精灵007

请教版主:
　 近日我正在做一个查询程序现程序如下:
Private Sub cmdfind_Click()
If txtfind.Text = "请输入高一" Then
'执行查询语句
查找.查找
ElseIf txtfind.Text = "请输入高二" Then
查找.查找
ElseIf txtfind.Text = "请输入高二" Then
查找.查找
End If
End Sub
Private Sub comfind_Click()
If comfind.Text = "高一" Then
　 txtfind.SetFocus
　 txtfind.Text = "请输入高一"
ElseIf comfind.Text = "高二" Then
　 txtfind.SetFocus
　 txtfind.Text = "请输入高二"
ElseIf comfind.Text = "高三" Then
　 txtfind.SetFocus
　 txtfind.Text = "请输入高三"
End If
End Sub
Private Sub txtfind1_Click()
txtfind1.SetFocus
End Sub
可是在运行cmdfind_Click()时,系统提示"运行时错误'2115'为这各字段的beforeupdate或validationrule属性或函数将阻止microsoft access 在字段中保存数据"我不知道系统提示是什莫意思,请指教!!!

xinbao

txtfind是不是綁定到字段了
怎有兩個comfind_click事件