三流君 ken3のmemo置き場

三流プログラマーのメモ書きです。主にVBAやWindowsの話題が多いです

挨拶・自己紹介:
失敗続きのAB型の変わり者 :三流プログラマー Ken3です
フリーのエンジニア・個人事業主です・・と書くと聞こえはイイが(それとなくカッコよく聞こえるが)、 現在は小さな案件の受注請負 と 短期派遣 で 日々つつましく?ほそぼそと暮らしてます。
よく検索されるキーワード: [質問回答XXXXさんへ] [CreateObject] [VBA] [JRA競馬オッズ]

Access クエリでテーブルを別名(AS 別名)使用して 同じテーブルをつなげる そんなクエリーを作成してみた

f:id:ken3memo:20220317220404j:plain

知恵袋の質問にAccessのおもしろそうな質問があったので、回答してみた。
detail.chiebukuro.yahoo.co.jp
↑他の回答者がサクッとSQL文を載せているので、他の回答も参考にしてみてください。

DATAテーブル
NO,MOJI
0001, A
0001, B
0002, B
0003, A
0004, C
0005, A
0005, B
0005, C

から 条件AのNOを取り出し、
下記の結果みたいに 同じ番号の文字を表示する

結果↓
0001, A
0001, B
0003, A
0005, A
0005, B
0005, C

にチャレンジしてみます。

チャレンジ結果
https://youtu.be/cr9-Cl7Kpas
↑いつもの あのあの うるさい手順動画です。

1.区切り位置でExcel
2.ExcelからAccessへCOPY
3. AS でテーブル名を条件用に変える※プロパティから変えてもOK
FROM DATA AS 条件用
4.Aで絞り込む
WHERE (((条件用.MOJI)="A"))
5.同じテーブルをクエリに追加して 絞り込んだNOでつなげる
FROM DATA AS 条件用 LEFT JOIN DATA ON 条件用.[NO] = DATA.[NO]
6.結果確認、表示を調整、ソートを追加 ORDER BY DATA.[NO], DATA.MOJI;

作成したSQL

SELECT DATA.[NO], DATA.MOJI
FROM DATA AS 条件用 LEFT JOIN DATA ON 条件用.[NO] = DATA.[NO]
WHERE (((条件用.MOJI)="A"))
ORDER BY DATA.[NO], DATA.MOJI;

で勝負。ってなんの勝負だよ・・・・

https://youtu.be/cr9-Cl7Kpas (チャレンジ結果と同じ動画URLです)
↑こんな感じでデータ移行して、クエリーを作っていたりします。
 お時間のある時に頭から見て笑ってください・・・

Ken3 ホームページ 目次

分類:HPを大きく分けると4つの柱(分類)です。
・[Excel/Access VBA]の解説
・[ASP(Active Server Pages)]の解説。
・[元コンビニ店長時代の話]が弟に巻き込まれ、失敗した脱サラ、畑違い?の仕事で失敗。
・[プログラマーの愚痴]では、あまり見せたくない三流プログラマーの内面かな。
三流君を踏み台にする
主に上記4つの分類でHP作成やメルマガの発行を行ってます。
※更新頻度が落ちていて情報の鮮度が悪いです。



本当に三流なんです(笑):たまにスゴイですねなんて言われることもありますが、
真実は→ [三流君の真実は...] ←を初めに見てくださるとわかると思います。
(からくりは、成功例↑しか載せてなくて ヒドイ失敗例はお蔵入り迷宮入りが多かったりします)