Office中国论坛/Access中国论坛

标题: 请高手帮忙看看这个代码如何优化. [打印本页]

作者: snryga 时间: 2010-6-27 20:28
标题: 请高手帮忙看看这个代码如何优化.
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
把 Me![备注] 换成 Me.备注试试

作者: snryga 时间: 2010-6-27 22:42
还是不行哪,版主

作者: snryga 时间: 2010-6-28 00:38
自已顶一下,谢谢版主帮忙看看

作者: luyuqi 时间: 2010-6-28 09:31
本帖最后由 luyuqi 于 2010-6-28 09:38 编辑

1、结果 <> "成功"中的“结果”是什么？如果是是窗体控件的话是不是要改成me.结果<> "成功"？
2、用len（[备注]）>=20做字数条件；
3、”但如果"备注"原本不为空时将其内容删除后退出系统即不检测直接就退出了“的问题：
要看你的检测语句和删除语句的先后顺序问题，计算机是按语句代码顺序执行。可以加一行me.备注.requery

作者: snryga 时间: 2010-6-28 13:37
我现在将语句判断改了一下,但同样出现“如果"备注"原本不为空时将其内容删除后退出系统即不检测直接就退出了”的问题，请高手帮忙改改

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

作者: snryga 时间: 2010-6-28 17:12
高手们,请帮我改改吧,谢谢了,我等急用

作者: 灰太郎 时间: 2021-1-14 19:55
？？？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)