使用命令按钮以连续形式对文本框进行排序答案

【问题标题】：Sorting a text box in continuous form using a command button使用命令按钮以连续形式对文本框进行排序
【发布时间】：2018-12-27 20:00:49
【问题描述】：

我正在构建一个连续表单格式的表单，我想添加一个按钮，以升序对特定文本框进行排序，当我再次单击时以降序排序。

我已尝试执行以下代码，但它似乎并没有关注特定的文本框。

Private Sub cmdSort_Click()
    Me.OrderBy = Me!lblTaTtxt.tag
    DoCmd.RunCommand acCmdSortDescending
    Me.OrderByOn = True
End Sub

我希望它专注于连接到“lblTaTtxt”的文本框并对文本框进行排序，但它对表单中的另一个框进行排序。希望得到一些澄清，因为我对 Access 很陌生

【问题讨论】：

标签： ms-access vba

【解决方案1】：

单击标签lblTaTtxt 后，它将对连接的文本框进行排序

Private Sub lblTaTtxt_Click()

    Dim strDirection As String
    strDirection = Me.OrderBy

    If strDirection Like "* DESC" Then
        DoCmd.RunCommand acCmdSortAscending
    Else
        DoCmd.RunCommand acCmdSortDescending
    End If
    Me.OrderByOn = True

End Sub

【讨论】：