access连续窗体使用多个字段排序

为了阅读方便，我们通常都需要对数据进行排序。

在连续窗体中，access没有自带的排序功能。需要在程序中添加

  Dim keword1 As String

  Dim keword2 As String

  Dim strsql As String

  '获取排序的关键字

  keyword1 = InputBox("请输入主要关键字及排序方式" )

  keyword2 = InputBox("请输入次要关键字及排序方式" )

  strsql = "select * from  员工工资 order by " & keyword1 & "," & keyword2 & ";"

  Me.RecordSource = strsql

  Me.Requery