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
If SysCmd(acSysCmdGetObjectState, acForm, “F_受注伝票一覧”) = 1 Then Forms!F受注伝票_一覧.Requery
End If
If SysCmd(acSysCmdGetObjectState, acForm, “F_受注一覧新規追加”) = 1 Then Forms!F受注一覧_新規追加.Requery
End If