[ACC2000] フォームの開閉を何度も繰り返すとメモリ不足エラーが発生する

先頭へ戻る

再現手順

1. Windows 95 または Windows 98 が動作しているコンピュータで、サンプル データベース Northwind.mdb を開きます。
2. [ツール] メニューの [マクロ] をポイントし、[Visual Basic Editor] をクリックします。
3. Visual Basic Editor で、[挿入] メニューの [標準モジュール] をクリックします。
4. 手順 3. で作成した標準モジュールに次のコードを入力します。

   Function memFormTest(stTestForm As String, intIter As Integer)
   
       Dim i As Integer
       
       DoCmd.SelectObject acForm, stTestForm
       
       For i = 1 To intIter
           Debug.Print "Opening form " & stForm & " for the " & i & " time"
           SendKeys "{F11}", False: DoEvents
           SendKeys "%o", False: DoEvents
           SendKeys "^{F4}", False: DoEvents
       Next
       
   End Function
   

5. [ファイル] メニューの [Northwind の上書き保存] をクリックし、手順 3. で作成した標準モジュールを Module1 という名前で保存します。
6. Visual Basic Editor を開いたまま、Access 2000 に戻り、[商品区分] フォームを開きます。
7. [商品区分] フォームをアクティブにし、Alt + F11 キーを押して Visual Basic Editor に戻ります。
8. [イミディエイト] ウィンドウに次の行を入力し、Enter キーを押します。

   ?memFormTest("商品区分","2000")
   

   Access 2000 で [商品区分] フォームが開いて閉じる動作を繰り返します。
   
   重要 : エラーが表示されるまでは、コンピュータで他の操作を行わないでください。また、キーボードまたはマウスには触れないようにしてください。
   
9. この資料の「現象」に記載されているエラー メッセージのいずれかが表示された後、[OK] を数回クリックして、もう 1 つのエラー メッセージを表示します。
10. エラーを表示した後、プロシージャの実行が停止するまで Ctrl + Break キーを押します。
11. Visual Basic Editor で、[イミディエイト] ウィンドウの下までスクロールします。システム リソースの損失が深刻な状態になるまでの回数が表示されています。
    
    メモ : この回数はシステムによって異なる可能性があります。

先頭へ戻る