アクセスのレポートで3つの条件で並べ替えたいのですが（汗）

質問

皆さん　こんばんわ
いつもお世話になります。今日は、下記の構文に追加するなどしてレポートの並べ替えをしたいのですが、判りません。教えていただけたら嬉しいです。
以下　　棚番号　枝番　小枝　の名前を付けたロケーション番号（3桁の数字）（棚番号　１０１　枝番　２０
小枝　４）といった具合に割り振ったのですが印刷の時番号順に並べ替えがしたいです。簡単にできそうな気もするのですがよくわからないので教えていただきたいです。宜しくお願いいたします。
ちょっと本に載っていた構文を書きましたがもっと他にも有るようでしたらそう言うものでも良いです。
宜しくお願いいたします。

Private Sub Report_Open(Cancel As Integer)

Dim stKey As String
stKey = InputBox("昇順で並べ替えるキーを入力してください")
Me.OrderBy = stKey

Me.OrderByOn = True

End Sub

回答No.1

bonaron · ベストアンサー

InputBoxに
棚番号,枝番,小枝 とか
小枝 DESC,枝番,棚番号 DESC
と言う具合に入力すればOKです。

DESC を指定した項目は降順(大→小)になります。

ただし、レポートに「並べ替え/グループ化の設定」があれば、
そちらの設定が優先されます。

お礼

bonaronさん　こんにちわ

どうもありとうです、意外にあっさり出来てしまいました。助かりました。

回答No.2

noname#22222

Private Sub コマンド_在庫一覧プレビュー_Click()
　　DoCmd.OpenReport "在庫一覧", acViewDesign, , , acHidden
　　Reports("在庫一覧").RecordSource = "Select * from 在庫一覧 Order by 小枝"
　　DoCmd.Close acReport, "在庫一覧", acSaveYes
　　DoCmd.OpenReport "在庫一覧", acViewPreview
End Sub

一度、デザインでレポートを開き、

(1)レコードソースを指定する。

又は

(2)Order By を指定するか。

どの後、レポートを開く。
これで、ソート順位を制御できます。

お礼

s_huskyさん　こんにちわ

どうも有り難うございます。試してみます。いろんな方法があると思いますので一番良いのを使いながら決めていきたいです。蟻が乙ございました。