- ベストアンサー
ACCESS2016 フォームのラベルについて
chayamatiの回答
- chayamati
- ベストアンサー率41% (256/613)
今晩は Form_Current()ですか。 自分はForm_Load()とForm_Activate()ですが Form_Current()の方が汎用性ありそうですね ＞Private Sub Form_Current() If [事前確認] = True Then Me!ラベル1200.Visible = True If [事前確認] = False Then Me!ラベル1200.Visible = False End Sub ☆デバッグは出来ましたか 補足頂いたコードに、Stop命令を追加し実行して下さい Stopの位置で止まります。 ここで1回のF8押下で命令文が1回進みます 事前確認の位置にマウスカーソル移動すると値が表示されます。 これは、先頭のレコードの事前確認の値です 次のレコードに進むと再びStopの位置で止まります。 ------------------------------------------------------------------- Private Sub Form_Current() Stop If [事前確認] = True Then Me!ラベル1200.Visible = True If [事前確認] = False Then Me!ラベル1200.Visible = False End Sub -----------------------------------------------------------------------------
関連するQ&A
- レポートのラベルなどの非表示は可能か？
アクセス2003 SQLServer2000 WindowsXP レポートのラベルなどを条件によって非表示にしたいと思います。 フォームのコントロールは me.コントロール名.visible = false で非表示にできるのですが、 レポートのページフォーマットイベントで me.ラベル名.visible = false としても、非表示になりません。 ラベルのプロパティーには「可視」があるので可能と思っているのですが、 間違いでしょうか。 どなたかご教授お願いいたします。 プロパティーの英語表示の仕方も教えていただければ助かります
- ベストアンサー
- その他(データベース)
- アクセス2000 5行で改ページ
アクセス2000のレポートで、5行で改ページをさせようと以下のようにコードを記述しましたがうまくいきません。 どなたかアドバイスをお願いします。 配置されているテキストボックスは、 [氏名] [人事区分チェック1] [人事区分チェック2] [人事区分チェック3] [人事区分チェック4] [人事区分チェック5] [人事区分チェック6] [人事区分チェック7] [その他の内容] [役職] [採用年月日] [契約終了日] [備考] でコードは以下の通りです。 Dim i, j Private Sub グループヘッダー0_Format(Cancel As Integer, FormatCount As Integer) i = 0 j = DCount("*", "採用時提出書類管理クエリ", "[教授会]=reports![92 人事関係報告書]![教授会]") End Sub Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer) i = i + 1 If i Mod 5 = 0 Then If i <= j Then Me![bpage].Visible = True Else Me![氏名].Visible = False Me![人事区分チェック1].Visible = False Me![人事区分チェック2].Visible = False Me![人事区分チェック3].Visible = False Me![人事区分チェック4].Visible = False Me![人事区分チェック5].Visible = False Me![人事区分チェック6].Visible = False Me![人事区分チェック7].Visible = False Me![その他の内容].Visible = False Me![役職].Visible = False Me![採用年月日].Visible = False Me![契約終了日].Visible = False Me![備考].Visible = False End If Else Me![bpage].Visible = False If i < j Then Me.NextRecord = True Me![氏名].Visible = True Me![人事区分チェック1].Visible = True Me![人事区分チェック2].Visible = True Me![人事区分チェック3].Visible = True Me![人事区分チェック4].Visible = True Me![人事区分チェック5].Visible = True Me![人事区分チェック6].Visible = True Me![人事区分チェック7].Visible = True Me![その他の内容].Visible = True Me![役職].Visible = True Me![採用年月日].Visible = True Me![契約終了日].Visible = True Me![備考].Visible = True ElseIf i = j Then Me.NextRecord = False Me![氏名].Visible = True Me![人事区分チェック1].Visible = True Me![人事区分チェック2].Visible = True Me![人事区分チェック3].Visible = True Me![人事区分チェック4].Visible = True Me![人事区分チェック5].Visible = True Me![人事区分チェック6].Visible = True Me![人事区分チェック7].Visible = True Me![その他の内容].Visible = True Me![役職].Visible = True Me![採用年月日].Visible = True Me![契約終了日].Visible = True Me![備考].Visible = True Else Me.NextRecord = False Me![氏名].Visible = False Me![人事区分チェック1].Visible = False Me![人事区分チェック2].Visible = False Me![人事区分チェック3].Visible = False Me![人事区分チェック4].Visible = False Me![人事区分チェック5].Visible = False Me![人事区分チェック6].Visible = False Me![人事区分チェック7].Visible = False Me![その他の内容].Visible = False Me![役職].Visible = False Me![採用年月日].Visible = False Me![契約終了日].Visible = False Me![備考].Visible = False End If End If End Sub データが5件未満は正しく表示されますが、5件を超えると2ページ目が4件しか表示されなかったりします。 グループ化がされており、[bpage]という改ページが入っています。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Access 2003 でフォームフィルターがかかりません。
Access 2003 でフォームフィルターがかかりません。 どなたか助けてください。 アクセス初心者です。 フォームの詳細欄にチェックボックス（フィールド名：伝票チェック）を配置しております。 チェックの入っていないものを表示させたいです。 フォームヘッダーのオプショングループ（フレーム67）に オプションボタン0-オプション値0と オプションボタン2-オプション値2 の２個のオプションボタンを配置してあります。 クリック時のイベントプロシージャに以下のコードを書きました。 Private Sub フレーム67_Click() If Me!フレーム67 = 0 Then Me.Filter = 伝票チェック = 0 Me.FilterOn = True Else Me.Filter = "" Me.FilterOn = True End If End Sub 実行時エラーは出ませんが、データが何も表示されません。 どうすればいいのでしょう？？？ どなたかお願いします。
- ベストアンサー
- その他(データベース)
- ACCESSで条件によってサブフォームを非表示に
Accessの初心者です。よろしくお願いします。 Accessで住所録を作っています。 メインフォームは主に本人のデータを表示し、サブフォームで家族の データを表示するようにしました。 その時、家族がいない人についてはサブフォーム自体を表示しないようにしたいと思います。 そこで下記のようにしましたがうまくいきませんでした。 (1)サブフォーム内で家族の人数をカウントする。 (2)このカウント結果をメインフォームに表示する。（メインフォーム にテキストボックスを配置し、コントロールソースをサブフォームの 人数カウントにする。） ここまではうまくいきました。 (3)ここでメインフォームのイベントの「開くとき」に以下のように記 述しました。（メインフォームのテキストボックスにカウントという 名前をつけました。） Private Sub Form_Open(Cancel As Integer) If Me!カウント = 0 Then サブフォーム.Visible = False Else サブフォーム.Visible = True End If End Sub この記述の仕方がまずいと思うのですが、どのようにすればよいか 分りません。よろしくお願いします。
- ベストアンサー
- その他(業務ソフトウェア)
- フォーム中のオブジェクトの表示を切り替える
MicrosoftAccess2000(WindowsXP pro)を使っています。 フォーム中の[自家用車]=-1だったばあい、[駐車場]のチェックボックスを表示させ、=0なら[駐車場]のチェックボックスを非表示にしたいんです。 フォームを単票形式なら、 if [自家用車]= -1 then [駐車場].visible = true else: [駐車場].visible = false end if でできたんですが、 フォームを表形式にした場合、アクティブなレコードの[自家用車]の数値によって、表中の全部の[駐車場]の表示が変わってしまいます。 表形式であっても、それぞれのレコードで表示を変える場合、どうしたらいんでしょうか。
- 締切済み
- オフィス系ソフト
- 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 ⇒ここでひっかかります ---------------------------------------------------------------- たしかにレポートが閉じているのですが…どなたかご教授お願いします。
- 締切済み
- Visual Basic
- フォームの移動でのイベント
お世話になっております よろしくお願いします。 WindowsXP SP3 office2000 を使っています テーブルに2つのデータがり それをフォームで表示しています 表示した際に下のほうにページ移動の黒い三角のマークがあると思うのですが そのページを移動をしたときに発生するイベントはないのでしょうか？ データによってラベルを表示・非表示をしたいのですが 最初に非表示になると次からは非表示のままです Private Sub Form_Load() If me.フィールド名 = 0 Then me.フィールド名.Visible = False End If これをどこに書いたらページごとに実行できるのでしょうか？ 以上よろしくお願いします。
- ベストアンサー
- Visual Basic
- アクセス2003でカレンダーコントロールを挿入し、フォームの開くときイ
アクセス2003でカレンダーコントロールを挿入し、フォームの開くときイベントに、 Private Sub Form_Open(Cancel As Integer) Me.Calendar7.Visible = True Me.Calendar7.Value = Date End Sub と記述しても、当日の日付が表示されません。 原因がわからないのでどなたか教えてください。
- ベストアンサー
- オフィス系ソフト
- Accessのフォームを閉じるのではなく、非表示にする
Accessのフォームにおいて、 ボタンをクリックすると、そのフォームが閉じる、 というイベントをつけております。 そのイベントを、フォームが閉じるのではなく、 フォームを非表示にし、メモリ上では開いたまま というイベントに直したいのですが、 Form_F003.Visible = False というような記述をするという 解釈でよろしいのでしょうか？？ その解釈でないとしたら、 フォームのソース上で、 フォームを非表示にし、メモリ上では開いたまま というプロパティを設定できるでしょうか？？ どなたか、ご指導くださいませ。
- ベストアンサー
- その他(データベース)
- Access 97 VBAについて
Access VBAについて教えてください。 初心者ですが、レポートに表示されるテキストボックスの”項目名”と”内容”プロパティーに重複データ非表示にしています。そして、非表示となった部分に”〃”を表示するため別のテキストボックス、”隠しオブジェクト1”及び”隠しオブジェクト2”を配置しています。？？？にどんな記述が必要かわかりません。”項目名”だけであれば問題なく表示されるのですが”内容”についても同様に処理したいのです。 どうぞ宜しくお願いいたします。 Option Compare Database Option Explicit '値を保持するために外側に変数を定義します。 Dim varA As Variant --------------------------------------------------- Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer) If Me.項目名 = varA Then Me.隠しオブジェクト1.Visible = True Else Me.隠しオブジェクト1.Visible = False End If varA = Me.項目名 ？？？？ If Me.内容 = varA Then Me.隠しオブジェクト2.Visible = True Else Me.隠しオブジェクト2.Visible = False End If varA = Me.内容 End Sub
- ベストアンサー
- オフィス系ソフト