日志

关闭窗体时不保存

已有 102 次阅读2008-1-29 22:25 |个人分类:VBA

Private Sub FORM_BeforeUpdate(Cancel As Integer)
　　　If MsgBox("保存吗?", vbYesNo, Me.Caption) <> vbYes Then
　　　　　Cancel = True　　　
End If　
End Sub　
' 去除系统的报错信息:　
Private Sub FORM_Error(DataErr As Integer, Response As Integer)
　　　Response = acDataErrContinue
End Sub

收藏分享邀请使用道具 | 编辑| 删除|

评论 (0 个评论)

加为好友
给我留言
打个招呼
发送消息

|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )

GMT+8, 2024-5-30 07:11 , Processed in 0.051862 second(s), 14 queries .

的个人空间 http://www.office-cn.net/?0 [收藏] [复制] [分享] [RSS]

日志

关闭窗体时不保存

评论 (0 个评论)