未找到文本框输出方法或数据成员

时间:2014-02-07 15:56:12

标签: ms-access ms-access-2007 access-vba

大家好,请看下面的代码。

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的错误(找不到方法或数据成员)。 你能告诉我它有什么问题吗?

1 个答案:

答案 0 :(得分:0)

有几个问题/建议......

  • 您的表单是否包含子表单?根据重新检查PARENT的代码
  • ,它似乎是肯定的
  • 基于假设#1,那么按钮位于子范围?
  • 根据答案,我认为我可以提供解决方案。
  • 设置frm = Forms![ParentForm]![MySubForm] .Form将指向子表单