• ベストアンサー

レポートのラベルなどの非表示は可能か？

アクセス2003 SQLServer2000 WindowsXP レポートのラベルなどを条件によって非表示にしたいと思います。 フォームのコントロールは me.コントロール名.visible = false で非表示にできるのですが、 レポートのページフォーマットイベントで me.ラベル名.visible = false としても、非表示になりません。 ラベルのプロパティーには「可視」があるので可能と思っているのですが、 間違いでしょうか。 どなたかご教授お願いいたします。 プロパティーの英語表示の仕方も教えていただければ助かります

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

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

アクセス2000で試してみました ページフォーマット時　× 開く時　○ 詳細のフォーマット時　○ 何故そうなるのかは判りません。

teburon
質問者

お礼

早速のご教授ありがとうございます。 「詳細のフォーマット時」で問題は解決しました。 助かりました

  1. カテゴリ
  2. [技術者向] コンピューター
  3. データベース
  4. その他(データベース)

関連するQ&A

  • ACCESS2016 フォームのラベルについて

    お世話になります。 ACCESS2016を使い、製品確認フォームの中に「未確認」と言うコントロールにチェックがあると、フォームの下の方にラベルで「確認中」と表示されるようにしたい のですが、何故か全てに表示されてしまいます。 フォームの読み込み中のイベントを使って下記のようにしているのですが、だめでした。フォームのデータは、1000件あり、チェックが入っているものだけに、「確認中」の文字を表示させたいのです。イベントの仕掛ける場所が間違っているのでしょうか If [未確認] = -1 Then Me!ラベル1200.Visible = True If [未確認] = 0 Then Me!ラベル1200.Visible = False ※ラベル1200="確認中" 宜しくお願い致します。

  • Access2003でレポートのラベルを非表示にできない。

    勉強のためにAccess2003で葉書に宛名を印刷するアプリケーションを作成しています。 フォームは「メイン」、レポートは「名簿」というファイル名にしています。 フォームの「メイン」にチェックボックスを作成し、チェックすると差出人氏名を印刷するような仕組みにしたいのですが、デバッグすると下記のようなエラーがでてしまいます。 「レポート名'名簿'の指定が間違っています。または参照しているレポートが閉じているか存在していません。」 「メイン」のコードは ---------------------------------------------------------------- If ((i Mod 2) = 0) Then txt差出人氏名.Enabled = False txt差出人郵便番号.Enabled = False txt差出人住所.Enabled = False txt差出人マンション名.Enabled = False txt葉書氏名.Visible = False '非表示にする txt葉書郵便番号.Visible = False '非表示にする txt葉書住所.Visible = False '非表示にする txt葉書マンション名.Visible = False '非表示にする kekka = 1 Reports![名簿]![_MyName].Visible = False　⇒ここでひっかかります ---------------------------------------------------------------- たしかにレポートが閉じているのですが…どなたかご教授お願いします。

  • Access レポートの一部を非表示

    お世話になります。 Access2010 レポートに5つの項目(5ブロック)があり、フォーム上に設置した 1～5のチェックボックスの状況により表示/非表示させたいと思ってます。 ※1つのブロックには20～50個程度のテキストボックス及びラベルが 　設置されてます。 デフォルトでは1～5のチェックボックスのチェックは入っている状態で 5ブロック全て表示させてます。 例えば、1と3、4のチェックが外された状態であれば、レポートの 1と3、4のブロックを非表示にします。 とりあえず上記の処理は出来たのですが、こんなやり方でよいの？って 感じなので、ご教示頂けたらと思います。 やったことは、各ブロックに四角形をかぶせます。 この四角形は背景スタイル[普通]、背景色[背景1]=白　です。 で、可視は[いいえ]としてます。 レポートが出力される際に、 If Me.1 = False Then Reports![レポート]![1].Visible = True Else '何もしない End If 　※Me.1はチェックボックス1 って感じで1～5の判定をしてます。 要するにチェックボックスが外れていたら、該当の四角形の可視を[はい] にしてブロックを白い四角形で隠すようにしてます。 ただ、このやり方だとレポートをデザインで開くと、レポート全体が四角形で 覆われている状態です。もし、テキストボックスの配置を変える場合 四角形をいったん別の場所にずらして戻す・・ってことをやらないといけません。 なので、背景スタイルを[透明]にして、チェックボックスが外れた場合[普通] にすればよいかと思い、 If Me.1 = False Then Reports![レポート]![1].BackStyle = 1 ←　0が透明で1が普通 Else '何もしない End If としてみましたが、うまく動きませんでした（非表示にならず）。 ちなみにこれらの処理はレポートを開いた後に行ってます。 なので、可視プロパティは開いた後でも変更可能だけど、背景スタイルは不可能 ってことなのでしょうか。 とりあえず可視/非可視の切り替えで、思ったことは出来てはいるのですが こういう場合、一般的にはテキストボックスやラベルを一つずつ可視/非可視 に切り替えたりするものなのでしょうか。それとももっと良い方法があったり するのでしょうか。 ご教示の程、宜しくお願い致します。

  • Accessのレポートでデータがなくても罫線だけ表示させたい

    Win2000,Access2000を使用しています。 Microsoftのホームページで「[AC97] レコードがない場合も用紙の最後まで罫線を出力する方法」を応用して以下のVBを作成しました。 ですが、9行目までデータを入力すると9行目と10行目の両方の行に9行目のデータが表示されます。 8行目まででしたら、9、10行目は空白で罫線（直線）が表示されます。 どなたか解決法をご存知でしたらお教え下さい。 Option Compare Database 　Dim A As Integer '-------今何行目なのかをカウントする為の変数 　Dim B As Integer '-------今回印刷する予定のレコード件数を入れて 　　　　　　　　　　　　　　　　　おく変数 ---------------------------------------------------- Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer) 　　A = 0 　　B = DCount("ID", "Q05商品リスト") 　　Me!改ページ3.Visible = False End Sub ---------------------------------------------------- Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer) 　A = A + 1 　If A Mod 10 = 0 Then 　　　Me!改ページ3.Visible = True 　Else 　　　Me!改ページ3.Visible = False 　　　If A < B Then 　　　　　Me.NextRecord = True 　　　　　Me!商品名.Visible = True 　　　　　Me!メーカー名.Visible = True 　　　ElseIf A = B Then 　　　　　Me.NextRecord = False 　　　　　Me!商品名.Visible = True 　　　　　Me!メーカー名.Visible = True 　　　Else 　　　　　Me.NextRecord = False 　　　　　Me!商品名.Visible = False 　　　　　Me!メーカー名.Visible = False 　　　End If 　　End If End Sub

  • Access レポートでのラベルの表示について

    こんにちは。 Access2003,windowsXPです。 レポート機能で、ラベルにテーブルのデータを表示させているのですが、指定したテーブルが空白の場合、エラーが出ます。 ＮＵＬＬ値でもエラーが出ないように設定したいのですが、方法はありますか？ 参考までに（ＶＢＡ） Private Sub Report_Open(Cancel As Integer) 　 Me!ラベル133.Caption = DLookup("テーマNo", "BMM", "ID = 1") Me!ラベル134.Caption = DLookup("テーマ名称", "BMM", "ID = 1") Me!ラベル135.Caption = DLookup("請求額", "BMM", "ID = 1") End Sub

  • マウスが触れるとテキストを表示し離れる非表示にする

    アクセスです。 フォームにラベルを設置して、 そのラベルにマウスが触れたらテキストボックスを表示させたいのです。 フォームのオープンイベントは Private Sub Form_Open(Cancel As Integer) Me.テキスト2.Visible = False End Sub になっています。 ラベルのマウスボタン解放時イベントで Private Sub ラベル0_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.テキスト2.Visible = True End Sub にして、ラベルをクリックするとテキストボックスが表示されます。 マウスボタン移動時イベントで Private Sub ラベル0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.テキスト2.Visible = True End Sub にすると、理想通りラベルからマウスが触れたらテキストボックスが表示されます。 ここまではいいのですが マウスのカーソルが離れたら またテキストボックスを非表示にしたいのですがどうすればいいですか？

  • Accessのフォームを閉じるのではなく、非表示にする

    Accessのフォームにおいて、 ボタンをクリックすると、そのフォームが閉じる、 というイベントをつけております。 そのイベントを、フォームが閉じるのではなく、 フォームを非表示にし、メモリ上では開いたまま というイベントに直したいのですが、 Form_F003.Visible = False というような記述をするという 解釈でよろしいのでしょうか？？ その解釈でないとしたら、 フォームのソース上で、 フォームを非表示にし、メモリ上では開いたまま というプロパティを設定できるでしょうか？？ どなたか、ご指導くださいませ。

  • Access2003 レポートの表示方法に関して

    当方Access2003利用者です。 テーブル上では、「処理１」「処理2」という異なったフィールドを作成しておりますが、レポート上では【処理】欄だけとし、 「処理2」が空白であれば「処理1」の内容を表示、 「処理2」が空白でなければ「処理2」の内容を表示といった形にしたいと考えています。 現在、 If Me.処理2.value = "" Then 　　Me.処理2.Visible = False Else　Me.処理1.Visible = False という形で記述していますが、うまくいきません。 どのように記述すればよいのでしょうか？ 宜しくお願いします。

  • Accessのレポートに取り消し線を表示したい

    いつもお世話になっています。 名簿を作成しているのですが、結婚して姓が変わった場合、 上書きせずに新しい姓を別のテキストボックスに入力します。 これをレポートとして出力する際、新しい姓が入力された場合は、 過去の指名のテキストボックスに二重線を引きたいのですが うまくいきません。 Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer) If 新姓 <> "" Then Me.取り消し線1.Visible = True Me.取り消し線2.Visible = True Else Me.取り消し線1.Visible = False Me.取り消し線2.Visible = False End If End Sub お力添えをお願いいたします。

  • アクセスについてです（レポート）

    フォームからレポートを開く時に、 ＶＢＡでコントロールにコントロールソースを指定したいのですが どうやらエラーになってしまうようです。 フォームからではなく手動でレポートを開く場合は エラーにはなりません。 レポートのレコードソースは、T_testを指定していて、 その上にあるコントロールは非連結で指定したコントロールソースをｖｂａで入れたいです。 なので、レポートのLoadイベントで Private Sub Report_Load() Me.テキスト0.ControlSource = "8月" End Sub として、手動でレポートを開く分には問題ないのですが このコードのまま、フォームから Private Sub コマンド0_Click() DoCmd.OpenReport "レポート1", acViewPreview End Sub とすると、Me.テキスト0.ControlSource = "8月"で、 実行時エラー2191 印刷プレビュー時または印刷を開始した後は コントロールソースプロパティを設定できません。 のエラーが発生します。 フォームから Private Sub コマンド0_Click() DoCmd.OpenReport "レポート1", acViewDesign End Sub とすると、レポートのLoadイベントが発生しませんでした。 ご回答よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する