0

ラジオボタンのグループを検証するのに問題があります。これは現在使用しているコードですが、エラーメッセージが表示され続けますRuntime error 438 - Object doesn't support this property or method。

これが問題の原因となっているコードです。

For Each ctl In Me.frPriority.Controls
        If ctl.Value = True Then GoTo nxtCheck1
    Next
        MsgBox "You didn't select a priority"
    Exit Sub
nxtCheck1:

すべてのトラブルを引き起こしているラインは

If ctl.Value = True Then

この問題を解決するにはどうすればよいですか？

4

2 に答える 2

3

フレームにオプション ボタン以外のコントロール タイプがある場合は、これを使用して、最初にコントロール タイプを確認します。

For Each ctl In Me.frPriority.Controls
    If TypeOf ctl Is msforms.OptionButton Then
        If ctl.Value = True Then GoTo nxtCheck1
    end if 
Next
        MsgBox "You didn't select a priority"
    Exit Sub
nxtCheck1:
于 2012-10-25T19:24:45.423 に答える
1

問題は、すべてのコントロールをループしていて、一部のコントロールにValueプロパティがないことです。

次のようなものを試してください：

For Each ctl In Me.frPriority.Controls
   If TypeOf ctl Is msforms.OptionButton Then
        If ctl.Value = True Then GoTo nxtCheck1
   End if
Next
于 2012-10-25T19:19:21.800 に答える