访问2016 VBA命令按钮以排序不起作用

时间:2017-07-31 15:21:22

标签: vba ms-access-2016

我需要按字母顺序排序表单上的连续记录列表。单击按钮SortAZ可以触发此操作。

详细说明: tblPatients列出了患者姓名及其ID号。当我仅根据此信息创建表单时,会创建一个cmd按钮并按预期工作。我还希望允许用户按任何条件过滤列表(例如,他们只记住名字,但不记住ID或姓氏)。

frmPatients在详细信息部分上方有一个标题。我似乎无法让vba识别详细信息部分中的字段。我尝试了几种不同的组合(参见注释行),甚至重命名了详细信息部分。

 Private Sub SortAZClick()
      Me.FilterOn = False
      Me.OrderByOn = False
     'Me.LastName.SetFocus

     'Me.OrderBy = "LastName"
     'Me.OrderByOn = True
     'Me.Detail.OrderBy = "[LastName]"
     'Me.Detail!OrderBy = "LastName"
      Me.FilterResults!OrderBy = "[LastName]"

     'Me.Form.OrderBy = "LastName"
      Me.Form.OrderByOn = True
     'me.Detail!requery
      Me.Requery
End Sub

1 个答案:

答案 0 :(得分:0)

哦,恐怖!问题出在第一行。应该是Private Sub SortAZ_Click()简单地省略下划线阻止它做任何事情。