- ACCESS
- 2013-11-20
この記事は最終更新日から1年以上経過しています。
MicroSoft ACCESSにて、フォームを開くとき、閉じるときの速度が遅い場合、
コードの書き方によって改善できることがあります。
以下のようにフォームを開くときにフィルターをかけていた場合
Private Sub Form_Load() DoCmd.ApplyFilter , "[Where条件]" End Sub
上記の場合でいくと開くときにも時間がかかり、
更には、閉じるときにも時間がかかってしまいます。
改善するには、開くときにフィルター条件を引数に与えてしまいます。
Dim stDocName As String Dim stLinkCriteria As String stDocName = "[フォーム名]" stLinkCriteria = "[Where条件を指定]" DoCmd.OpenForm stDocName, , , stLinkCriteria
この方法のほうが開く速度も閉じる速度も向上します。
13,352 views