«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**