質問: ACCESS2010で写真のパスをテキストに取得して、データとして保存します。 それと、写真を表示のボタンをつけて、その写真をフォームのテキストに 表示したいと思っています。 ACCESS VBAのサンプル等ありませんか? 宜しくお願いします
回答: 質問の意図がよくわからないが、補足しては? 小生は全く誤解しているかもしれないが、その際は後免。 >写真のパスをテキストに取得して 挿入者やVBAでやっている場合は挿入操作者か、VBAのコード作成者しか画像ファイルのパス名やファイル名は判らないと思います。 >テキストに取得して、データとして保存します。 は判っている人がコードを組むのですか? >写真を表示のボタンをつけて、その写真をフォームのテキストに 表示したいと思っています。 テキストに保存とはどういうこと? パスとファイル名のテキスト(文字列)をテキストボックスに表示するということ? 写真は画像ファイルで、テキストではなかろう。 == エクセルのシートやワードの文書、アクセスのフォームなどには、実行中に画像は見えて居ても、WEBのHTML文のように画像ファイル名は(テキストでは)埋め込まれていないのでは、と思った次第。 === フォームに写真を表示したいということなら、こういう機能のある、「イメージ」などのコントロールをつかえばよいので、AccessVBAをやるほどの人が質問するのが、不思議。 === エクセルでやってみた。 ユーザーフォームにテキストボックス2つ コマンドボタン2つ イメージ2つ 設けて、(それぞれが対応していて、簡単のために、2ペア分に抑えているものです。) Private Sub CommandButton1_Click() f1 = UserForm1.TextBox1.Text MsgBox f1 UserForm1.Image1.Picture = LoadPicture(f1) End Sub Private Sub CommandButton2_Click() f2 = UserForm1.TextBox2.Text MsgBox f2 UserForm1.Image2.Picture = LoadPicture(f2) End Sub ーーー Private Sub UserForm_Initialize() UserForm1.TextBox1.Text = "C:\Users\XX\Pictures\PC040YYY.JPG" UserForm1.TextBox2.Text = "C:\Users\XX\Pictures\PC040ZZZ.JPG" End Sub (”C:\Users\XX\Pictures\PC040YYY.JPG"のところは、質問者が使える写真の ファイル名をフルパスで置き換えてください。) こんなイメージ=パターン=型 でよいのかな。 == でも CommandButton1_Click() CommandButton2_Click() と写真の表示窓の個数だけ似たコードを連ねるのは、カッコ悪い。 これの打開策こそ質問したいことではないのか? ーー それは難しい課題なので、説明はWEB照会(VBA ユーザーフォーム コントロール配列などで)して出てくる記事を勉強することになるだろう。