Access交流中心

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

一个保存日期字段的问题。

六月风  发表于:2017-08-31 14:25:52  
复制

数据表“入库表”中的“日期”为非必填字段,类型为“日期/时间”;

窗体中有个名为“日期”的文本框,未绑定,默认值为Null,有日期数据时填写,否则保留空白;

将窗体数据保存到数据表中,用下面代码,当文本框空白时,会因“Me![日期]=Null”而报错。

如何写个通用语句,确保文本框空白时不报错?谢谢!


'''''''''''''''''''''''''''''''''''''''''''''''''''''             

  Dim RS As DAO.Recordset

  Set RS = CurrentDb.OpenRecordset("SELECT * FROM 入库表 WHERE [序号] = '" & Me![序号] & "'")
  RS.Edit     '修改记录。
  RS![日期] = Me![日期] 
......

 

Top
MDZZ 发表于:2017-08-31 17:01:21
应该不会有问题 上附件

Victor Duane 发表于:2017-09-04 21:44:03

先判断<日期>这个控件是否有值,如果没有弹出对话框,设定该控件为焦点,如果日期这个控件值可以为空,那么可参考以下代码:

if me!日期 then RS![日期] = Me![日期] 



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