No.2
- 回答日時:
質問自体に疑義があります。
そもそも、2万件のレコードセットをオープンしたらフリーズするようでいたらデータベースアプリケーションが組めないと思いますが?
ということは、原因はレコードセット以外にあるのではと思われますが...
回答ありがとうございます
ご指摘のとおり、フリーズはなおりました
原因がわからないうちにできてしまって
理由は書けませんが
ありがとうございました
No.1ベストアンサー
- 回答日時:
久しぶりにDAOを使ってみたので外しているかもしれませんが
Sub aaa()
Dim db As Database
Dim inrec3 As DAO.Recordset
Dim i As Long
Set db = CurrentDb
Set inrec3 = db.OpenRecordset("TEST")
Do Until inrec3.EOF
i = i + 1
If i Mod 100 = 0 Then
Debug.Print i, inrec3!XXX
DoEvents
If i = 30000 Then Exit Sub
End If
inrec3.MoveNext
Loop
inrec3.Close
Set inrec3 = Nothing
Set db = Nothing
End Sub
試しにやってみました。
200万件のレコードで30,000回ループ
何も問題ありませんでした。
気になったことですが、
(1)Set inrec3 = CurrentDb.OpenRecordset("テーブル名")
とせずに、"Select * From テーブル名 Where Field1 > 1000 " 見たいに
SQL文でくくれないでしょうか。
全レコードを読まなければならないのならば別ですが
(2)DoEventsを入れて見たらどうでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- その他(データベース) IT用語について質問です。 以前ITパスポートの試験を受けた際にデータベースが何の集まりかについての 2 2022/12/10 12:29
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- PostgreSQL PostgreSQL レコードからアイテム種類数を取得したい 2 2022/11/23 22:31
- SQL Server ACCESSで表が作りたく、そのためのSQL文や設定方法を教えてください。 1 2022/08/15 12:28
- Access(アクセス) access フォーム 大分類、小分類 1 2022/08/11 18:03
- Access(アクセス) accessでexcelを読み込む時のデータ型 1 2022/03/28 19:45
- PHP クエリObjectをforeachで回す時に、次のレコードへ移動せずに次のレコードを取得したい 2 2022/07/28 15:29
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
2つ目のレコードの値を取得するには?
Access(アクセス)
-
-
4
Access サブフォームでの選択行の取得
その他(データベース)
-
5
アクセスからエクセルのシートを追加して、名前をつける方法
Excel(エクセル)
-
6
Access 2010で実行時エラー3061
その他(Microsoft Office)
-
7
Accessでレコードを別テーブルへコピーするには
Access(アクセス)
-
8
アクセスのマクロ
Visual Basic(VBA)
-
9
ACCESS で 項目名を出力せずにエクスポートしたい
その他(データベース)
-
10
Access VBA Me.Requery レコードは削除されています エラー
その他(データベース)
-
11
Access 1レコードずつcsvで出力したい
その他(データベース)
-
12
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
13
「RunSQL」と「Execute」の違い
Access(アクセス)
-
14
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
15
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
16
Access コンボボックスの値をクリアしたい。
PowerPoint(パワーポイント)
-
17
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
18
アクセスでテーブルの変更内容をフォームに反映させるには?
その他(データベース)
-
19
VBとアクセスでSQL文に変数を使いたいのですが
Visual Basic(VBA)
-
20
AccessのRefresh・Requery・Repaintの違い
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ACCESSテーブルを RecordSet以...
-
外部キーのリレーションが設定...
-
accessのフォームを使ってテー...
-
モデルクラスの数は?テーブル...
-
DBの読み込み順について
-
【ACCESS】リレーションを組ん...
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
VB.NETで DataRow()を利用して...
-
ExcelのINDEXとMATCH関数でスピ...
-
Excelのハイパーリンクにマクロ...
-
【Excel】指定したセルの名前で...
-
Excelで指定した日付から過去の...
-
DataGridViewのセル編集完了後...
-
【Excel VBA】先頭の「0」飛び...
-
VBA:小数点以下の数字を取得で...
-
【Excel VBA】指定行以降をクリ...
-
VBAでActiveDirectoryのユーザ...
-
PL/SQLでのTO_DATEの時間取得に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SQL文(テーブル項目名が特殊文...
-
select文の戻り値を変数に格納...
-
【ACCESS】リレーションを組ん...
-
ACCESSテーブルを RecordSet以...
-
VBとACCESSを接続したい
-
テーブルというグローバル変数
-
DBの読み込み順について
-
access コンボボックス初期表示...
-
accessのフォームを使ってテー...
-
DataGridViewで編集した内容を...
-
外部キーのリレーションが設定...
-
HTML&CSS Javascriptによる動...
-
ASP(VBScript)で自動連番
-
Perlで変数内の日本語が文字コ...
-
EF(コードファースト)のコン...
-
ASP.NET:複数結合テーブルのデ...
-
フラッシュの画像を合わせるパ...
-
教えてアクセス2007!「在...
-
テーブルへのデータ投入について。
-
ExcelVBAを使って、値...
おすすめ情報