ボタンにフォーカスするサブフォームの変更をクリックします。

Question

クリックすると、そのレコードのメインフォームをフィルタする各行にボタン付きのサブフォーム（連続フォーム）があります。ボタンをクリックすると、サブフォームのフォーカスがサブフォームの先頭（つまり最初のレコード）にジャンプします。フォーカスをレコードに残すにはどうしたらいいですか？

つまり、レコード100の横にあるボタンをクリックすると、フォーカスがサブフォームに記録されます（メインフォームはレコード100を意図したとおりに表示します）。私はここに私が使用しているVBAコードだ

記録100に滞在して、サブフォームに焦点を当てたい：

Private Sub select_record_button_Click() 
Me.Parent.Form.Filter = "[ID]=" & Me.ID 
Me.Parent.Form.FilterOn = True 
End Sub 

上記のコードは、サブフォーム上のボタンの上をクリックしてイベントです。

Answer 1

あなたはこの試みることができる：フィルタが適用された後、フィルタを適用する前に、変数にサブフォームの.SelTopプロパティを持ち、復元

を。

これは、選択したレコードを正確な行に保持することはありませんが、サブフォームの表示領域の最初のレコードになります。

Private Sub select_record_button_Click() 
    Dim t As Long 
    With Me 
     t = .SelTop 
     With .Parent.Form 
      .Filter = "[ID]=" & Me!ID 
      .FilterOn = True 
     End With 
     .SelTop = t 
    End with 
End Sub