为什么不能实现删除查询子窗体中的记录

nopower

删除按钮不能实现功能额 大家帮忙看看 在此谢过

skylark

Private Sub Command33_Click()
    On Error GoTo Err_Command33_Click

    If Len(strWhere) > 0 Then

        CurrentDb.Execute "Delete * From CompanyInfo Where " & strWhere
        Me![SubQuery].Requery
        MsgBox "删除成功!", 0 + 4 + 64
    Else
        MsgBox "没有选择纪录",0 + 4 + 32
    End If
Exit_Command33_Click:
    Exit Sub

Err_Command33_Click:
    MsgBox Err.Description
    Resume Exit_Command33_Click

End Sub

筛选出的会全删除.

binzhouxc721521

这个办法确实简单好用，谢谢版主。

但有一个问题，为什么一次只能删除一个记录。

如果你选了多条记录则，按下删除后，只能删除最后一条记录。

fan0217

最直接的方法：不用DAO和ADO

Me![子窗体].SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
    Me![子窗体].Requery

binzhouxc721521

请教版主告之用ado实现的代码，谢！

fan0217

可以，不过要复杂些，没有DAO来的直接。

binzhouxc721521

是用dao  代码，能不能用ado实现，省得引用上出问题。

fan0217

nopower

谢谢 我研究研究

nxjswt

呵呵，搞定，呢个子窗体的记录集的类型请选择动态集！！！见附件！

[此贴子已经被作者于2006-3-21 13:22:27编辑过]