【Access】查询后批量删除，打印等出错代码修改

来源:www.accessoft.com 点击数:6766 　 | 收藏 | 复制

时　间:2015-10-28 14:09:19
作　者:杨雪 ID：42182 城市：南京
摘　要:有学员遇到，点击导航菜单，打开的窗体->子窗体是弹出式的话，(批量删除代码)原代码是没有问题的。
可是如果打开的窗体->子窗体是嵌入式的话，批量删除代码是有问题。详细情况如下：
正　文:

点击采购计划维护--打开窗体（嵌入式的）-----输入查询值--查询---得到筛选结果（有数据）--删除---提示下面的错误。

原批量删除代码：

原打印代码：

修改的代码：

将上面红色框中的代码修改为：

Public Sub btnDelete_Click()
On Error Resume Next
    Dim strWhere As String     '定义查询来源变量
    strWhere = iif(me.sfrchild.form.filteron,me.sfrchild.form.filter,"")

    If strWhere = "" Then
        MsgBoxEX "无查询结果！请查询数据！", vbExclamation + vbOKOnly
        Exit Sub
    ElseIf MsgBoxEX("注意：是否需要删除数据？", vbExclamation + vbOKCancel) = vbCancel Then
        Exit Sub
    Else

        CurrentDb.Execute "Delete FROM [tbl采购计划明细表] Where " & strWhere
        Form_frm采购计划.RefreshDataList
    End If
End Sub

打印的代码改的一样。

然后就没有问题了。

Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店

【打印此文】【关闭窗口】