スキルアップ・問題解決なら、モーグにおまかせ！

● 概要 ●
ボタンを押すと、条件に当てはまるフィールドの色を変更します。データシート形式のサブフォームは全体のデータが一覧できて便利ですが、条件に当てはまるデータに色をつけると、より分かりやすくなります。


● サンプル ●
[未入金]ボタンをクリックすると、未入金のフィールドの色を変更します。
受注情報サブフォームの、[nyukin]フィールドの金額が[seikyu]フィールドの金額より少ない場合に、そのフィールドを赤色にします。未入力の場合は黄色にします。
[未入金]ボタンに以下のコードを組み込みます。


Private Sub 未入金_Click()

  With Me.受注情報サブフォーム.Form.nyukin.FormatConditions
    .Delete

    With .Add(acExpression, acBetween, "[seikyu]>[nyukin]")
      .BackColor = vbRed
      .Enabled = True
    End With

    With .Add(acExpression, acBetween, "isnull([nyukin])")
      .BackColor = vbYellow
      .Enabled = True
    End With

 End With

End Sub


● 補足 ●
データシート形式のフォームは、このようにサブフォームとして作成し、フォーム上にソート用のボタン、色を変更するボタンなど作成すると、より使いやすくなります。