andymark请进,看现在能不能看到图?

不务实　发表于：2009-12-10 20:31:07 　

andymark 发表于：2009-12-10 21:37:12

总算可以看到图了

不知这是什么情况下发生的

你可以试尝加下下面的代码

PIVATE SUB SAVETEST()

On Error GoTo Swcwcl

........

'这里加入正常保存的语句

EXIT SUB

Swcwcl:

MSGBOX "程序出现未知错误，不能保存

END SUB

一般发生这种情况，你的语句存在问题，才会不让保存的，从根本上解决还是建议从表的设计和语句入手

不务实发表于：2009-12-11 15:44:23

Private Sub Form_BeforeUpdate(Cancel As Integer)

If Not (Me.职员编号 >= 1 And Me.职员编号 <= 999) Or Len(职员编号) <> 3 Then
MsgBox "请输入001-999之间的三位数字。放弃输入请按键盘左上角 Esc键！", , "编号规则"
Cancel = True
Me.职员编号.SetFocus

......

End If
End Sub

是这样的,输入了不符自定要求的信息,在没保存前,直接点窗体上×退出才会出现,

其它我的代码可能没问题,可能就是要在卸载窗体时判断?但我不会呀

判断窗体有没更新的撤销或禁止退出?

以前你看不到图,我是用QQ抓的图,直接复制上来的,你看不到,但我能看到,可能与浏览器或系统有关?

andymark 发表于：2009-12-11 19:35:47

你试试把代码加在

Private Sub Form_Unload(Cancel As Integer)

End Sub

事件中

不务实发表于：2009-12-12 16:12:18

那样不行的,我上传了附件,具体情况附件中说明了,帮我看一下吧

总记录：4篇页次：1/1 9 1 :

Access交流中心