Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

代码的读写

董秀杰  发表于:2009-05-10 20:47:08  
复制

 

 

If IsNull(Me.bxje) Then
           MsgBox "请输入报销金额!", vbCritical, "提示:"
           Me.bxje.SetFocus
           Exit Sub

End If

 

在存储文本框数据时,先判断  Me.bxje是否为空,如果为空值的话,就执行提示:请输入报销金额。直到 Me.bxje不为空时,执行 Me.bxje.SetFocus 数据写入。我现在要实现的功能是:不需要对文本框是否空值进行判断,直接执行 Me.bxje.SetFocus

进行数据写入,是不是就直接 Me.bxje.SetFocus.这是一个修改窗体。SetFocus具体是什么含义?Me.airplaneId\Me.trainId\Me.busId\Me.taxiId\Me.publicbusId\Me.undergroundId\Me.roomboardId,这些数据有可能为空,也有可能不为空,不要进行判断,直接进行数据写入,是否可以这样:

Me.airplaneId.SetFocus

Me.trainId.SetFocus

Me.busId.SetFocus

Me.taxiId.SetFocus

Me.undergroundId.SetFocus

Me.roomboardId.SetFocus

 

 

Top
豆豆 发表于:2009-05-10 22:04:17

Me.bxje.SetFocus是bxje控件获得焦点,等待输入。

 

不需要

Me.airplaneId.SetFocus

Me.trainId.SetFocus

Me.busId.SetFocus

Me.taxiId.SetFocus

Me.undergroundId.SetFocus

Me.roomboardId.SetFocus

 

在窗体的设计视图,设置好tab键索引即可。

 



李妮 发表于:2009-05-11 09:45:35

字段设置好是否为空就行了



董秀杰 发表于:2009-05-11 21:07:02

 

 

这是原来的有叉的关闭按钮截图,

我把它复制到edit窗体后变成有保存图表的关闭按钮了,请高手指点一下

 

 

 

 

 

 

 



李妮 发表于:2009-05-12 15:23:06

可能activex控件问题,换个命令按钮就行了!



总记录:4篇  页次:1/1 9 1 :