複数のIf文がアクセス2007 vbaサブルーチン内にあります。別の方法がある場合は興味がありますか？

Question

まず、私はvbaにアクセスするには非常に新しいですと前提にさせてください。

私の質問は、if文何度も何度も書き換え以外の別の方法があるかどう例

If Me.txtRevenuePerHour.Value < 90 Then 
    Me.chkRPH.Value = -1 
    Me.chkRPH.Enabled = "False" 
End If 

If Me.txtLoadTime.Value < 0.25 Then 
    Me.chkLT15.Value = -1 
    Me.chkLT15.Enabled = "False" 
End If 

の行で、その後else文は私が思っていた場合、私はいくつか持っています。そうでなければ、私はそれを受け入れるだろうが、別の方法がある場合は好奇心が強い。

ifステートメントは、特定の条件が満たされている場合にチェックボックスコントロールをチェックします。大半は、異なる条件であるが、一部は

同じです If句で完全に異なるオブジェクトおよび条件を使用し、 Ifブロック内で異なるオブジェクトも同様に使用されている場合は、前もって

Answer 1

のそれぞれのコードをいただき、ありがとうございます。

未テストコード：

If自体を一般化する方法はありませんが、Ifの身体がかもしれ思っ

Sub DisableAndSetToMinusOne(ctrl As Control) 
    ctrl.Value = -1 
    ctrl.Enabled = "False" 
End Sub 


If Me.txtRevenuePerHour.Value < 90 Then 
    DisableAndSetToMinusOne(Me.chkRPH) 
End If 

If Me.txtLoadTime.Value < 0.25 Then 
    DisableAndSetToMinusOne(Me.chkLT15) 
End If