Office中国论坛/Access中国论坛

标题: 随意选择子窗体中想显示的列 [打印本页]

作者: Henry D. Sy 时间: 2009-5-6 15:06
标题: 随意选择子窗体中想显示的列
应网友要求，作个简单的例子，需要的网友可以参考，修正一下。

Sub HiddenCol(subFrm As SubForm, Optional bln As Boolean = True)
Dim ctl As Control
For Each ctl In subFrm.Controls
      If TypeOf ctl Is TextBox Then
         subFrm.Controls(ctl.Name).ColumnHidden = bln
      End If
Next
End Sub
[attach]57032[/attach]

作者: asklove 时间: 2009-5-6 15:23
见好就收

作者: wang1950317 时间: 2009-5-6 19:06
非常好！谢谢版主提供！

作者: 5988143 时间: 2009-5-6 19:07
谢谢分享 ~

作者: coolabc 时间: 2009-5-8 10:21

应网友要求，作个简单的例子，需要的网友可以参考，修正一下。

Sub HiddenCol(subFrm As SubForm, Optional bln As Boolean = True)
Dim ctl As Control
For Each ctl In subFrm.Controls
I ...
Henry D. Sy 发表于 2009-5-6 15:06

如果我要输出显示列的内容的表的话怎么输出呢？
我用下面的代码无法运行！
Private Sub Export_Click()
Me.出口.SetFocus
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy

Dim obj As Object
Set obj = CreateObject("excel.application")
obj.Workbooks.Add
obj.Visible = True
SendKeys "^v"
End Sub

作者: Henry D. Sy 时间: 2009-5-8 10:27
建立动态查询，然后导出该查询。

作者: echo975 时间: 2009-5-11 11:07
真是好东西啊，学习了

作者: 790729 时间: 2009-5-12 20:47
好东西，收藏

作者: sxb2007 时间: 2009-6-3 14:55
好东西，收藏

作者: yanwei82123300 时间: 2022-4-27 11:02
非常好！谢谢版主提供！

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