请高手帮忙看看这个代码如何优化.

snryga

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个。

谢谢！！！

snryga

还是不行哪,版主

snryga

自已顶一下,谢谢版主帮忙看看

snryga

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

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

高手们,请帮我改改吧,谢谢了,我等急用