ACCESS点击标题/字段名称进行排序的方法

在做数据库的时候发现最好能点击标题或字段名称后对数据进行排序,查了下资料后,在需要点击的地方写入下面的VBA代码就可以了。

Private Sub 姓名_Label_Click()
If Me.姓名_Label.Caption = “姓名” & “↑” Then
Me.姓名_Label.Caption = “姓名” & “↓”
Me.OrderBy = Left(Me.姓名_Label.Caption, Len(Me.姓名_Label.Caption) – 1) & ” desc”
Else
Me.姓名_Label.Caption = “姓名” & “↑”
Me.OrderBy = Left(Me.姓名_Label.Caption, Len(Me.姓名_Label.Caption) – 1) & ” asc”
End If
Me.OrderByOn = True
End Sub

效果如下图,

access点击排序

其他字段按照上面的代码也可以点击后排序,只要复制粘贴代码,把字段名称改下需要排序的字段就可以了。

上面的窗口形式是连续窗体格式。

版权声明:
作者:水东柳
链接:http://shuidl.com/1465.html
来源:水东柳博客
文章版权归作者所有,未经允许请勿转载。

THE END
分享
二维码
打赏
< <上一篇
下一篇>>