此示例适合学习access开发平台的学员使用,很多学员在用平台做新增窗体时候,会遇到新增了数据后点"保存"按钮,数据可以添加很长,现想做一个窗口加以提示不能录入超过指定的值!
解决方法如下:(以报销管理系统里面的员工姓名新增为例)
第一:进入新增窗体的设计状态→进入代码编辑界面→在新增代码内找到If MsgBox("您确认要保存吗?", vbOKCancel + vbInformation, "提示") = vbOK Then这句
第二:在这句代码上面一段,加限制语句,输入以下整个部分代码:
If Len(Me.ygxm) > 8 Then
MsgBox "您输入的数据长度超过8个汉字!请输入在8个字以内!", vbOKOnly, "提示:"
Exit Sub
End If
第三:保存并运行试试效果.(8-代表8个字符,学习者也可自行设定大小)
注:大家在用平台开发自己软件过程中,也可以加以应用的,只需将代码中绿色部分改为自己软件的字段名即可