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

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

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

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

 

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

 

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

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

 

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

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

 

 

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

 

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

 

 

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数据库选中某个数据则整行数据高亮变色

 

 


上一篇:没有了
下一篇:SQL Server 该安装哪个版本
相关评论

图库精选