隨意選擇子窗體中想顯示的列

Henry D. Sy

應(yīng)網(wǎng)友要求，作個簡單的例子，需要的網(wǎng)友可以參考，修正一下。


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

應(yīng)網(wǎng)友要求，作個簡單的例子，需要的網(wǎng)友可以參考，修正一下。


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

如果我要輸出顯示列的內(nèi)容的表的話怎么輸出呢？
我用下面的代碼無法運行！
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

建立動態(tài)查詢，然后導出該查詢。

echo975

真是好東西啊，學習了

790729

好東西，收藏

sxb2007

好東西，收藏

yanwei82123300

非常好！謝謝版主提供！