【版主请进】数据表视图的窗体如何引用/设置子窗体属性?【未解决】

aslxt

如题，有一个【父窗体】，
其中有一个【子窗体】，为数据表视图，绑定到表”入库“，有一个“审核”、“id”控件....，还有一个【孙窗体】
【孙窗体】绑定到表“入库明细”，其中”入库id“与【子窗体】的“id”控件关联
我想在【子窗体】的“成为当前”事件中判断：
1、如果当前记录的“审核”值不为零时，当前记录可以编辑、删除，当前记录关联的【孙窗体】的记录可以编辑、删除、新增；
2、如果当前记录的“审核”值为零时，当前记录不可以编辑、删除，当前记录关联的【孙窗体】的记录不可以编辑、删除、新增。
Private Sub Form_Current()
  If Me.审核 <> 0 Then
    Me.AllowEdits = False
    Me.AllowDeletions = False
    Me.孙窗体.Form.AllowAdditions = False
    Me.孙窗体.Form.AllowEdits = False
    Me.孙窗体.Form.AllowDeletions = False
   Else
    Me.AllowEdits = True
    Me.AllowDeletions = True
    Me.孙窗体.Form.AllowAdditions = True
    Me.孙窗体.Form.AllowEdits = True
    Me.孙窗体.Form.AllowDeletions = True
  End If
End Sub
总是提示“....对form/report的引用无效”，请问如何解决？

注：如果【子窗体】单独打开，且为窗体视图，就没有问题

todaynew

aslxt 发表于 2011-2-16 10:38
如题，有一个【父窗体】，
其中有一个【子窗体】，为数据表视图，绑定到表”入库“，有一个“审核”、“id ...

aslxt

谢谢版主的回复，研究一下

aslxt

问题部分解决，谢谢，又产生新的问题了
当【子窗体】的某条记录下的【孙窗体】没有记录时，无论【子窗体】的“审核”的值是否为true，均没有办法新增记录！
怎么办？

todaynew

aslxt 发表于 2011-2-16 13:15
问题部分解决，谢谢，又产生新的问题了
当【子窗体】的某条记录下的【孙窗体】没有记录时，无论【子窗体】 ...

那就还是用孙窗体的成为当前事件吧，把孙窗体的其他事件都删除，加成为当前事件：
Private Sub Form_Current()
Dim ctls As Controls
Set ctls = Me.Parent.Form.Controls
  If ctls("审核").Value = True Then
    Me.AllowEdits = False
    Me.AllowEdits = False
    Me.AllowAdditions = False
  Else
    Me.AllowEdits = True
    Me.AllowEdits = True
    Me.AllowAdditions = True
  End If
End Sub

aslxt

也不行：
比方说，如果上一次成为当前时ctls("审核").Value = True ，在这一次成为当前的时候，如果【孙窗体】原有记录条数为零，还是有问题。
因为上一次成为当前时ctls("审核").Value = True ，已经设置【孙窗体】的只读属性，本次成为当前（如果【孙窗体】原有记录条数为零）之前仍然是只读属性，这样【孙窗体】就没有记录，不能够成为当前，是这个意思吧？

todaynew

aslxt 发表于 2011-2-16 18:00
也不行：
比方说，如果上一次成为当前时ctls("审核").Value = True ，在这一次成为当前的时候，如果【孙窗 ...

加一个孙窗体的双击事件即可：