Введите контрольное имя через строку - PullRequest
0 голосов
/ 06 февраля 2019

«Me.strLblName.FontBold = True» не работает.Я попробовал меня. & 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**

1 Ответ

0 голосов
/ 06 февраля 2019
Controls(strLblName).FontBold = True
...