- 締切済み
「ACCESS」レポートで、外部画像を多数表示できない
はじめまして。ACCESS初心者ですが、よろしくお願いします。 レポートで外部画像を多数表示させたく、サンプルを公開しているサイト様のソースを使用しました。 サンプルは、１枚表示のものだったので、 「Me!img_○.Picture = myPath & "\" & [番号] & "\○.jpg"」 の部分を追加してみたのですが、この場合、[番号]フォルダに指定される画像が全てないと、そのレポートが白紙になってしまいます。 指定の画像がなくても、他の画像は表示される方法はありますでしょうか。ご回答よろしくお願いいたします。 Option Compare Database Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer) '指定された画像をセットする処理 '2006/04/22 pPoy On Error GoTo Err_詳細_Print Dim myPath As String myPath = CurrentProject.Path '※ Me!img_1.Picture = myPath & "\" & [番号] & "\1.jpg" Me!img_2.Picture = myPath & "\" & [番号] & "\2.jpg" Me!img_3.Picture = myPath & "\" & [番号] & "\3.jpg" Exit_詳細_Print: Exit Sub Err_詳細_Print: 'ファイルが見つからなかった場合はデザイン時の画像を表示 Me!img_1.Picture = myPath & "\no_img.gif" Me!img_2.Picture = myPath & "\no_img.gif" Resume Exit_詳細_Print End Sub
- home4
- お礼率0% (0/1)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- CHRONOS_0
- ベストアンサー率54% (457/838)
サンプルデータベース[ノースウィンドウデータベース]に 同じことをしているサンプルがあります 社員フォームを見てください
関連するQ&A
- ACCESSで画像を参照する設定がうまくゆきません
あまり詳しくはないですが、ＡＣＣＥＳＳを使って仕事をしています。 ひとつのデータにひとつの画像をつけたデータを扱うのですが、画像を直接テーブルに貼り付けているので非常に容量を食ってしまいます。（ＪＰＧ形式です） そこでネットで色々調べて、現在データを保管しているテーブルに、パス用のテキストボックスを追加し、既存のフォームにイメージを配置して表示させる方法を試していますが、うまくゆかず、「プロシージャの呼び出しまたは引数が不正です」というエラーが出てしまいます。 プロシージャというもの自体をはじめて知ったので、ネットで引っ張ってきたコードをそのまま貼り付けて使っている状態です（テキストボックスの名前やイメージの名前は変えています） 現状は以下の通りです。 ファイル形式：ACCESS2000 使用ソフト ：ACCESS2003 テキストボックス名：パス イメージ名 ：参照 フォームの「レコード移動時」の「イベントプロシージャ」に貼り付けたコード Option Compare Database Private Sub パス_BeforeUpdate(Cancel As Integer) End Sub Private Sub Form_Current() '指定された画像に入れ替える処理 '2006/04/15 pPoy On Error GoTo Err_Form_Current Dim myPath As String myPath = CurrentProject.Path If Not IsNull(Me!パス) Then Me!参照.Picture = myPath & "\" & Me!パス Else '新規レコードに移動した際はデザイン時の画像を表示 Me!参照.Picture = myPath & "花.JPG" End If Exit_Form_Current: Exit Sub Err_Form_Current: MsgBox Err.Description Resume Exit_Form_Current End Sub ちなみに、この「イベントプロシージャ」も突然消えてしまったりします。 非常に困っていますので、よろしくお願いいたしますm()m
- 締切済み
- その他MS Office製品
- ACCESS2000のレポートで別々の画像を表示したい
MS ACCESS2000(OFFICE2000PRO),WIN2000の環境です。 アクセスで作っている名簿から、レポートでIDカードを作成しようとしています。 顔写真を入れたいのですが、数百人いるため、OLEオブジェクト型のフィールドに写真データをリンクで挿入していくのが手間です。 個人の番号と写真名は同じ（番号100→100.JPG）にしています。一括で登録する方法はないでしょうか。 ちなみに、個人の番号をフィールドIDに入れ、写真をc:\phフォルダに入れておき、クエリで、PhID:"c:\ph\"&ID&".jpg"としてパスを作り、 レポートにイメージ IMGをつくり、フォーマットイベントで、 ME.IMG.PICTURE = ME.PHID としてみましたが、表示されませんでした。
- ベストアンサー
- オフィス系ソフト
- アクセスのイベント記述について。
アクセスのあるフォームＡ上にある詳細ボタンをクリックすると別のフォームＣが開くようにしてあるのですが、クリックすると同時にＡフォームを閉じるにはどのように記述したらよいでしょうか？ 詳細ボタンの記述は下記のとおりです。よろしくお願いいたします。 Private Sub 詳細_Click() On Error GoTo Err_詳細_Click Dim stDocName As String Dim stLinkCriteria As String DoCmd.Close stDocName = ChrW(12513) & ChrW(12531) & ChrW(12486) & ChrW(12490) & ChrW(12531) & ChrW(12473) stLinkCriteria = "[管理番号]=" & Me![管理番号] DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_詳細_Click: Exit Sub Err_詳細_Click: MsgBox Err.Description Resume Exit_詳細_Click End Sub
- ベストアンサー
- オフィス系ソフト
- アクセス２０００のレポートでイメージを表示させたいのですが
アクセス２０００でデータベースを作成しています。レポートについて分からないことがあるので教えてください。 ・ImageFileというフィールドにイメージファイルのフルパスを入力しておき、フォーム上のPictureを配置し、下記のようなコードを記述して、Pictureに、イメージファイルを読み込んで表示させています。 Private Sub Form_Current() If IsNull(Me.ImageFile) Then Me.イメージ.Picture = "d:\nonimage.jpg" Else: Me.イメージ.Picture = Me![ImageFile] End If End Sub ・同じような方法でレポートでイメージを印刷させることは出来ないでしょうか？ 尚、ImageFileはレコード毎に異なるものを使用しています。
- 締切済み
- オフィス系ソフト
- Accessレポートで1行おきに色を変える
Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer) FontCount = FontCount + 1 If FontCount Mod 2 = 1 Then Me.Section(0).BackColor = 16777215 Else Me.Section(0).BackColor = 16777164 End If End Sub としてみました。 ですが何らかわりなく… 試しに Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer) FontCount = FontCount + 1 If FontCount Mod 2 = 1 Then Me.Section(0).BackColor = 16777215 Else Me.Section(0).BackColor = 16777164 End If MsgBox FontCount End Sub としてみたところずーっと「1」が表示され、変数がかわってないようです。 いったいどこがダメなのでしょうか？ 確か以前できたはずなのに…（＞＜）
- ベストアンサー
- オフィス系ソフト
- Access2013で確認メッセージを消すには
画像ファイルの管理データベースを作っています。 管理データベースには、ローカルファイルのフルパスのみ記録し ボタンをクリックしたとき、Windowsフォトビューアで プレビューするようにコードを書きました。 しかし、JPGファイルを開くときは問題ないのですが PNGファイルを開くとき、毎回Microsoft Officeの確認メッセージ ～を開いています。ファイルにはウイルスやコンピューターに問題を起こす 可能性のあるものが含まれていることがあります。 このファイルが信頼できる所からのものか確かめてください。 ファイルを開きますか？ が表示されます。 メッセージを表示させない為にはどうしたら良いか、ご教授願います。 以下、ファイルを開く為に作ったコード2種です。 実行結果は同じです。 コード1 Private Sub OpenBotan_Click() Dim strInput As String On Error GoTo Error_GetUserAddress strInput = Me.パス Application.FollowHyperlink strInput, , True GetUserAddress = True Exit_GetUserAddress: Exit Sub Error_GetUserAddress: MsgBox Err & ": " & Err.Description GetUserAddress = False Resume Exit_GetUserAddress End Sub コード2 Private Sub イメージ21_Click() On Error GoTo エラー Dim myTextValue As TextBox Set myTextValue = Me.パス If IsNull(myTextValue) Then MsgBox "URLが未入力です。": Exit Sub Me.イメージ21.HyperlinkAddress = "" '--- A Me.イメージ21.HyperlinkAddress = myTextValue Exit Sub エラー: MsgBox Err.Number & " : " & Err.Description Exit Sub End Sub
- 締切済み
- オフィス系ソフト
- 外部画像のランダムでの読み込み
外部から読み込むjpgファイルをランダムで指定したいと思っています。 現状メインのタイムラインに以下のスクリプトを記述して外部からのjpgファイルを読み込んでいます。 loader1.load(new URLRequest("img01/1.jpg")); 読み込みは問題無く出来ましたので次の段階として 上記で指定したjpgファイルを以下のように異なる階層の画像も含め アクセス時毎にランダムで表示したいと考えております。 ・img01/1.jpg ・img01/2.jpg ・img01/3.jpg ・img02/1.jpg ・img02/2.jpg ・img02/3.jpg ・img03/1.jpg ・img03/2.jpg ・img03/3.jpg このような状況でどのようにスクリプトを記述してよいのか分からず四苦八苦しております。 どなたかおわかりになる方がおられましたらお力を貸していただけないでしょうか。 当方はCS5、AS3、Mac環境となります。 宜しくお願い申し上げます。
- ベストアンサー
- Flash
- Access2007で、鍵のＤＢを作っています。レポートに鍵の画像を挿
Access2007で、鍵のＤＢを作っています。レポートに鍵の画像を挿入したいと思い、http://www.accessclub.jp/samplefile/samplefile_77.htmを参考にしたのですが、このＨＰで紹介しているイメージコントロールの貼り付けの部分で指定したように代表？として貼り付けた画像のレコードしか出てきません。（現在、レコードは３つあります。） テーブルは「鍵 台帳」 鍵 記号（テキスト型） 鍵 名称 ・ ・ ・ 鍵画像パス（テキスト型） があり、 レポートの詳細セクション、イベントタブのファーマット時に、[イベントプロシージャ]にし、 Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer) On Error GoTo エラー発生 Me.ラベル0.Visible = False Me.イメージ34.Visible = True If Not IsNull(Me.鍵画像パス) Then Me.イメージ34.Picture = Me.鍵画像パス Else Me.ラベル0.Visible = True Me.イメージ34.Visible = False End If Exit Sub エラー発生: Me.イメージ34.Visible = False Me.ラベル0.Visible = True Resume Next End Sub と、してみました。ラベル0は「鍵 記号」フィールドに対応、イメージ34はイメージコントロールで貼り付け、書式タブのピクチャでC:￥Documents and Settings￥〇〇￥My Documents￥△△￥鍵管理ＤＢ\KM 611.jpgとしました。鍵 画像パスフィールドにも同じようにパスが入っています。（鍵 記号と鍵の画像ファイルは、同じ名前にしています。） このようにし、印刷プレビューにしようとすると、「パラメータの入力 鍵 画像.鍵 画像」と出てきます。何も入力せず、「ＯＫ」を押すと、プレビューでKM 611のレコードのみ出てきます。 レポートには、鍵 画像パスフィールドと、「鍵 履歴」テーブルもサブレポートで入れています。 ちなみに、鍵 履歴テーブルは ＩＤ 鍵 記号 履歴 日付 ・ ・ のようになっており、鍵 記号を「鍵 台帳」テーブルの鍵 記号フィールドとリレーションさせています。 アクセス超初心者でやっとここまでこぎつけたので、後は、なぜ出来ないのかさっぱりわかりません。 どうか、お助けいただければ、幸いです。 厚かましいですが、教えて頂けるようであれば、プロシージャを入れる場合なども、どこをクリックしてから等細かくご教授願えますでしょうか。 よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 外部画像jpg又はswfの表示について
はじめまして、こんにちは。 Flash初心者です。 [使用環境] Flash MX 2004 Win 2000 [質問] １フレーム目にはslide1.○○○、２フレーム目にはslide2.○○○、 ３フレーム目にはslide3.○○○といったふうに画像をnextボタンと backボタンを使って切り替わるようなものを作っています。 ※○○○にはjpg又はswfが入ります。 ＋――――――――――――――――――＋ ｜ ＋―――――――＋ ＋――――＋ ｜ ｜ ｜ ｜ ｜ｂａｃｋ ｜ ｜ ｜ ｜ ｜ ＋――――＋ ｜ ｜ ｜ ｐｉｃｔｕｒｅ ｜ ｜ ｜ ｜ ｜ ＋――――＋ ｜ ｜ ｜ ｜ ｜ｎｅｘｔ ｜ ｜ ｜ ＋―――――――＋ ＋――――＋ ｜ ＋――――――――――――――――――＋ ・外部画像を読み込んで表示するには「 picture.loadMovie("slide1.jpg"); 」又は、 「 picture.loadMovie("slide1.swf"); 」で表示できます。 ・slide1はjpgかswfのどちらかのファイルしかなく、shile2、slide3も同様です。 ・１フレーム目がswfの場合「 picture.loadMovie("slide1.swf"); 」、 ２フレーム目がjpgの場合「 picture.loadMovie("slide2.jpg"); 」 というように拡張子を指定してスクリプトを書くのではなく、 条件式を使って画像を表示するにはどうすればよいのでしょうか。 ・もしくは、エラーを無視して次の行へいくというプログラムはあるのでしょうか。 どなたか分かるようでございましたらご教示下さい。お願いします。
- ベストアンサー
- Flash
- Access2003 レポートの合計の出し方
お世話になっております。 Access2003のレポートで下記のようなコードで価格の合計を求めようとしています。 1ページですとこれで合計は表示されるのですが、レポートが2ページ以降になると最終ページの合計が表示されます。 最終ページの最後にすべての合計を出したいと思っています。 ご教授いただければ幸いです。よろしくお願いいたします。 Option Compare Database Dim a As Variant Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer) a = 0 End Sub Private Sub グループヘッダー3_Print(Cancel As Integer, PrintCount As Integer) a = a + Me.価格 End Sub Private Sub レポートフッター_Print(Cancel As Integer, PrintCount As Integer) Me.合計 = a End Sub
- ベストアンサー
- その他(データベース)
