东流西上
故在柳溪,水东有柳

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点击排序

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

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

赞(0) 打赏
转载请注明出处:水东柳博客 » ACCESS点击标题/字段名称进行排序的方法
分享到: 更多 (0)

评论 抢沙发

5 + 6 =
  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏