大家好,请看下面的代码。
Private Sub Command6_Click()
DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunCommand acCmdRecordsGoToNew
Me.Parent![seznam kusu k mìøení].Form.Requery
On Error GoTo handler
Dim frm As Form
Dim rst As DAO.Recordset
Set frm = Me.[seznam kusu k mìøení].Form
Set rst = frm.RecordsetClone
With rst
If Not .EOF Then .MoveLast
Me.tbSubformRecordCount = .RecordCount ' <- Error
.Close
End With
Exit Sub handler:
End Sub
我无法弄清楚我做错了什么。但我仍然收到<- Error
的错误(找不到方法或数据成员)。
你能告诉我它有什么问题吗?
答案 0 :(得分:0)
有几个问题/建议......