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(アクセス)
-
Access サブフォームでの選択行の取得
その他(データベース)
-
2つ目のレコードの値を取得するには?
Access(アクセス)
-
-
4
Access 1レコードずつcsvで出力したい
その他(データベース)
-
5
Accessでレコードを別テーブルへコピーするには
Access(アクセス)
-
6
ACCESS で 項目名を出力せずにエクスポートしたい
その他(データベース)
-
7
VBとアクセスでSQL文に変数を使いたいのですが
Visual Basic(VBA)
-
8
Access 2010で実行時エラー3061
その他(Microsoft Office)
-
9
Access インポート
Access(アクセス)
-
10
Accessにインポートしたら並び順が変わっちゃった
Access(アクセス)
-
11
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
12
Access VBA Me.Requery レコードは削除されています エラー
その他(データベース)
-
13
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
14
アクセスのマクロ
Visual Basic(VBA)
-
15
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
16
「RunSQL」と「Execute」の違い
Access(アクセス)
-
17
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
18
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
19
レコードセット(ADO.Recordset)で処理レコードは何番目?
Visual Basic(VBA)
-
20
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
外部キーのリレーションが設定...
-
select文の戻り値を変数に格納...
-
DBの読み込み順について
-
SQL文(テーブル項目名が特殊文...
-
Windows formアプリで データグ...
-
accessのフォームを使ってテー...
-
異なるデータベースでのSELECT ...
-
【ACCESS】リレーションを組ん...
-
ExcelVBAを使って、値...
-
データ数をカウントしたいのですが
-
i=cells(Rows.Count, 1)とi=cel...
-
Accessのクエリで、replace関数...
-
VB.NETで DataRow()を利用して...
-
count(*)で取得した値をJAVAの...
-
特定のセルが空白だったら、そ...
-
Excelのセルの色指定をVBAから...
-
Excle VBA Findメソッドについて
-
テキストボックスのvalueとtext...
-
Listviewのデータを上から順番...
-
【Excel VBA】指定行以降をクリ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows formアプリで データグ...
-
【ACCESS】リレーションを組ん...
-
select文の戻り値を変数に格納...
-
SQL文(テーブル項目名が特殊文...
-
ACCESSテーブルを RecordSet以...
-
DBの読み込み順について
-
外部キーのリレーションが設定...
-
access コンボボックス初期表示...
-
Perlで変数内の日本語が文字コ...
-
VBとACCESSを接続したい
-
テーブルというグローバル変数
-
C# 型名に変数が使えますか?
-
ASP.NET:複数結合テーブルのデ...
-
ASPとAccessとの接続について
-
accessのフォームを使ってテー...
-
Delphi BDE 複数ユーザによる...
-
DataGridViewで編集した内容を...
-
SQLで最新の3件分の統計をとりたい
-
モデルクラスの数は?テーブル...
-
教えてアクセス2007!「在...
おすすめ情報