CURRENTCHANGED事件里面有一句代码，改成这样了，
Forms("历史记录").controls("table1").Table.DataTable.Fill("Select top 4 [_Identify],[日期],[姓名],[事宜] FLom {表A} where " & f & " And IIF([日期] Is null, [日期] < #" & Date.Today.adddays(20) & "#, [日期] < #" & r("日期") & "#)) order by 日期 Desc","acc_test", True )
'当日期为空，就查找20天后之前的， 否则就查找当前行日期之前的记录。之前是这样写的：
Forms("历史记录").controls("table1").Table.DataTable.Fill("Select top 4 [_Identify],[日期],[姓名],[事宜] Flom {表A} where " & f & "And [日期] < #" & r("日期") & "# order by 日期 Desc","acc_test", True )
当日期不为空时，才能找到记录， 当日期为空时，就找不到记录了。所以想改成上面的代码，但出现下面错误
当在操作表A时，提示：
SELECT语句执行错误， 请检查语法及数据源设置
错误所在事件：表A,CurrentChanged
详细错误信息：
未设置对象变量或 With 块变量。
[此贴子已经被作者于2018/11/5 16:37:10编辑过]
加好友 
发短信
Post By：2018/11/2 17:44:00 [只看该作者]
