access开发平台--新增数据弹出提示不能输入超过指定长度(值)的方法

时　间:2009-12-30 00:09:23
作　者:麥田   ID：11  城市：上海  QQ：20099004
摘　要:Access开发平台--新增数据弹出提示不能输入超过指定值的方法
正　文:

      此示例适合学习access开发平台的学员使用,很多学员在用平台做新增窗体时候,会遇到新增了数据后点"保存"按钮,数据可以添加很长,现想做一个窗口加以提示不能录入超过指定的值!

 
解决方法如下:(以报销管理系统里面的员工姓名新增为例)

第一:进入新增窗体的设计状态→进入代码编辑界面→在新增代码内找到If MsgBox("您确认要保存吗?", vbOKCancel + vbInformation, "提示") = vbOK Then这句 

第二:在这句代码上面一段,加限制语句,输入以下整个部分代码:

    If Len(Me.ygxm) > 8 Then
        MsgBox "您输入的数据长度超过8个汉字！请输入在8个字以内！", vbOKOnly, "提示:"
        Exit Sub
    End If

第三:保存并运行试试效果.(8-代表8个字符,学习者也可自行设定大小)

注:大家在用平台开发自己软件过程中,也可以加以应用的,只需将代码中绿色部分改为自己软件的字段名即可