Office中国论坛/Access中国论坛

标题: 为什么不能实现删除查询子窗体中的记录 [打印本页]

作者: nopower 时间: 2006-3-21 17:14
标题: 为什么不能实现删除查询子窗体中的记录
删除按钮不能实现功能额大家帮忙看看在此谢过[attach]16520[/attach]

作者: nopower 时间: 2006-3-21 19:11
怎么就没人帮忙解决呢急啊

作者: nxjswt 时间: 2006-3-21 21:22
呵呵，搞定，呢个子窗体的记录集的类型请选择动态集！！！见附件！[attach]16531[/attach]

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

作者: nopower 时间: 2006-3-21 21:59
谢谢我研究研究

作者: fan0217 时间: 2006-3-22 02:20
[attach]16547[/attach]

作者: binzhouxc721521 时间: 2006-3-22 04:40
是用dao 代码，能不能用ado实现，省得引用上出问题。

作者: fan0217 时间: 2006-3-22 04:47
可以，不过要复杂些，没有DAO来的直接。

作者: binzhouxc721521 时间: 2006-3-22 05:25
请教版主告之用ado实现的代码，谢！

作者: fan0217 时间: 2006-3-22 17:26
最直接的方法：不用DAO和ADO

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

作者: binzhouxc721521 时间: 2006-3-22 19:33
这个办法确实简单好用，谢谢版主。

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

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

作者: skylark 时间: 2006-3-23 04:02
标题: 回复：（binzhouxc721521）这个办法确实简单好用，谢谢...
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

筛选出的会全删除.

[attach]16584[/attach]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)