サブフォームのソースを毎日記録_Q1にしておけば
検索_Click で Me![検索結果_F].Form.Requery だけでいい