ACCESS VBA フォームが開いていたらリクエリ

If SysCmd(acSysCmdGetObjectState, acForm, “F_受注伝票一覧”) = 1 Then Forms!F受注伝票_一覧.Requery
End If

If SysCmd(acSysCmdGetObjectState, acForm, “F_受注一覧新規追加”) = 1 Then Forms!F受注一覧_新規追加.Requery
End If