アクセスVBA If式

質問

早速ですが、質問させて頂きます。
ACCESS VBAで、各ボックスに入力された数字に対し、論理式が立てられており、全項目ボックスに入力をし『チェック』ボタンを押すと基準を超えるものに『再チェックが必要な項目があります』というメッセージを出した上に、それを赤で反転させる、というのを作成中です。

簡単な図で表すと　[]はボックスだと思ってください

高さ[　　　]　　　横[　　　　]　　　縦[　　　　]
体積[　　　]
　　　　　[チェック]←ボタン

高さが20を超えた場合、要再チェック
横が10以下の場合、要再チェック
縦が5未満又は15を超える場合、要再チェック
体積　高さ*横*縦　が3000以下の場合、要再チェック

Private Sub コマンド1_Click()　←　チェックボタンをクリック

'要チェックか調べます
要チェック = Y

If 高さ >= 20 Then
Y = Y + 1
End If

　 If 横　<= 10 Then
Y = Y + 1
End If

　 If 縦 < 5 Then
Y = Y + 1
End If

If 縦 >= 15 Then
Y = Y + 1
End If
～中略

If Y >= 1 Then
Msg = MsgBox("要再チェック項目があります。 ", vbOKOnly + vbExclamation, "確認してください")

End If

If Y = 0 Then
Msg = MsgBox("再チェックは必要ありません。 ", vbOKOnly + vbInformation, "確認してください")

End If

体積に関しては、式マクロを組んでいます。

以上です。赤に反転させる方法は分かりませんでした・・・。
このように１つずつIf式でやるのは、あまり綺麗じゃないと思いますし、たったこれだけの簡単な式でも、うまく機能してくれません（涙）

どうかお助けいただけませんでしょうか。よろしくお願いしたします。

回答No.1

Shige29

単純に条件付き書式じゃダメなんですかね？
条件に合わない物はボックス内を赤くしておく。
そのうえで、それでもなおチェックボタンを押そうとしたら、注意文を出して押せなくする。
つまり、こう。
if 高さ >= 20 Then
msgbox 略
exit sub
else if 略 then　※条件数だけ追加する。
msgbox 略
exit sub
end if

exit subを入れることで、クリックイベントから抜け出します。
条件付き書式の方は、最初から赤いのが嫌なら、未入力状態の時は白。
規定外数値の場合は赤を指定すれば良いのでは？
ちなみに未入力を指定するには、式を選んでから以下のような記述をします。
Nz([高さ],"")=""