MSAccess VBA ORDER BY 不适用于动态记录源
下面的代码在我的表单上设置记录源。 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
结束子
The below code sets the recordsource on my form. The ORDER BY is not working since all the form properties are blank. How do I get sort?
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
如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。
![扫码二维码加入Web技术交流群](/public/img/jiaqun_03.jpg)
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱,如果其他用户或者作者回复了您的评论,将不能在第一时间通知您!
发布评论
评论(1)
如果你正在设置记录源,为什么不趁机排序呢?
您应该考虑帮自己一个忙,去掉表名和字段名中的空格,这会让生活变得更轻松。
If you are setting the recordsource, why not take the opportunity to sort?
You should consider doing yourself a favour and getting rid of spaces in table names and field names, it will make life a lot easier.