ник: Lukas
В модуле формы:
Option Compare Database
Option Explicit
Private ActiveLabel As Label
Private Sub Form_Open(Cancel As Integer)
LabelActivate Me.Controls("ТекстНадпись") 'Имя Label активной по-умолчанию(первой)
End Sub
' вызываем и передаем ссылку на Label при клике(например)
Private Sub LabelActivate(NewActiveLabel As Label)
If Not ActiveLabel Is Nothing Then
With ActiveLabel
.BackColor = 16777215
.ForeColor = 0
.FontBold = 0
End With
End If
Set ActiveLabel = NewActiveLabel
With ActiveLabel
.BackColor = 62207
.ForeColor = 255
.FontBold = 1
End With
End Sub
|
Не проверял, писал "на глаз". :)