Private Sub cmdSort受注コード_Click()
'[受注コード]ボタンクリック時

  With Me!受注_sub.Form
    '並べ替えの基準とするフィールドを設定
    .OrderBy = "受注コード"
    '並べ替えを実行
    .OrderByOn = True
  End With

End Sub

Private Sub cmdSort得意先コード_Click()
'[得意先コード]ボタンクリック時

  With Me!受注_sub.Form
    '並べ替えの基準とするフィールドを設定
    .OrderBy = "得意先コード"
    '並べ替えを実行
    .OrderByOn = True
  End With

End Sub

Private Sub cmdSort社員コード_Click()
'[社員コード]ボタンクリック時

  With Me!受注_sub.Form
    '並べ替えの基準とするフィールドを設定（ここでは降順）
    .OrderBy = "社員コード DESC"
    '並べ替えを実行
    .OrderByOn = True
  End With

End Sub