Office中国论坛/Access中国论坛

标题: 如何用代码打开菜单：格式：取消隐藏列 [打印本页]

作者: suve 时间: 2008-3-10 14:55
标题: 如何用代码打开菜单：格式：取消隐藏列
数据表窗体，只想显示部分列，找不到好办法。请问：如何用代码打开“菜单：格式：取消隐藏列”这个命令？

作者: tmtony 时间: 2008-3-10 17:36
列字段.columnhidden=false
即可显示这个列
或
docmd.Runcommand acCmdHideColumns

作者: huangqinyong 时间: 2008-3-10 20:33

作者: suve 时间: 2008-3-11 11:37

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

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

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

作者: suve 时间: 2008-3-12 15:37
标题: 快来看啊解决了！
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

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