ACCESSのVBAで以下のコードを実行するとエラーがでて困っています。
エラーは「行セットは逆方向フェッチをサポートしていません」とでます。
どこに問題があるのかをヘルプで調べても全く分かりませんでしたので、
問題点、アドバイスがあれば教えてください。
環境はACCESS2000、WIN98です。
宜しくお願いしますm(_ _)m
Dim recR As New ADODB.Recordset
Dim cmdR As New ADODB.Command
cmdR.ActiveConnection = CurrentProject.Connection
cmdR.CommandText = "~"
Set recR = cmdR.Execute
Do Until recR.EOF
If ~ Then
recR.MoveLast ←ここでエラーがでます
End If
recResult.MoveNext
Loop
No.1ベストアンサー
- 回答日時:
Commandオブジェクトじゃなく、RecordsetオブジェクトのOpenメソッドを使ってレコードセットを取得したらどうでしょうか。
その際にレコードセットのカーソルタイプを適切なものにすれば良いと思います。Staticとか。
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSQL As String
Set cn = CurrentProject.Connection
strSQL = "ほげほげ"
Set rs = New ADODB.Recordset
rs.Open strSQL, cn, adOpenStatic
' ループ処理
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
temtecomaiさん 回答ありがとうございますm(_ _)m
RecordsetオブジェクトのOpenメソッドを使うことによって
エラーが出なくなりました。
ありがとうございましたm(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 実行時エラー´5854´ 文字列型パラメーターが長すぎます。 3 2023/06/08 21:17
- Visual Basic(VBA) ACCESS DAO で不要なテーブルのフィールド(列)の削除 4 2022/06/23 12:13
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Excel(エクセル) R列の1111/11/11以外、且つQ列の×の条件で該当行のAからAE列までオレンジに塗りつぶす 2 2022/07/02 10:18
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) VBAでファイルを開くプログラムがエラーです 2 2023/02/21 16:56
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
このQ&Aを見た人はこんなQ&Aも見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
VBAでレコードセットの総レコード数を取得する方法
Access(アクセス)
-
実行時エラー 3265「要求された名前、または序数
Visual Basic(VBA)
-
Accessのテーブルデータを一気にVBAで追加したい・・
その他(データベース)
-
-
4
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
5
ACCESSのSQLで、NULLかNULLでないかの判定
その他(データベース)
-
6
実行時エラー3001「引数が間違った型、許容範囲外、または競合しています。」
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
【Excel VBA】マクロをボタンに...
-
VBAがブレークモードになっ...
-
マクロについて教えてください...
-
ExcelVBA Range クラスの Page...
-
実行時エラー -'-2147417848
-
なぜこんな初歩的なVBAのIf文で...
-
Excel コードでの簡単な2種類...
-
VBSで変数の宣言はできないので...
-
Application.ActiveInspectorで...
-
VBA:「中断モードでは入力でき...
-
マクロでのActiveSheet.Pasteで...
-
SQL文をVBAで流すと「型...
-
VBAのコードがエラーになっ...
-
ASP.NET OleDbConnectionが定義...
-
実行時エラー48発生時のDLL特定...
-
なぜエラーになるのでしょうか...
-
EXCEL VBAマクロ中断でデバッグ...
-
「コンパイルエラー:プロシー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
【Excel VBA】マクロをボタンに...
-
なぜこんな初歩的なVBAのIf文で...
-
VBAでのエラー
-
マクロについて教えてください...
-
ExcelVBA Range クラスの Page...
-
実行時エラー3001「引数が間違...
-
VBS実行時エラー オブジェクト...
-
VBAがブレークモードになっ...
-
OLEDB.NETで接続できない
-
プロシージャ名の取得
-
EXCEL VBAマクロ中断でデバッグ...
-
VBSで変数の宣言はできないので...
-
ADODB.Streamを使用してUTF-8を...
-
実行時エラー -'-2147417848
-
AccessVBAでExcelを起動し、罫...
-
VB6+SQL サーバー 2000 で 実行...
-
Outlook.ApplicationをCreateOb...
-
Application.ActiveInspectorで...
おすすめ情報