设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2347|回复: 7

[窗体] 请高手帮忙看看这个代码如何优化.

[复制链接]
发表于 2010-6-27 20:28:25 | 显示全部楼层 |阅读模式
Private Sub 退出_Click()
On Error GoTo Err_退出_Click
If IsNull(Me![备注]) = True And 结果 <> "成功" Then
        MsgBox "由于结果不等于成功,请在备注相关信息", vbOKOnly, "系统提示!!!"
        备注.Enabled = True
         Exit Sub

End If
DoCmd.Close
Exit_退出_Click:
    Exit Sub
Err_退出_Click:
MsgBox Err.Description
    Resume Exit_退出_Click
    End Sub


1、上面这个代码在"备注"为空时退出则要检测,但如果"备注"原本不为空时将其内容删除后退出系统即不检测直接就退出了;
2、如何增加一个限制,即“备注”栏的字符数不低20个。

谢谢!!!
发表于 2010-6-27 20:48:08 | 显示全部楼层
把 Me![备注] 换成 Me.备注 试试
 楼主| 发表于 2010-6-27 22:42:02 | 显示全部楼层
还是不行哪,版主
 楼主| 发表于 2010-6-28 00:38:27 | 显示全部楼层
自已顶一下,谢谢版主帮忙看看
发表于 2010-6-28 09:31:16 | 显示全部楼层
本帖最后由 luyuqi 于 2010-6-28 09:38 编辑

1、结果 <> "成功"中的“结果”是什么?如果是是窗体控件的话是不是要改成me.结果<> "成功"?
2、用len([备注])>=20做字数条件;
3、”但如果"备注"原本不为空时将其内容删除后退出系统即不检测直接就退出了“的问题:
     要看你的检测语句和删除语句的先后顺序问题,计算机是按语句代码顺序执行。可以加一行me.备注.requery
 楼主| 发表于 2010-6-28 13:37:45 | 显示全部楼层
我现在将语句判断改了一下,但同样出现“如果"备注"原本不为空时将其内容删除后退出系统即不检测直接就退出了”的问题,请高手帮忙改改

Private Sub 退出_Click()
On Error GoTo Err_退出_Click
If IsNull(Me.备注) = True  Then
        MsgBox "请在备注相关信息", vbOKOnly, "系统提示!!!"
        备注.Enabled = True
         Exit Sub

End If
DoCmd.Close
Exit_退出_Click:
    Exit Sub
Err_退出_Click:
MsgBox Err.Description
    Resume Exit_退出_Click
    End Sub
 楼主| 发表于 2010-6-28 17:12:49 | 显示全部楼层
高手们,请帮我改改吧,谢谢了,我等急用
发表于 2021-1-14 19:55:48 | 显示全部楼层
???
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-28 23:17 , Processed in 0.106345 second(s), 32 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表