**Access通用开发平台使用教程视频及帮助** [http://www.office-cn.net/t/devlib](http://www.office-cn.net/t/devlib) Access通用平台下载地址： [http://www.office-cn.net/thread-117834-1-1.html](http://www.office-cn.net/thread-117834-1-1.html) **解决Access开发平台查询列表窗体只有一条记录时按删除会出错或删除所有数据也会出错** 平台中有一个BUG，就是当有一条记录时，删除会出错,不过，影响不大，平台很棒的 就是主窗体只显示一条记录时删除还是会报错 是的。这个昨天有个企业客户也发现了。 ``` Exit\_Handler:     '【后续整理】     Set cn = Nothing     gf\_RequerySubForm Me.sfmSubForm                     '刷新数据     DoCmd.GoToRecord , , acGoTo, lngCurrentRow          '跳回原来位置 '    DoCmd.RunCommand acCmdSelectRecord                  '整行选取记录     Exit Sub Err\_Handler:     gf\_Msgbox "", errError:=Err                         '错误处理     On Error Resume Next '    cn.RollbackTrans                                    '出错事务滚回     GoTo Exit\_Handler ``` 问题在注释掉的两句 **解决办法：** 1.你注释这一句 就可以了    `DoCmd.RunCommand acCmdSelectRecord                  '整行选取记录` 2.或在它的前面加一句 `On error resume next `也可以 [TOC] **原因是因为** 主要是因为 全部删除后，没有行可选取，所以导致这个错误 另删除所有数据后也会出现这个错误，解决办法是一样的 如题，截图如下！