Question

以下代码在我的表单上设置记录源。 ORDER BY无法正常工作，因为所有表单属性都是空白的。我该如何排序？

Private Sub Form_Load()

    If Me.OpenArgs <> "" Then

        Me.AllowFilters = True
        Me.FilterOn = True
        Me.RecordSource = "QRY: BPRIL Data Entry By Order"
        Me.Filter = Me.OpenArgs
        Me.Requery

    ElseIf (Me.RecordSource <> "BPRIL Data Entry") Then

        Me.RecordSource = "BPRIL Data Entry"
        Me.Requery

    End If

    Me.OrderBy = "[Item #]"
    Me.OrderByOn = True

End Sub

Answer 1

如果您正在设置记录源，为什么不抓住机会进行排序？

Me.RecordSource = "SELECT Stuff FROM [BPRIL Data Entry] ORDER BY [Item #]"

你应该考虑帮自己一个忙，摆脱表名和字段名中的空格，这会让生活变得更轻松。

MSAccess VBA ORDER BY不处理动态记录源

1 个答案: