如何通过循环迭代在循环中引用相似的命名文本框

Question

有20项培训，但是不同的县有不同的培训要求。在表单上查看员工时，我要隐藏不需要他们执行的培训（文本框）。。文本框的名称是统一的[txtTrain＃]。我不得不求助于Select / Case，因为我不知道如何使用循环计数器来引用它们。每个名称末尾的计数器和数字都相同。

strCounty = Forms(frmEmpAll).txtCounty.Value

For i = 1 To 20
    yesNo = DLookup("Training" & i, "tblCountyTrain", _
        "County = '" & strCounty & "'")

    With Forms(frmEmpAll)

    Select Case i
        Case 1
            .txtTrain1.Visible = yesNo
        Case 2
            .txtTrain2.Visible = yesNo
        Case 3
            .txtTrain3.Visible = yesNo

…等等。

这似乎很草率，我想清除代码。