プロが教えるわが家の防犯対策術!

フォームのデーターシートビューで
「フィールド1(Yes/No型)がTrueなら
フィールド2の背景の色をピンクにする」
という条件付書式を行ないたいのですがどうすればいいでしょう?
VBAでやりたいのですが難しかったら手作業の処理を教えてくださいませ。
よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

FormatConditions プロパティ - MSDN


http://msdn.microsoft.com/ja-jp/library/cc347606 …

条件付書式を保管しているプロパティです
「どこを、どうすれば?」と、言うのは・・・デバッグしてみれば、ある程度、判ると思うけど?
    • good
    • 0
この回答へのお礼

わかりました!がんばってやってみます!ありがとうございます。

お礼日時:2009/04/13 21:29

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

Qアクセス:Yes/No型→チェックいれたら、"○"を表示。

あるフィールドの書式をYes/No型にしてます。
そして、チェックを入れたらフォームビューでは"○"を表示する。

というようなことはできますか??
アクセス初心者です。。
すみませんが、よろしくお願いいたします。

Aベストアンサー

であれば、論理式を組み合わせれば済む事です
=iif([フィールドA]=0,"",iif([フィールドC]=0,"","○"))
こんな感じですかね

QACCESS VBA テーブルデータにYES/NO

ACCESSの表形式のフォームにYES/NOフィールドを足して
一覧フォームで任意のチェックボックスを選択して
選択されたデータのみを表示するようにしたいです。
しかしチェックボックスはレコードひとつひとつについてるのですが
認識されるチェックボックスは一番上のレコードのチェックボックスのみです。どうすればレコード別に判定できるのがわからないので
詳しい方ご教授お願いします。自分が書いたのは下記コードです。

Dim chkBln As Boolean

chkBln = False

If チェック50 = True Then
chkBln = True
MsgBox chkBln
End If

'検索結果の表示
DoCmd.OpenForm ("データ修正画面")

'自身のレコードソースに設定
Forms("データ修正画面").RecordSource = "Select * From T_障害票マスタ WHERE チェック = " & chkBln & ""

ACCESSの表形式のフォームにYES/NOフィールドを足して
一覧フォームで任意のチェックボックスを選択して
選択されたデータのみを表示するようにしたいです。
しかしチェックボックスはレコードひとつひとつについてるのですが
認識されるチェックボックスは一番上のレコードのチェックボックスのみです。どうすればレコード別に判定できるのがわからないので
詳しい方ご教授お願いします。自分が書いたのは下記コードです。

Dim chkBln As Boolean

chkBln = False

If チェック50 = ...続きを読む

Aベストアンサー

No.3です。

> 一覧を全件表示しているフォームは一覧表形式なので、すべてのレコードの
> チェックボックスが"チェック50"になるので判定をどうすればいいのかわかりません。

・・・すみません、前回の回答で説明用の画像をつけるつもりでいたはずが、そのまま
忘れていました(汗)

現在、『チェック50』チェックボックスで、テーブルの『チェック』フィールドの値を表示
させている(=連結コントロール)のでしたら、フッタに設置したコマンドボタンの隣に、
”チェックボックスを新たに追加”してください。
このチェックボックスの名前を『チェック抽出用』とします。
※「チェック50」チェックボックスは表示用に使用しますので、そのまま残しておきます。

上記に基づいて前回の回答を修正すると、以下のようになります:
(重複するコメントは削除しました)

Private 抽出_Click()

  Dim chkBln As Boolean, RecSrc As String

  '「データ修正画面」フォームの名前を定数として設定
  Const FName As String = "データ修正画面"

  'レコードのデータを表示している「チェック50」ではなく、
  'フッタに設置した「チェック抽出用」を、抽出条件に使用します。
  chkBln = チェック抽出用

  MsgBox "chkBln = " & chkBln
  'If chkBln Then MsgBox "chkBln = " & chkBln

  RecSrc = "Select * From T_障害票マスタ Where チェック = " & chkBln

  '「データ修正画面」フォームを開く
  DoCmd.OpenForm FName

  'レコードソースを設定(定数として設定済みなので「"」括りは”無用”)
  Forms(FName).RecordSource = RecSrc

End Sub

No.3です。

> 一覧を全件表示しているフォームは一覧表形式なので、すべてのレコードの
> チェックボックスが"チェック50"になるので判定をどうすればいいのかわかりません。

・・・すみません、前回の回答で説明用の画像をつけるつもりでいたはずが、そのまま
忘れていました(汗)

現在、『チェック50』チェックボックスで、テーブルの『チェック』フィールドの値を表示
させている(=連結コントロール)のでしたら、フッタに設置したコマンドボタンの隣に、
”チェックボックスを新たに追加”してくださ...続きを読む


人気Q&Aランキング