Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1015 / 9994

←次へ　｜　前へ→


	【12282】Re:特殊な並べ替え

巻 - 13/2/15(金) 16:06 -


	引用なし

	パスワード

あれから急に思いついて一応自己解決したのですが、あまりスマートじゃないような気がします。

SELECT Val(Year(DateSerial(Year([日付])+(Month([日付])<4),4,1)) & Format([コード],"0000")) AS 日付コード, 発注テーブル.日付, 発注テーブル.コード, 発注テーブル.部署コード, 部署マスタ.部署
FROM 部署マスタ INNER JOIN 発注テーブル ON 部署マスタ.部署コード = 発注テーブル.部署コード
ORDER BY Val(Year(DateSerial(Year([日付])+(Month([日付])<4),4,1)) & Format([コード],"0000")), 発注テーブル.日付, 発注テーブル.コード;

もしよろしければもっとスマートな方法を教えていただけると嬉しいです。

※質問投げかけておいてから、突然思いつくのでよく自己レスになってしまいます。これもスマートじゃないですよね、本当に申し訳ないです。

203 hits

▼

【12281】特殊な並べ替え 巻 13/2/15(金) 13:41