• ベストアンサー

ACCESSで画像を貼り付ける方法

こんにちは。 ACCESSで名簿を作っています。 各自の顔写真を名簿に貼り付ける場合、コピー&ペーストで行う方法は理解できます。 しかし、コマンドボタンを用意して WINDOWSのAPIから指定する画像を選択して張り付けるという方法を採用したいのです。 その場合のコードはどのように記述すればいいでしょうか? 参考になるURLがあれば嬉しいのですが?

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

まず確認させていただきたいのですが、 データソース=OLEオブジェクト型のフィールド になっている連結オブジェクトフレームがあり、「ファイルを開く」ダイアログボックスで画像ファイルを指定してその内容を連結オブジェクトフレームに貼り付けて保存したい。 ということでよろしいでしょうか。(勝手に推測しましたので、違っていれば言ってください。) 上記の前提で続けますが、 まず、「ファイルを開く」ダイアログボックスについては http://homepage1.nifty.com/MADIA/vb/API/GetOpenFileName.htm などを参照してください。他にも、「GetOpenFileName」で検索するといろいろ出てくると思います。 GetOpenFileName() でファイル名を取得したならば、あとは Me.Pic.SourceDoc = strFileName ' ファイル名 Me.Pic.Action = acOLECreateEmbed とすればおしまいです。 ( Pic は連結オブジェクトフレームの名前です。) Me.Pic.Action = acOLECreateEmbed の後ろに DoCmd.RunCommand acCmdSaveRecord を入れてもよいかもしれません。

kunisada
質問者

お礼

回答ありがとうございました。 うまくいきました。

関連するQ&A

  • URLへアクセスするコマンド

    コマンドプロンプトにあるかどうかわかりませんが、 自分のウェブサイトでちゃんと動いているかどうか、 定期的に指定のURLへアクセスしたいですが、ブラウザ上ではなく、 コマンドプロンプトで行いたいのですが、可能でしょうか? コマンドを送って、例えば「200」や「404」コードが 返ってくるような感じで考えています。 宜しくお願いします。

  • 【Access2000】LAN内にあるフォルダをブラウザで開くには?

     現在、Access2000でフォームにあるコマンドボタンをクリックするとブラウザが立ち上がり、LAN上にある指定したフォルダが開くようなモノを作成していますが思うようにいきません。  コマンドボタンに次のコードを記述したのですが、インターネット上のサイトは開くことができてもLAN上にあるファイルやフォルダを開く事ができず途方にくれています。  どなたかご存知の方がいらっしゃいましたら、是非、ご教示をお願いします。 <ソース> Private Sub コマンド1_Click() Const nu As String = vbNull Dim ret As Long Dim url As String url = "http://www.yahoo.co.jp/" ret = ShellExecute(0, "open", url, nu, nu, 0) End Sub *これでヤフーは開くことができますが、URLの所に「\\」で始まるLAN上にあるフォルダの場所を指定しても開くことができません。

  • ネット上の画像の取得

    CRONを使って一定時間毎に特定のページのjpeg画像をダウンロードしてきたいと思っています。 CRONの実行ファイルにどのように記述すればいいのでしょうか? 内部のファイルであればcpコマンドとかでコピーするのは分かるのですが、URLを指定してどのようにコピーすればいいのでしょうか? よろしくお願いします。

  • accessでSQLをファイルから実行する方法

    こんにちは。 タイトルの通りなのですが、複数のSQL文を1ファイルに記述したものをaccessで実行することは可能でしょうか?拡張子が.sqlのファイルを読み込んで実行するという意味です。 現在は方法がわからず、SQL文1つ毎にSQLビューにコピーペーストして実行していますが、手間がかかるので困っています。

  • C++で特定のURLにアクセスする方法を教えてください。

    C++で特定のURLにアクセスする方法を教えてください。 VisualStudio2008(C++)で開発しています。 特定のURLにアクセスして、ウェブページの情報を取得したいのですが、方法がわからずに困っています。 具体的には、twitter検索を行うAPIを実装したいです。 よろしくお願いします。

  • アクセスのフォーム上のテキストボックスの行間を指定する方法を教えてくだ

    アクセスのフォーム上のテキストボックスの行間を指定する方法を教えてください。 アクセス初心者です。 フォームにテキストボックスとボタンを配置しておいて,下のように記述すれば,文字の大きさを変更することができました。 行間を変更したい場合は,どう記述すると良いのでしょうか?「 LineSpacing」というプロパティがあることは,何とか分かったのですが,使い方が分かりません。 よろしくお願いいたします。 ******************************** Private Sub コマンド98_Click() Me.テキスト1.FontSize = 15 End Sub ********************************

  • アクセス2000について

    アクセス2000で、コマンドボタンを押すと、所定のファイル名のhtmlファイルを出力するコードを記述したのですが、htmlファイルやtxtファイルに書き出した後に、それを自動的にワードで開くことはできるのでしょうか?

  • youtubeのアドレス指定の方法、スマホ

    youtubeは特定の動画を見るためのアドレスが用意されていますが パソコンで見る場合はブラウザのURLバーにそのままペーストでアクセスできますが iphoneやスマホでyoutube公式アプリでURL指定(動画ID指定)で見る方法を教えてください 限定公開の動画を知り合いに見せる場合は、LINE等でURLを貼り付けクリックして見てもらっているのですが、iphoneの場合その方法を取るとブラウザ(サファリ)で起動してしまうようでyoutube公式アプリで見れないとクレームが来ます 特に360度画像などは公式アプリでないとうまく見れない様で.. 検索しても公式アプリで見ている動画のURLの調べ方ばかりヒットしてしまいます(泣) youtube公式アプリで動画をurl指定してみる方法を教えてください 当方はandroidユーザーですが、androidでもやり方が分かりません iphone、android両方の方法が知りたいです、が、片方でも分かれば教えてください よろしくお願いします

  • NTPサーバーへのアクセス

    Javaコンソールツールを作成して、その中でNTPサーバーにアクセスが必要です。 ネットを探しても、Java API ドキュメントをダウンロードして検索してもNTPについてのサンプルコードや記述が見つかりませんでした。 JavaでNTPサーバーにアクセスするには、どのようにアクセスすればよいのでしょうか? よろしくお願い致します。

    • ベストアンサー
    • Java
  • ACCESS フォームから開く【クエリ「パラメータの入力」】でキャンセルしてもエラーにならない方法は?

    よろしくお願いします。 ACCESSのフォームでコマンドボタンに以下のように記述しました。クエリを開く単純なものですが、このクエリには「パラメータの入力」が必要で、入力すれば問題ありませんが、キャンセルした時にエラーが生じます。 Private Sub cmd受講者名簿表示_Click() DoCmd.OpenQuery "Q_受講者名簿用" End Sub **エラー表示内容** 実行時エラー ‘2001’: 直前の操作はキャンセルされました         終了   デバック   ヘルプ 直接クエリをひらいた場合にキャンセルしても問題ないのに、フォームでVBAで記述した場合にパラメータの入力があるクエリをキャンセルしてもエラーにならない方法は無いのでしょうか?