vba - 通过字符串提供控件名称

Question

“Me.strLblName.FontBold = True”不起作用。我已经尝试过 Me.& strLblName &.FontBold = True 以及许多其他人。这是语法问题还是我需要另一种方法？

**Private Sub Form_Load()
Dim ctl As Control, intUsage As Integer, strCtlName As String, strLblName As String
For Each ctl In Me.Form.Controls
    Select Case ctl.ControlType
        Case acCommandButton
            intUsage = DLookup("process_usage", "tbl_db_stats", "cbtn_name = '" & ctl.Name & "'")
            Debug.Print ctl.ControlType, ctl.Name, intUsage
            strLblName = "lbl_" & Right(ctl.Name, Len(ctl.Name) - 5)
            If intUsage < 10 Then
                Stop
                'CHANGE LABEL TEXT TO BOLD
                Me.strLblName.FontBold = True
            End If
    End Select
Next ctl
End Sub**

标签： vbams-access

Answer 1

Controls(strLblName).FontBold = True