Office中国论坛/Access中国论坛

标题: 多个窗体都有子窗体时，如何引用当前活动窗体的子窗体作导出操作？ [打印本页]

作者: tomsonliu 时间: 2008-10-9 10:50
标题: 多个窗体都有子窗体时，如何引用当前活动窗体的子窗体作导出操作？
看了下前面一位兄弟发的做导出的帖子很不错，那如果有多个窗体，都有子窗体时，把下面这段代码加入到module里边后，如何作动态的导出呢？activeform只能获取当前活动窗体名称，不能获得子窗体，怎么搞呢……
Private Sub Command11_Click()
On Error GoTo Err_Command11_Click
Me.frm报废单查询1.SetFocus '把焦点移动子窗体上，要操作的子窗体的名称
      DoCmd.GoToRecord , , acFirst

DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy

Dim obj As Object
Set obj = CreateObject("excel.application")
obj.Workbooks.Add
obj.Visible = True
SendKeys "^v"
On Error Resume Next
oApp.UserControl = True
Exit_Command11_Click:
Exit Sub

Err_Command11_Click:
MsgBox Err.Description
Resume Exit_Command11_Click

End Sub

作者: tmtony 时间: 2008-10-9 11:03
1.使用activecontrol, 然后判断它的type是否subform
2.使用activeform,然后循环它的所有controls,找到typeof 是subform的控件,就是子窗体了,如果有多个子窗体,也可找出来

作者: tz-chf 时间: 2008-10-9 11:07
你打算在哪里运行?

显示后再贴,如果数据多,会看到这个过程.不如用excel里的粘贴,再显示出来.

作者: tz-chf 时间: 2008-10-9 11:10
用不着DoCmd.GoToRecord , , acFirst

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