|
こんばんは
>ただ興味(向学的に)として題名のような処理を簡素化する方法
>をご存知でしたらご教授ください。過去にあったような気がするので
まず、TextBox名を下記のようにしたとします
フレーム1→(TextBox1_1 〜 TextBox4_1)
フレーム2→(TextBox1_2 〜 TextBox4_2)
フレーム3→(TextBox1_3 〜 TextBox4_3)
フレーム4→(TextBox1_4 〜 TextBox4_4)
あとは
For i = 1 to 4
If Val(Me.Controls("TextBox2_" & i).Value) = 0 Then
If Val(Me.Controls("TextBox4_" & i).Value) > _
Val(Me.Controls("TextBox1_" & i).Value) Then
MsgBox "入力値確認して ”
End If
Else
If Val(Me.Controls("TextBox4_" & i).Value) > _
Val(Me.Controls("TextBox3_" & i).Value) Then
MsgBox "入力値確認して 多いですよ"
Me.Controls("TextBox4_" & i).Value = ""
End If
End If
Next
この例は、ご提示のコードをなにも考えずに簡素化した例です。
基本的にはKeinさんの意見に賛成です。
|
|