如何用代码打开菜单：格式：取消隐藏列

suve

数据表窗体，只想显示部分列，找不到好办法。请问：如何用代码打开“菜单：格式：取消隐藏列”这个命令？

tmtony

列字段.columnhidden=false
即可显示这个列
或
docmd.Runcommand acCmdHideColumns

huangqinyong

suve

隐藏多个字段时，
用菜单显示取消隐藏列的时候会弹出一个所有字段的选择窗体，是否可以利用这个选择所有字段的选择窗体来达到用户选择的目的呢？
是否可以改这个取消隐藏列窗体的captain?

而用DoCmd.RunCommand acCmdHideColumns只隐藏当前焦点字段，
当需要选择多个字段时，字段名用变量表示，怎样设置焦点？

[ 本帖最后由 suve 于 2008-3-11 11:50 编辑 ]

suve

sql5 = "select * from 表2 where 选择=-1"
    Set rstemp = CreateObject("adodb.recordset")
    rstemp.Open sql5, CurrentProject.Connection, 1, 1
   
    Dim fldstr As String
   
   
    While Not rstemp.EOF
        
        fldstr = rstemp("N2")
     Me.Child4.SetFocus
    With Child4
   
    .Controls(fldstr).SetFocus
   
     DoCmd.RunCommand acCmdHideColumns
   End With
        rstemp.MoveNext
    Wend
    rstemp.Close
    Set rstemp = Nothing