ACCESS - VBA設計

欄位排序設計 -標題遞增 / 遞減
Private Sub 客戶標籤_Click()
If x = 1 Then
DoCmd.GoToControl "[客戶名稱]"
DoCmd.RunCommand acCmdSortAscending
x = 0
Else
x = 1
DoCmd.GoToControl "[客戶名稱]"
DoCmd.RunCommand acCmdSortDescending
End If

End Sub