命令或操作“DeleteRecord”当前不可用关乎版本?

乔峰　发表于：2012-11-20 20:33:56 　

红尘如烟,麥田,竹笛,十段,金宇请各位高手出手吧. 谢谢了.

Dim selH As Integer
Dim selT As Integer

Dim i As Integer

selT = Me.子窗体.Form.SelTop
selH = Me.子窗体.Form.SelHeight

For i = 0 To selH - 1
Me.子窗体.Form.SelTop = selT + i
If Me.子窗体.Form.NewRecord <> True Then
DoCmd.RunCommand acCmdDeleteRecord

出现 "命令或操作“DeleteRecord”当前不可用" 关乎版本?

End If
Me.子窗体.Form.Recalc '立即更新控件上的数据
Next
Exit_cmdCls_Click:
Exit Sub

Err_cmdCls_Click:
Debug.Print Err.Description
Resume Exit_cmdCls_Click

Top

乔峰发表于：2012-11-21 01:18:37

已经解决问题, 不是焦点问题, 而是把主窗体上的子窗体删除, 重新添加子窗体/子报表控件, 再把子窗体/子报表控件的数据源连接到子窗体, 一切OK .

Top

煮江品茶发表于：2012-11-21 09:09:56

不用写那么多代码，如此即可：

ssql=me.子窗体.form.RecordSource
strwh="true and " & me.子窗体.form.filter
ssql="delete * from (" & ssql & ") where " & strwh
docmd.runsql ssql

Top

乔峰发表于：2012-11-24 21:52:01

ssql=me.子窗体.form.RecordSource
strwh="true and " & me.子窗体.form.filter
ssql="delete * from (" & ssql & ") where " & strwh
docmd.runsql ssql

这个代码虽然不是我要的,不过还是要谢谢你,以后多指教.

我的子窗体是数据表形式, 没有自动编号, 也没有特殊的条件, 而是用鼠标把几条不想要的记录描黑(选择) 然后删除而已, 而且可能和前几条完全一样.