オプションボタン（配列）のチェック変更

Question

実質、NO.3213956の続きです。
聞いてばかりもだめなので小一時間探したのですが、
見つからないので、また質問させていただきます。

オプションボタンが2個以上(同じオブジェクト名で配列・欠番はないものとする)、テキストボックス(数字しか入力できない)が1個、コマンドボタンが2個あります。

テキストボックスに数字を入力し、コマンドボタンを押すと
入力した数字の配列番号のオプションボタンをTrueにします。

Private Sub Command1_Click()
    Dim ctl             As Control      'コントロール
    Const conCTLNAME = "Option1"

    Dim intIndex    As Integer
    For Each ctl In Me.Controls
        'テキストに数字入力確認
        If IsNumeric(txtIndex.Text) Then
            intIndex = CInt(txtIndex.Text)
        Else
            MsgBox "数字を入れてください"
            Exit Sub
        End If
        'オプションボタン判定
        If InStr(1, conCTLNAME, ctl.Name, vbTextCompare) Then
            ctl(intIndex).Value = True　'※
        End If
    Next ctl
End Sub

しかし、※でエラー「オブジェクト配列のインデックスを指定してください」が表示されます。
数字を選ぶところは、実際はDBに格納されているNumber型のフラグを持ってくる形になります。

コントロールを変数に格納している仕様で難しいですが、
アドバイスをお願いします。

noname#140971 · Accepted Answer

訂正

Public Function SetCtlValue(ByVal ctlName As String, _
　　　　　　　　　　　　　　ByVal I As Variant, _
　　　　　　　　　　　　　　ByVal V As Variant) As Boolean
On Error Resume Next
　　Dim isOK As Boolean
　　Dim ctl　As Control
　　
　　For Each ctl In Me.Controls
　　　　Debug.Print ctl.Name
　　　　If ctl.Name = ctlName Then
　　　　　　If I = -1 Then
　　　　　　　　ctl.Value = V
　　　　　　　　ctl.Text = V
　　　　　　　　isOK=True
　　　　　　　　Exit For
　　　　　　ElseIf ctl.index = I Then
　　　　　　　　ctl.Value = V
　　　　　　　　ctl.Text = V
　　　　　　　　isOK=True
　　　　　　　　Exit For
　　　　　　End If
　　　　End If
　　Next ctl
　　SetCtlValue = isOK
End Function

redfox63 · Answer

ctl自体がコントロール配列にはなりえません
コントロール自体です

　　dim ctl as Control
　　Const conCTLNAME ="Optiion1"
　　if not isNumber(Text1.text) then
　　　　MsgBox "数字を入力してください"
　　　　exit sub
　　end if

　　for each ctl in Controls
　　　　' 検査対象がオプションボタンか判断
　　　　if typeof ctl is OptionButton then
　　　　　　' 検査対象の名前と一致か
　　　　　　if ctl.name = conCTLNAME then
　　　　　　　　' 検索対象がコントロール配列なら
　　　　　　　　' Indexプロパティがある
　　　　　　　　' 単独コントロールなら エラーになり
　　　　　　　　on error resume next
　　　　　　　　if ctl.index = Text1.Text then
　　　　　　　　　　' エラートラップに引っかからなかった場合
　　　　　　　　　　if err.Number = 0 then
　　　　　　　　　　　　ctl.value = true
　　　　　　　　　　　　exit for
　　　　　　　　　　end if
　　　　　　　　end if
　　　　　　　　On error goto 0
　　　　　　end if
　　　　end if
　　next

noname#140971 · Answer

ちょっとバグを取るには、色々とあり過ぎます。
そこで、幾つかの対案を示して回答とします。
SetCtlValue 関数が即答に近いかと思います。

プログラムコードの書き方はケースバイケース。

Private Sub Command1_Click()
On Error Resume Next
　　Dim intIndex As Integer
　　Dim ctl　　　As Control

　　If IsNumeric(txtIndex.Text) Then
　　　　intIndex = txtIndex.Text
　　　　Set ctl = Option1(intIndex)
　　　　ctl.Value = True
　　Else
　　　　MsgBox "数字を入れてください"
　　End If
End Sub

これでもOKですよね。

Private Sub Command2_Click()
　　Dim isOK As Boolean
　　
　　isOK = SetCtlValue("Option1", 2, True)
　　If isOK Then
　　　　MsgBox "値をセットしました！"
　　Else
　　　　MsgBox "値をセットに失敗しました！"
　　End If
　　SetCtlValue "Text1", -1, "TEST"
　　SetCtlValue "Check1", -1, 1
End Sub

このように SetCtlValue という関数を用意するのも手ですね。
Cption をセットすることが無ければ、問題はないでしょう。

Public Function SetCtlValue(ByVal ctlName As String, _
　　　　　　　　　　　　　　ByVal I As Variant, _
　　　　　　　　　　　　　　ByVal V As Variant) As Boolean
On Error Resume Next
　　Dim ctl　As Control
　　
　　For Each ctl In Me.Controls
　　　　Debug.Print ctl.Name
　　　　If ctl.Name = ctlName Then
　　　　　　If I = -1 Then
　　　　　　　　ctl.Value = V
　　　　　　　　ctl.Text = V
　　　　　　　　Exit For
　　　　　　ElseIf ctl.index = I Then
　　　　　　　　ctl.Value = V
　　　　　　　　ctl.Text = V
　　　　　　　　Exit For
　　　　　　End If
　　　　End If
　　Next ctl
　　SetCtlValue = CBool(ctl.Value = V)
End Function

オプションボタン（配列）のチェック変更

訂正

ctl自体がコントロール配列にはなりえません

ちょっとバグを取るには、色々とあり過ぎます。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング