テーブルデータの並び替えについて。

質問

テーブルデータの並び替えについて。

環境:ACCESS2000

状況:テーブル2つ（マスターテーブル、マスターコピー）
　　　メインフォーム上にサブフォームを置き、マスターコピーのデータを
　　　表示させているのですが、そこで並び替えをする予定。
　　　マスターテーブルのフィールド
　　　　種類　　／　　サイズ　　／　　商品名
　　　※マスターコピーも同様（マスターテーブルを全てコピーのため）

現在のコード:
Dim db As Database
Set db = CurrentDb
db.Execute "DELETE * FROM マスターコピー"
db.Execute "INSERT INTO マスターコピー SELECT * FROM マスターテーブル"

SELECT 種類, サイズ, 商品名 FROM マスターコピー ORDER BY 種類, サイズ　←ここでエラー

エラー内容・・・構文エラー

まだACCESS未熟のため完全には理解できておらず
ネット検索等で調べてコードを組んでいるため
何が間違っているのかわからず、ご質問させて頂きました。

お手数お掛けしますが、何卒ご教授の程宜しくお願い致します。

回答No.3

sykt1217 · ベストアンサー

調べてみると、どうやらExecuteでは抽出は無理なようです。

http://www.accessclub.jp/sql/05.html
＞選択クエリは、Excuteメソッドを用いることはできません。アクションクエリのみ、Excuteメソッドで実行が可能です。

同様に、RunSQLも選択クエリは使用できないようなので、

------------------------------------------------------------
Dim strSQL As String
Dim db As Database
Dim rs As Recordset

Set db = CurrentDb

strSQL = "SELECT 種類, サイズ, 商品名 FROM マスターコピー ORDER BY 種類, サイズ
Set rs = db.OpenRecordset(strSQL)
------------------------------------------------------------

こうなりますね。
私は基本クエリを作成してQueryDefsを使っちゃうもので＾＾；
No1の回答は失礼いたしました。

＞bin-chanさん
セミコロンはなくても大丈夫なはずです。

補足

syktさんありがとうございます。

ご提示頂いたコードでもエラー（構文エラー）が出てしまいました。

何がいけないのでしょうか・・・？

回答No.5

sykt1217

思いっきり構文エラーと書かれていますね＾＾；；；；
もう本当に失礼の連続、申し訳ないです。

お礼

sykt1217さんいろいろありがとうございます。

自分でもいろいろ調べ、試したのですが駄目でした。

今回は少し妥協して、フォームデザオインビューのプロパティ内にある
並び替えに項目を入れて対応する事にしました。

たぶん諦めず調べていけば、何が悪かったのか
もしかすると違う方法等見つかるかもしれませんので
これからも気に掛けながら勉強していこうと思います。

ご返事が遅くなりすみませんでした。
ＧＷ中も試行錯誤していたもので・・・。

お手数お掛け致しました。

また行き詰った時があれば、宜しくお願い致します。

回答No.4

sykt1217

＞ご提示頂いたコードでもエラー（構文エラー）が出てしまいました。

どこで、何というエラーがでますか？

コピペしただけであれば、
＞strSQL = "SELECT 種類, サイズ, 商品名 FROM マスターコピー ORDER BY 種類, サイズ
ここの時点でコンパイルが通りませんね。
strSQL = "SELECT 種類, サイズ, 商品名 FROM マスターコピー ORDER BY 種類, サイズ"
（ダブルクォーテーションで締めてませんでした。）

失礼いたしました。

それともデバッグ時（実行時）にエラーが出ますか？

回答No.2

bin-chan

SELECT 種類, サイズ, 商品名 FROM マスターテーブル ORDER BY 種類, サイズ
だと動くのですか？

動くなら、テーブルコピー時に何か起きてるということですが、実は元もとおかしいとか。

> SELECT 種類, サイズ, 商品名 FROM マスターコピー ORDER BY 種類, サイズ　←ここでエラー
文末に;(セミコロン)無くて大丈夫でしたっけ？

補足

bin-chanさんありがとうございます。

もとのSELECT文ではエラーでるため、1度も動いた事はありませんでした。

ネットで色々調べているとセミコロンはなくても大丈夫そうです。（確証はありませんが）

回答No.1

sykt1217

実行時エラーではないので、SQLのエラーではないと思います。

Executeした結果を格納していないとか・・ありませんか？
Dim rs As Recordset
set rs = db.Execute "SELECT 種類, サイズ, 商品名 FROM マスターコピー ORDER BY 種類, サイズ"

補足

sykt1217さん　いつもありがとうございます。

コピー用のテーブルを開くとデータは入っておりました。

今回ご提示頂いた
Dim rs As Recordset
set rs = db.Execute "SELECT 種類, サイズ, 商品名 FROM マスターコピー ORDER BY 種類, サイズ"
に書き換えても構文エラーとなってしまいました。

なぜなのか未だにわかっておりません。