Question

在ACCESS中的一个表单中，我希望用户能够通过单击相同的按钮来设置ASC和DESC。我的代码只按ASC排序

Public Function Tri_par_vehicule()

  If OrderBy = "Véhicules ASC" Then
    DoCmd.SetOrderBy "Véhicules DESC"
  Else
    DoCmd.SetOrderBy "Véhicules ASC"
  End If
End Function

Answer 1

如果我得到它，您希望每次调用该函数时都反转该顺序。您可以通过将最后一个值保存在静态变量中来完成此操作：

Public Function Tri_par_vehicule()
    Static OrderBy as String
    If OrderBy = "Véhicules ASC" Then
        DoCmd.SetOrderBy "Véhicules DESC"
        OrderBy = "Véhicules DESC"
    Else
        DoCmd.SetOrderBy "Véhicules ASC"
        OrderBy = "Véhicules ASC"
    End If
End Function

使用和if访问Vba Setorderby ASC或DESC

1 个答案: