Ｐａｇｅ 502 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼画像ファイルのテーブルを生成したい ｔｅｔｏ_p 04/1/8(木) 17:00 ┣Re:画像ファイルのテーブルを生成したい しのしの 04/1/16(金) 10:39 ┃ ┗Re:画像ファイルのテーブルを生成したい teto_p 04/1/16(金) 19:36 ┃ ┗Re:画像ファイルのテーブルを生成したい しのしの 04/1/16(金) 22:55 ┃ ┣Re:画像ファイルのテーブルを生成したい teto_p 04/1/19(月) 9:28 ┃ ┗Re:画像ファイルのテーブルを生成したい ｔｅｔｏ_p 04/2/3(火) 18:02 ┗Re:画像ファイルのテーブルを生成したい ちん 04/1/22(木) 16:16 ┗Re:画像ファイルのテーブルを生成したい teto_p 04/1/23(金) 23:21 ─────────────────────────────────────── ■題名 ： 画像ファイルのテーブルを生成したい ■名前 ： ｔｅｔｏ_p ■日付 ： 04/1/8(木) 17:00 -------------------------------------------------------------------------
| こんにちは。 どなたかご存知でしたらご教示ください。 あるフォルダに写真などの画像ファイルが整理されているとします。 このフォルダの画像をＡｃｃｓｅｓｓのフォームで表示させるために、画像テーブルを作ることにしました。 画像の数が多いため手作業でテーブルを作るのは無理なので、自動的にテーブルを生成したいと思います。 また、画像のフィルダはファイルを開くダイアログで選択できるようにしたいのですが、このようなことが可能でしょうか？ Ａｃｃｅｓｓは２００２か２００３を想定しています。 よろしくお願いいたします。 |
| ｔｅｔｏ_p さん こんにちは。 もう、時間が経っているので、解決されているかもしれませんね。 もし、解決されているようでも、 これをみた誰かのために、解決策をご提示してくださると嬉しいです。 私自身は、ピクチャを取り扱ったことがないのですが、 レコードへピクチャのパスを格納する方法を前提としてお話させていただきます。 (当方、ACCESS2000なので) >画像の数が多いため手作業でテーブルを作るのは無理なので、自動的にテーブルを生成したいと思います。 「テーブル生成」ですか？ 「自動的にレコード追加」では？ テーブル生成してからレコード追加ですか？ >また、画像のフィルダはファイルを開くダイアログで選択できるようにしたいのですが、このようなことが可能でしょうか？ 画像を保管してあるフォルダを特定するためですね。 A)ファイルを開くダイアログで、ファイルを指定し、 その親フォルダを取得するのですか？ B)ファイルを開くダイアログで、複数ファイルを指定し取得するのですか？ C)フォルダを指定するダイアログでフォルダを取得するのですか？ 3つとも可能です。 その後、取得したパス分だけ、INSERT文で、レコード追加することも可能です。 |
| しのしのさん、こんばんは。 諦めかけていたので、とても嬉しいです。 宜しくお願いします。 >>画像の数が多いため手作業でテーブルを作るのは無理なので、自動的にテーブルを生成したいと思います。 >「テーブル生成」ですか？ 「自動的にレコード追加」では？ > テーブル生成してからレコード追加ですか？ テーブルは準備してあるものを使い、そこにレコードを追加できればよいと考えています。 >>また、画像のフィルダはファイルを開くダイアログで選択できるようにしたいのですが、このようなことが可能でしょうか？ > 画像を保管してあるフォルダを特定するためですね。 > C)フォルダを指定するダイアログでフォルダを取得するのですか？ Ｃ）の方法が良いと思います。 ＥＸＣＥＬなら自分で出来そうなのですが、ＡＣＣＥＳＳのＶＢＡは不慣れなので宜しくお願いします。 |
| 了解いたしました。 確認の追加です。 1)このテーブルというのは、MDBファイルですよね。（それとも他のDB？） 2)APIを使える環境（つまりWINDOWS)ですね。 3)このテーブルの主キーのタイプは何ですか？ 4)このテーブルを同時に複数の人間が触る可能性がありますか？ 5)取得したフォルダのみの検索でいいですか？（サブフォルダの検索不要？） 6)ピクチャの拡張子は、なんですか？ >ＥＸＣＥＬなら自分で出来そうなのですが、ＡＣＣＥＳＳのＶＢＡは不慣れなので宜しくお願いします。 mdbファイルのテーブルにレコードを追加すること自体は、EXCELでも可能です。 私もEXCEL派なので、今回ご提示できるコードも、少し改造したら、 EXCELからも使用できるものになると思います。 |
| おはよう御座います。 今日も宜しくお願いいたします。 >1)このテーブルというのは、MDBファイルですよね。（それとも他のDB？） はい、AccessのMDBです。 >2)APIを使える環境（つまりWINDOWS)ですね。 はい。 >3)このテーブルの主キーのタイプは何ですか？ オートナンバーで連続番号を振れば良いと考えています。 写真のファイル名に意味を持たせています。 ファイル名が重複しないように、ファイル名をセットしたときの日時も持っています。 （ファイル名が重複しないなら、これをキーにした方が良いですか？） >4)このテーブルを同時に複数の人間が触る可能性がありますか？ 個人のパソコンで使用します。 >5)取得したフォルダのみの検索でいいですか？（サブフォルダの検索不要？） 実は写真をサブフォルダに分類していますので、サブフォルダまで検索して、ファイルまでのパスを取得したいです。 >6)ピクチャの拡張子は、なんですか？ .JPGです。 宜しくお願いいたします。 |
| ExcelでﾌｧｲﾙのPATH一覧表を作ることにしました。 それをAccessにインポートかリンクして目的を果たそうと思います。 ありがとうございました。 |
| ▼ｔｅｔｏ_p さん： >こんにちは。 >どなたかご存知でしたらご教示ください。 > >あるフォルダに写真などの画像ファイルが整理されているとします。 >このフォルダの画像をＡｃｃｓｅｓｓのフォームで表示させるために、画像テーブルを作ることにしました。 >画像の数が多いため手作業でテーブルを作るのは無理なので、自動的にテーブルを生成したいと思います。 >また、画像のフィルダはファイルを開くダイアログで選択できるようにしたいのですが、このようなことが可能でしょうか？ >Ａｃｃｅｓｓは２００２か２００３を想定しています。 > >よろしくお願いいたします。 こんにちは、ちんといいます。横から失礼します。 ファイル名を検索するのであれば、CreateObjectがあります。 Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder("c:\") <--ディレクトリーを指定する。 Set fc = f.Files For Each f1 In fc s = s & f1.Name <--- 検索できたファイル名 s = s & vbCrLf Next MsgBox s 提案ですが、 検索したファイル名をＥｘｃｅｌ表で管理したらどうでしょう？ Ｅｘｃｅｌにはハイパーリンクがあるので、 ファイル名をリンクしておけば、マウスクリックで、 画像がすぐ表示できますよ。 以上、 |
| ちんさん、ありがとうございます。 Ｅｘｃｅｌでファイルリストを作成して、ハイパーリンクで画像を見るという方法だと、考えていることと違うのです。 画像を、あるフォーマットのレポート（１枚に５つの画像を並べる）にして印刷するのが目的なのですが、Ｅｘｃｅｌで試そうとしたのですが、レポートならやはりＡｃｃｅｓｓ？と思って、今回の質問をしたのでした。 そんな訳でせっかく頂いたご提案ですが、今回はちょっと使えません。 ありがとうございました。 |