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