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

412次阅读
没有评论

共计 496 个字符,预计需要花费 2 分钟才能阅读完成。

提醒:本文最后更新于 2019-05-12 19:57,文中所关联的信息可能已发生改变,请知悉!

在做数据库的时候发现最好能点击标题或字段名称后对数据进行排序,查了下资料后,在需要点击的地方写入下面的 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 点击标题 / 字段名称进行排序的方法

access 点击排序

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

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

正文完
 0
水东柳
版权声明:本站原创文章,由 水东柳 2019-01-09发表,共计496字。
转载说明:除特殊说明外本站文章皆由CC-4.0协议发布,转载请注明出处。
评论(没有评论)