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