运行时错误'94' 无效使用Null;获取的值不准确解决方法
时 间:2018-12-02 08:30:14
作 者:伊西军 ID:63090 城市:临汾
摘 要:在文本控件更改事件写的语句报错:无效使用Null 以及获取到的值不准确的解决方法
正 文:
一、问题描述:
在文本框的更改事件写的代码如下:
Private Sub Text0_Change()
MsgBox Me.Text0
End Sub
运行时报错:无效使用NULL,经过查阅资料发现原因如下:因为当前的文本控件Text0此时还获得焦点,所以仅仅只是更改了Me.Text0.Text属性,而他的Me.Text0.Value属性还未更改,所以会报这个错误。
二、解决方法:
代码修改为如下的样子:
Private Sub Text0_Change()
Dim srt As Integer: srt = Me.Text0.SelStart '获取当前鼠标光标的位置(只有文本控件的更改事件需要写这一句)
Me.Dirty = False '保存当前窗体所有控件的Value的值
MsgBox Me.Text0
Me.Text0.SelStart = srt '重新设置鼠标光标的位置(只有文本控件的更改事件需要写这一句)
Me.Text0.SelLength = 0 '默认选中的文本长度为0(只有文本控件的更改事件需要写这一句)
End Sub
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
- 用DLOOKUP函数将需求表中...(10.31)
- Access日期区间段查询数据...(10.25)
学习心得
最新文章
- Access快速开发平台--在WI...(03.08)
- 使用SQL语句删除xscj表中学号...(03.08)
- Access快速开发平台进销存教程...(03.07)
- Access快速开发平台--frm...(03.06)
- 【Access删除查询】删除数字最...(03.06)
- Access快速开发平台进销存教程...(03.05)
- Access快速开发平台进销存教程...(03.04)
- Access快速开发平台--IsL...(03.02)
- Access两种方式实现即时更新月...(03.01)
- Access开发的资金管理系统;基...(02.29)