Как удалить фокус текстового поля из навигационной подформы

Question

Я искал ответ на эту проблему в течение нескольких дней. У меня есть моя основная форма «frmAddContact» с навигационной формой, называемой «NavigationSubform». Все текстовые поля имеют эффект свечения, добавляя кнопку внизу и изменяя видимость кнопок OnGotFocus и OnLostFocus. Все работает отлично, когда я перемещаюсь и выхожу из основной формы, а также когда перехожу к форме, но проблема возникает, когда я перехожу из подформы в основную форму - фокус на суб форме остается, поэтому свечение видно на суб-форму и основную форму.

Как удалить фокус при выборе текстового поля в основной форме?

Каждый текстовый блок имеет следующий код:

Private Sub [TextBoxName]_GotFocus() 
Glow Me.[TextBoxName], Me.[ButtonName], True 
End Sub 

Private Sub [TextBoxName]_LostFocus() 
Glow Me.[TextBoxName], Me.[ButtonName], False 
End Sub 

Glow код метода сидит в модуле:

Sub Glow(ctlText As Control, ctlShadow As Control, TurnOn As Boolean) 
If TurnOn = True Then 
    ctlText.BorderColor = RGB(102, 175, 233) 
    ctlShadow.Visible = True 
Else 
    ctlText.BorderColor = RGB(228, 228, 228) 
    ctlShadow.Visible = False 
End If 
End Sub 

два текстовых поля с сиянием Here

Answer 1

Я думаю, что вопрос сам по себе подчиненной на самом деле не потерял внимания. Вы должны заставить заставить свет погаснуть, запустив ваш код свечения из события GotFocus в текстовом поле Основной формы.

Это немного сложно, но проверьте многие онлайн-ресурсы относительно ссылок на подформы из форм.
This is a good one начать с

Правилом это вы в основном должен относиться к основной форме первым, затем подчиненному, то управление

Если вы сделаете это, когда текстовое поле получает фокус он должен очистить подчиненный контрольное свечение

Private Sub [TextBoxName]_GotFocus() 
    Glow Forms![frmAddContact]![NavigationSubform].Form.[TextBoxName], _ 
     Forms![frmAddContact]![NavigationSubform].Form.[ButtonName], False 
    Glow Me.[TextBoxName], Me.[ButtonName], True 
End Sub