ナビゲーションサブフォームからテキストボックスのフォーカスを削除する方法

Question

私はこの問題の答えを数日間探していました。私は "NavigationSubform"と呼ばれるナビゲーションサブフォームで私のメインフォーム "frmAddContact"を持っています。すべてのテキストフィールドには、ボタンの下にボタンを配置し、ボタンの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 

グローメソッドコードはモジュールに座る：

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 

2つのテキストボックスグローHere

Answer 1

で、私は問題は、サブフォームそのものだと思います本当にフォーカスを失っていません。メインフォームのTextbox GotFocusイベントからグローコードを実行することにより、グローを強制的に削除することができます。

これはちょっと難しいですが、フォームからサブフォームを参照する方法については、多くのオンラインリソースを参照してください。

でルールを開始する
This is a good oneあなたは基本的には、第1のメインフォームを参照する必要があるテキストボックスがそれをフォーカスを取得したときに、あなたがこれを行う場合は、サブフォーム、その後、制御

は、サブフォームをクリアする必要がありますコントロールの光

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