オプショングループ

並替

 Private Sub opt並替_AfterUpdate()
 
   Select Case opt並替
   
   '降順
       Case 1: OrderBy = "[ID],[ID]"
       Case 2: OrderBy = "[AA],[ID]"
       Case 3: OrderBy = "[BB],[ID]"
       Case 4: OrderBy = "[CC],[ID]"
   End Select
 
   OrderByOn = True
 
 End Sub