ACCESS同样的,是为子窗体查询,测试2多点两个查询,就出现死机状态,测试1就不会.

linmeici

ACCESS同样的,是为子窗体查询,测试2多点两下查询,就出现死机状态,测试1就不会.
代码如下(数据库文件附后):

测试1:(不会死机)
Me.子窗体.Form.RecordSource = "select * from 表 where 作废=true"
Me.子窗体.Form.Requery


测试2:(会死机,需要在任务管理器中强制退出)
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("select * from 表 where 作废=false")
Set Me.子窗体.Form.Recordset = rs
Set rs = Nothing


恳请各位老师赐教了,谢谢谢谢!!!

as42065300

很不明白为什么要这样写。
打个比如：一个书包里面已经装满了书，还能装的下？肯定不可以了，如果非要装那么就需要将里面的书拿出来重新装。代码改写如下：

1. Dim rs As Recordset
   
2. Set rs = CurrentDb.OpenRecordset("select * from 表 where 作废=false")
   
3. Me.子窗体.Form.Recordset.Close
   
4. Set Me.子窗体.Form.Recordset = rs
   
5. Set rs = Nothing

复制代码

linmeici

as42065300 发表于 2018-3-28 22:57
很不明白为什么要这样写。
打个比如：一个书包里面已经装满了书，还能装的下？肯定不可以了，如果非要装那 ...

谢谢老师

问这个的目的是要解决,有时候没注意,多点击了几次,会导致死机.

我按您的方法试了,还是会死机的

as42065300

....................

linmeici

as42065300 发表于 2018-3-29 00:32
....................

感谢老师的回复,可能是我系统的问题吧,还是会有这种现象的.不过,老师教的这种记录的关闭,在别的案例中都没见过,谢谢谢谢!!!

as42065300

.........还没找到问题吗？是你子窗体做的有问题。

linmeici

as42065300 发表于 2018-3-29 18:41
.........还没找到问题吗？是你子窗体做的有问题。

还没找到,可能是我系统或是OFFICE版本的问题(我是2010的)