Office中国论坛/Access中国论坛

标题: 如何使选定的行变成高亮显示？ [打印本页]

作者: 谢健 时间: 2007-4-28 16:44
标题: 如何使选定的行变成高亮显示？
当光标选中子窗体任意一行时，即光标进入任意一个单元格，如何使选定的行变成高亮显示？如图所示：[attach]24196[/attach]
[attach]24197[/attach]

作者: laiguiyou 时间: 2007-4-28 16:47
在子窗体的成为当前事件中加入DoCmd.RunCommand acCmdSelectRecord

[此贴子已经被作者于2007-4-28 8:47:48编辑过]

作者: 谢健 时间: 2007-4-28 17:40
非常感谢！真是太好了，又学会一招！

作者: 谢健 时间: 2007-4-28 20:49
想再问一个问题，那个高亮显示是黑色为背景色的，那么这个黑色可以改成其他颜色吗？如橙色，请问如何改？

作者: laiguiyou 时间: 2007-4-28 22:25
也可以,那要用到条件格式.这样窗体会有点抖动,你可以搜索一下,有这方面的资料

作者: goodboy040 时间: 2008-2-21 23:08
非常感谢！真是太好了，又学会一招

作者: graper 时间: 2008-8-22 14:00
很好赞一个

作者: graper 时间: 2008-8-22 14:01
再赞一个

作者: 086-china 时间: 2008-8-22 14:11
抖动的问题怎么就解决不了呢?

作者: wu8313 时间: 2008-8-22 22:15
如果是acc2007的话，将会自动加上所在行的边框，不过没有高亮显示。

------------------------------------------------------------------------------------------
如果，希望单击某字段不执行高亮显示的，可以在子窗体中贴上如下代码，正好手边上我写了一段。

单击 '姓名' 字段的话，就不执行高亮显示(而是弹出一个快捷菜单等等)

Private Sub Form_Load()
Call focus_select
End Sub
Public Sub my_sel_rec()
DoCmd.RunCommand acCmdSelectRecord
End Sub
Private Sub focus_select() '文本框获取焦点后,行选该记录
For Each ctla In Me.Controls
Select Case ctla.ControlType
      Case acTextBox
      If ctla.name <> "姓名" Then
      ctla.
      Else
      '你定义弹出快捷菜单或者其他操作
      End If
      Case Else
      '什么也不做
End Select
Next ctla
End Sub

[ 本帖最后由 wu8313 于 2008-8-22 22:26 编辑 ]

作者: wu8313 时间: 2008-8-22 22:26
10楼中的 ctla. ，怎么无法编辑呢？只好跟贴更正。

传附件总可以吧？

[ 本帖最后由 wu8313 于 2008-8-22 22:32 编辑 ]

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