テーブルが100、クエリが200ほどあるデータベースを使用してます。そのほかにレポート、フォーム、マクロもそこそこあります。これらのテーブル名やクエリ名の一覧表を作成したいのですがどうすればいいでしょうか。出力はファイル(たとえばExcelなど)でもプリントアウトでもかまいません。初心者なのでできるだけ簡単方法を教えていただければ助かります。よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (3件)

#1の情報を使わせてもらって、実際やってみました。

質問者が、#1の回答の先が、判るレベルの人なら良いのだが、そこが心配になって、あるサイトのコードを修正して書いておきます。
http://www.accessclub.jp/sql/07.html
ーー
アクセスのオブジェクトの「モジュール」に
Sub MySQLSelect()
On Error GoTo エラー
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim mySQL As String
Set db = CurrentDb()
  ' SQLを記述します。
'mySQL = "SELECT * FROM 生徒;"
mySQL = "SELECT Name FROM MsysObjects WHERE Left([Name],4) <> 'Msys' AND Type = 1;"

Set qdf = db.CreateQueryDef("Q_sample", mySQL) ' Q_sampleを作成します。

DoCmd.OpenQuery qdf.Name ' クエリを開きます。

db.Close
Set db = Nothing

Exit Sub
エラー:

If Err.Number = 3012 Then
db.QueryDefs.Delete "Q_sample" ' Q_sampleを削除します。
Resume
Else
MsgBox Err.Number & " : " & Err.Description
End If

End Sub
を作る(コピペする)
ーー
そして実行する。
テーブル名の一覧が表示される。
クエリ一覧なら#1でご紹介のサイトのクエリ一覧のように、上記WHERE条件のところを変える。レポート以下の場合同じくWHERE条件を修正。
ーーーー
Excelのシートに移すのは、クエリの結果(たとえばテーブル名一覧)をコピーして、Excelシートに貼り付けると良い。
ADO、DAOでクエリの結果をプログラムでExcelのセルに書き込む方法が有るが、>初心者なので、ならVBAの経験も無いだろう。この件も書かれたコードの勉強は大変だが、質問の課題限定という事で、言われたとおりやって、結果だけ取る、という意味で回答する。
ーー
VBAを使わない方法では
クエリー新規作成で、どれかテーブルでクエリを作る。
テーブル部(上部)で右クリックで「テーブルの削除」
表示ーSQLビューで、SELECT文をそっくり
SELECT Name FROM MsysObjects WHERE Left([Name],4) <> 'Msys' AND Type = 1;
に置き換え(プログラムの中のSQL文の文字を貼り付けたもの)
これを実行してもテーブル一覧がクエリの結果として出てくるでしょう。
    • good
    • 0
この回答へのお礼

回答ありがとうございます。
なんとか理解できそうなのでやってみます。

お礼日時:2009/04/23 23:23

gemini55さん 今日は!


回答者のimogasiさんから既に回答が出ておりますので。
Accessのサイトをご紹介致しますので今後の参考にされては?
■Accessサイトリンク集↓
http://www.accessclub.jp/linksite/index.html
このサイトが参考に為りそうです。
■Accessのオブジェクト名一覧を出力する方法 《テーブル名・クエリ名・フォーム名・レポート名等の一覧》 (Ac97,Ac2000,Ac2002)↓
http://www.nurs.or.jp/~ppoy/access/access/acEt01 …
このサイトが最も判り易いかも知れません。
ご参考までに。
    • good
    • 0
この回答へのお礼

回答ありがとうございます。
Accessのオブジェクト名一覧を出力する方法は大変参考になりました。

お礼日時:2009/04/23 23:28

こんにちは。



 下記サイトをご参照下さい。
  http://www.nurs.or.jp/~ppoy/access/access/acQ017 …
  システムテーブルを検索すれば表を作れます。

では。
    • good
    • 0
この回答へのお礼

回答ありがとうございます。
頑張ってみます。

お礼日時:2009/04/23 23:29

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qテーブル構造を支える脚の材料と太さの計算方法

テーブル構造を支える脚の材料と太さの計算方法

こんにちは。テーブル構造を支える脚の材料と太さの計算方法と材料を教えて頂きたいです。

条件は:
条件1中央の脚一本でテーブル板を支える
条件2テーブル板の重量は決定済み、M=6kg
条件3脚の下の固定は別途設計するので、倒れることは考えなくても良い
条件4脚とテーブル板の固定は別途設計するので、倒れることは考えなくても良い
条件5テーブルは携帯式なので、脚を出来るだけ細くできればよい
と考えています。

質問1十分な強度を得られ、しかも軽量な材質は何でしょうか?
質問2そのときの脚の太さの計算方法は?

条件3と4で述べたとおり固定方法も考える必要もあるのですが、とりあえず脚が決まってからの方が良いと思いましたので、質問させていただいている次第です。

ご教授ありがとうございます。

Aベストアンサー

計算式
(耐荷重+固定荷重)÷木材の許容圧縮応力度÷脚本数=必要断面積(cm2)
上記計算式でテーブル脚をルート断面積で正方形の脚の寸法が求められます。
耐荷重とは、貴方がテーブルに上げる最大重量です。(kg又はN)
木材の許容圧縮応力度は、材料強度です。
建築基準法同施行令に参考になる材料強度表が書かれています。
材種を決めて計算する事が大事です。
ご参考まで

QAccessでテーブル名やクエリ名一覧の抜き出し

Accessでテーブルやクエリを沢山(100個以上?)使っております。

そこで、テーブル名やクエリ名の管理をしたいので、テーブル名(クエリ名)の一覧を抜き出したいのですが、どうすればいいのでしょうか?
または、そういうことは無理なのでしょうか??(;O;)

1個づつコピーペーストでテールブル名をエクセルに貼り付けて行こうかな?と思ったのですが、さすがに数が多すぎるので困っております。

できるだけ簡単な方法がいいのですが、もしなければVBAでもいいです。

おわかりの方がいらっしゃいましたら、よろしくお願いします。

Aベストアンサー

・クエリを新規作成
・以下SQLを貼り付け
SELECT MSysObjects.Type, MSysObjects.Name, MSysObjects.Flags
FROM MSysObjects
ORDER BY MSysObjects.Type, MSysObjects.Name;
・デザインビューで表示
あとは、TypeとFlagsの条件を変えてあげれば一覧できます。

QDIYテーブルの折りたたみ脚について

天版を蝶番で付けて真ん中を繰り抜き、七輪テーブルを作成しました。
現状は、余っているキャンプ用テーブルの脚をガムテープで固定しています。
ユニフレームの焚き火テーブルと同じ高さの折りたたみ脚を付けたいと思ってますが良いアイデアもしくは脚の販売先はありますでしょうか?
焚き火テーブルの高さは37cm、七輪テーブルの天版の厚さは約1.5cmなので、最低でも35cmの脚が必要になるかと思います。30cmの脚は結構見かけるのですが・・・。

Aベストアンサー

市販品にこだわらず、木などで作れば高さ自由ですよ。

1)別板を2枚クロスさせて天板を置く
2)蝶番つけて折りたたみ足にする
3)ナット埋めてねじ込みにする
4)テーブルを箱型にして、七輪+火種のケースとしてもそのまま使う

↑これらは高さの微調整にはアジャスタフットなりが必要ですが、
こういうの↓はアジャスタ機能もってますね

5)パイプの入れ子構造にして、内パイプは外パイプとねじ止めする。
 または外側の先端に割りをいれておいてクランプやホースバンドなどで締めて内パイプを固定する
6)天板の下にハの字形に広がるように左右脚をつけて、間をロープでつないで開き具合を調節する


ま、私なら4か6にしますね。
6のみ、簡単に絵にしておきます。

Qテーブル名とクエリ名は一緒にできないのでしょうか?

アクセス2003を使っています。
オブジェクト:テーブルに「テーブル1」を作って
フォームにも「テーブル1」と言うフォームを作れました。
しかしクエリには「テーブル1」と言うクエリは作れませんでした。

テーブル名とフォーム名は一緒にできるけど、
テーブル名とクエリ名は一緒にできないのでしょうか?
混乱しています。

Aベストアンサー

出来ません。

クエリーは言い方を変えると「仮想表」になり、扱いはテーブルと一緒です。

クエリーってSQLで書くと
SELECT * FROM テーブル1 ORDER BY 項目1
となりますよね。
テーブル1にソート条件や抽出条件をつけたものなわけですから、扱いはテーブルと一緒ということになります。


だから、クエリー名には頭に「Q」(Queryの頭文字)をつけてテーブルと個別識別できるようにするのが通例です。

Qテーブルの脚を取り換えたい

ローテーブルの脚を取り換えて、脚の長いダイニングテーブルにしたいです。
幕板付きなので幕板はそのままで、脚だけを取り換えようと思ってます。

テーブルの画像を添付しました。
左画像はテーブルの正面から右側の脚にかけて、右画像は同じ部分をテーブル裏側から撮影してます。

1本の脚付近には、3本のネジがあります。
そのうち2本(銀色のネジ)は、幕板を天板にとりつける為のものだと思います。
あとの1本が脚と幕板を固定してるものだと思います。

このテーブルを組み立てた時の様子は忘れたのですが
ホゾ(?)みたいに凹凸で組まれていてネジは補強なのだと思います。
でも私にはそんな技術はありませんので
ネジで幕板と脚を固定するつもりです。

幕板は飾りとして
脚と天板の接する部分にそれぞれ金物をつけて取り付ける。

これで大丈夫でしょうか?
結構な重量のあるテーブルですので
高さのある脚にした時の強度が心配です。
他に何かよい方法はありますか?

また、家具のリメイクをしてるお店に頼む場合、
今ある幕板の凹凸に合わせて脚をつくってもらってホゾ組にしてもらうとしたら
どれくらいの値段がするのでしょう?
1万円で済むなら頼んだ方が良いと思ってますが
そんなお安くないですよね?
運送費だけでも相当な事になりそうで、現実的ではない気はしてるのですが・・・

ローテーブルの脚を取り換えて、脚の長いダイニングテーブルにしたいです。
幕板付きなので幕板はそのままで、脚だけを取り換えようと思ってます。

テーブルの画像を添付しました。
左画像はテーブルの正面から右側の脚にかけて、右画像は同じ部分をテーブル裏側から撮影してます。

1本の脚付近には、3本のネジがあります。
そのうち2本(銀色のネジ)は、幕板を天板にとりつける為のものだと思います。
あとの1本が脚と幕板を固定してるものだと思います。

このテーブルを組み立てた時の様子は忘れたので...続きを読む

Aベストアンサー

プロに依頼は 費用的に 全く無理ですから

ご自身で ホ-ムセンタ-で角脚も 丸い脚も

座金も 販売されていますので

取り付けられれば 1万で済むでしょう。

写真の幕板は無視することに成ります。

幕板を利用して脚を固定する方法は 様々ありますが

隅木 又は 隅金具でボルト締めが簡単です。

プロに依頼は其れなりの費用が掛かります。

Qテーブル作成クエリで作成したテーブルに連番をふりたい

こんにちは。
ACCESS97を利用しているのですが(OSはWin2000)、
クエリーで作成したテーブルに連番を振ることは出来ますか?

テーブル作成クエリーで5フィールドのテーブルを作成するようにしているのですが、できあがったテーブルの先頭フィールドに1から連番をふりたいのです(計6フィールドのテーブルをクエリーから作成したい)。
イメージとしては、デザインビューでテーブルを作成したときに、1フィールド目にオートナンバー型を利用するのと同じ感じで。。

方法が思いつきません。。
よい方法がありましたらご協力をお願い致します

Aベストアンサー

> クエリーで作成したテーブルに連番を振ることは出来ますか?

その出来たテーブルをデザインビューで開き、先頭フィールドに
「オートナンバー型」のフィールドを追加すれば、自動的に 1から
番号が振られますが、これでは、ダメなのですか?

質問の内容からは、そのように取れますが、そんな簡単なことでは、
ないのかも知れませんね。

Q無垢テーブル固定のねじが使用半年で折れ落ちたり、脚がとれたりするものですか?

無垢のダイニングテーブルを半年前に購入しました。素材はナラだったと思います。3日前にいすの上に折れたねじがあり、よく見るとテーブルのねじが折れて落ちたものでした。購入店に連絡すると、このようにねじが折れ落ちることはよくあるといわれました。修理にこられ、折れた場所の斜めにねじ固定されました。よく見るとほかのねじも数本抜けていました。修理のときにテーブルの脚も緩んでいたのでしめてもらいましたが、翌日テーブルと脚に隙間がある事に気づき再度締めようとしたら脚がとれました。再度修理してもらいましたが、このように半年でねじが折れたり、ぬけおちたり、脚が取れたりするものでしょうか?

Aベストアンサー

購入から半年では ねじが折れ落ちることは通常ありません。

よくあるなんていうのは 言い逃れです。

欠陥品ですね。商品の取替え交渉です。

QAccessのテーブルから成績一覧表を作成したい。

こんにちは。

ExcelはVBAまで使えるレベルですが、Accessはまったくの初心者です。

基本的なことだと思うのですが、Access2003の使い方で質問です。何をどう調べていいのかわからないので、お願いします。

Accessのテーブルで「名簿」、「成績」、「科目名」の3つのテーブルがあります。

それぞれのテーブルのレコードの内容は以下の通りです。
「名簿」--- 番号(5桁で1年1組1番は10101となっています)、氏名
「成績」--- 番号、氏名、成績(5段階です)、科目番号(1~100まで)
「科目名」 --- 科目番号、科目名

以上のテーブルを使って、エクセルの表で成績一覧表を作るようなことは可能なのでしょうか?エクセルだとA列に番号、B列に氏名、C列以下が科目名が入り、それぞれの生徒の成績が横並びになりますが、そのように表示させることは可能かどうかということです。

Accessのことはよくわからないので、補足が必要であれば指摘して下さい。

よろしくお願いします。

Aベストアンサー

まず、テーブルの正規化がちょっとおかしいです。
『氏名』は、多分、生徒さんのお名前と思いますが名簿と成績の両方にあります。
成績テーブルに『氏名』は必要ありません

で クエリーで
名簿テーブルの番号(このフィールド名も『名簿ID』とか『生徒番号』にしたほうが後々わかりやすい)と成績テーブルの番号
成績テーブルの科目番号と科目テーブルの科目番号
を結合するだけでご希望のクエリーは作成できます。
で、この場合 成績テーブルがメインのテーブルですので成績テーブルから矢印を引くようなクエリーにしてください。
万が一 生徒が登録されていない とか 科目が登録されていない 場合でもその様にしたら 生徒名、科目名が空白には成りますが表としては、行が存在しますのでマスター(この場合は、名簿、科目名)が未登録であることが解るようになります。

Qテーブルの別売りの脚について

もうじき引っ越す予定です。
現在は脚の短いテーブルで座布団での生活ですが、
新しい場所がフローリングのLDKのためダイニング
のセット(椅子とテーブル)にしようかな、と
考えました。

しかし、現在のテーブルも捨てがたく、できれば
このテーブルの脚だけ長いものに交換できないか
と考えています。(脚にはネジが、テーブルには
ネジ穴があるタイプです。)

どこかで、テーブルの脚を別売りしてくれるお店
などありませんでしょうか?

ネットでもリアルでもかまいませんが、リアルの
場合、首都圏で紹介していただけると助かります。

よろしくお願いします。

Aベストアンサー

東急ハンズ渋谷店、
http://shibuya.tokyu-hands.co.jp/guideonfloor_back.html

4Aの家具 組立家具で各種取り揃えていますよ。

QAccessのテーブルを外部データでとりこんだ後テーブル名を変えたら

いつもお世話になっております。

エクセルの参照のためのワークシートに、Accessのテーブルを外部データとして取り込んでいます。

今まではデータの更新をすればAccessのデータの最新のものに更新できていたのですが、テーブルの名前を変えたら、更新ができなくなりました。

この場合、もう一度最初から設定し直すしか方法はないでしょうか。
よろしくお願いいたします。

Aベストアンサー

エクセルで取り込むVBAのところで、テーブル名を変更すれば問題ないと思いますが。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報