|
▼jugg さん:
おはようございます。
教えていただいた For 〜 Next
はわかったんですが ありがとうございます。
Private Sub TextBox4_Change()
のようなイベントのところは
どのように記述するのでしょうか
お手数ですがよろしくお願いします。
>あとは
>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さんの意見に賛成です。
|
|