随意选择子窗体中想显示的列

Henry D. Sy

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


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

asklove

见好就收

wang1950317

非常好！谢谢版主提供！

5988143

谢谢分享 ~

coolabc

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


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

建立动态查询，然后导出该查询。

echo975

真是好东西啊，学习了

790729

好东西，收藏

sxb2007

好东西，收藏

yanwei82123300

非常好！谢谢版主提供！