Access数据库选中某个数据则整行数据高亮变色

时间:2017/9/19 16:26:41  作者:Mho  来源:守望幸福  查看:56744  评论:0
内容摘要:Access数据库选中某个数据则整行数据高亮变色,整行变色凸显出来区别于其他行数据。在使用 access 数据库开发系统时,数据多时,容易看混上下行的数据,此时,我们就希望能像excel表中的操作一样,把某一行标成鲜艳的颜色,这样就不会轻易看混了。

     Access数据库选中某个数据则整行数据高亮变色

     整行变色凸显出来区别于其他行数据

 

Access数据库选中某个数据则整行数据高亮变色

 

    在使用 access 数据库开发系统时,数据多时,容易看混上下行的数据,此时,我们就希望能像excel表中的操作一样,把某一行标成鲜艳的颜色,这样就不会轻易看混了。

    其实,在excel表中,也是可以实现这样的功能的,操作如下:

 

    第一步:数据要在窗体中展现。(在数据表中是不能的)

    Access数据库选中某个数据则整行数据高亮变色

 

 

    第二步:在窗体中的“打开”事件,或者在“加载”事件中,添加以下代码:

 

Access数据库选中某个数据则整行数据高亮变色

 

 

vb代码
 Private Sub Form_Open(Cancel As Integer)
 
    Dim ctl As Control
     For Each ctl In Me.Form
         If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
             ctl.FormatConditions.Add acExpression, acEqual, 1
             ctl.FormatConditions(0).Modify acExpression, , "[序号] ='-1'"
             ctl.FormatConditions(0).ForeColor = vbWhite
             ctl.FormatConditions(0).FontBold = True
             ctl.FormatConditions(0).BackColor = RGB(46, 139, 87)
             ctl.OnGotFocus = "=test([序号])"
         End If
     Next ctl
 
 End Sub
 
 Function test(ByVal A As String)
     Dim ctl As Control
     For Each ctl In Me.Form
         If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
             ctl.FormatConditions(0).Modify acExpression, , "[序号] ='" & A & "'"
         End If
     Next ctl
 End Function

 

    

    第三步:第二步中“序号”部分,是窗体数据源的数据表的一个主键,修改成相应的名称即可,蓝色部分是高亮的颜色设置,可根据喜欢更改。

 

 Access数据库选中某个数据则整行数据高亮变色

 

 


相关评论

图库精选