企业版，执行删除操作后，平台停止响应

口木　发表于：2011-08-26 14:57:13 　

如题，每一个模块执行删除操作后平台就死了，不知哪位朋友有没有遇到这样的问题，怎样解决？

风行发表于：2011-08-27 09:07:22

删除代码都复制过来

口木发表于：2011-08-28 18:48:49

Public Sub btnDel()
If MsgBox("您确认要删除吗?", vbYesNo + vbInformation, Forms!usysfrmLogin.Caption) = vbYes Then
        '防止屏幕闪动
        DoCmd.Echo False
        'AccHelp_DeleteFldStrRow函数的详细说明请看平台帮助第十二章
        Call acchelp_deletefldstrrow("tblcgPO1", "cgPONo", strSelectID)
        Call acchelp_deletefldstrrow("tblcgPO2", "cgPONo", strSelectID)
        '重新加载子窗体，以刷新数据
        'Forms!usysfrmmain!frmChild.SourceObject = "frmcgPO_child"
        Me.Refresh
        Forms!usysfrmmain!frmChild.Form.Refresh
        Forms!usysfrmmain.Refresh
        DoCmd.Echo True
    End If
End Sub

Top

竹笛发表于：2011-08-28 21:36:22

不使用平台函数，用别的删除代码试试看。

Top

口木发表于：2011-08-29 14:33:05

可以提供别的删除代码吗？

Top

风行发表于：2011-08-29 14:47:23

Public Sub btnDel()
    If MsgBox("您确认要删除吗?", vbYesNo + vbInformation, Forms!usysfrmLogin.Caption) = vbYes Then
        DoCmd.SetWarnings False
        DoCmd.RunSQL "DELETE FROM 采购计划单明细表 WHERE 采购单号='" & Me!采购单号 & "'"
        DoCmd.RunSQL "DELETE FROM 采购计划单表 WHERE 采购单号='" & Me!采购单号 & "'"
        DoCmd.SetWarnings True
        Forms!usysfrmMain.Refresh
    End If
    If IsLoaded("usysfrmMain") Then
        DoCmd.Echo False
        Forms!usysfrmMain!frmChild.SourceObject = "frm采购计划单_child"
        DoCmd.Echo True
    End If
End Sub

Top

金宇发表于：2011-08-29 14:50:01

Public Sub btnDel()
If MsgBox("您确认要删除吗?", vbYesNo + vbInformation, Forms!usysfrmLogin.Caption) = vbYes Then
        '防止屏幕闪动
        DoCmd.Echo False
        'AccHelp_DeleteFldStrRow函数的详细说明请看平台帮助第十二章
        currentproject.connection.execute("delete from tblcgP01 where cgPONo='"& strSelectID &"'")
        currentproject.connection.execute("delete from tblcgPO2 where cgPONo='"& strSelectID &"'")

        '重新加载子窗体，以刷新数据
        'Forms!usysfrmmain!frmChild.SourceObject = "frmcgPO_child"
        Me.Refresh
        Forms!usysfrmmain!frmChild.Form.Refresh
        Forms!usysfrmmain.Refresh
        DoCmd.Echo True
    End If
End Sub

试试

Top

口木发表于：2011-08-29 14:53:34

问题解决了，非常感谢！！！

Top

总记录：7篇页次：1/1 9 1 :

Access交流中心

[5分]企业版，执行删除操作后，平台停止响应