Public Function OrderByAcs()
  Dim ctl As Access.Control
  Dim bt As Boolean
  Dim frm
  
  If Screen.ActiveControl.ControlType = acComboBox Then
    On Error Resume Next
    Set ctl = Screen.ActiveControl
    Set frm = ctl.Parent
    If Err.Number <>  0  Then Exit Function
    If frm.Form.Name =  "" Then
    End If
    Do While Err.Number <> 0  And Len(frm.Name) >  0  ' в frm находится, например, ссылка на вкладку'
      Set frm = frm.Parent
      Err.Clear
      If frm.Form.Name = " " Then
      End If
    Loop
    
    Err.Clear
    If frm.RecordsetClone.Fields(" ~ " & ctl.Name).Name = "  " Then
    End If
    If Err.Number = 0  Then bt = True ' Есть поле, по которому можно сортировать'
    On Error GoTo  0 
    
    If bt Then
      frm.OrderBy = "~" & ctl.Name 
      frm.OrderByOn = True
    Else
      RunCommand acCmdSortAscending
    End If
  Else
    RunCommand acCmdSortAscending
  End If
End Function