VB6 と ACCESS97 でソフト開発をしています。
フォームに DBGrid を配置し、クエリの結果を表示させていますが、
多くの場合に「実行時エラー '3167' レコードは削除されています。」の
エラーが出ます。(出ないときもあります。)
どなたか、このエラーを回避する方法を教えて下さい。
以下は、コーディングの一部です。
Data1.DatabaseName = MDB_Path & "株.mdb"
'------ クエリのセット ------------------------------------------------
Set MyQuery = dbs.QueryDefs("連結決算Q")
SQL = "SELECT 決算チェックT.銘柄CD, [当日株価T].銘柄名, [当日株価T].市場"
++++++ 途中略 ++++++++++++++++++++++
SQL = SQL & " 決算チェックT.銘柄CD;"
MyQuery.SQL = SQL
Set tbl = dbs.OpenRecordset(SQL)
銘柄CD(1) = tbl!銘柄CD: 市場(1) = tbl!市場
'------ チャート(小、1年)の取得と表示 ---------------------------------
++++++ 途中略 ++++++++++++++++++++++
Image1.Picture = LoadPicture(F_Name)
DoEvents
'--- 株価の取得 -------------------------------------------------
GetURL = " http://quote.yahoo.co.jp/q?s=" & 銘柄CD(1) & "&d=v6"
Inet1.RequestTimeout = 15
Inet1.Execute GetURL, "GET": DoEvents
tbl.MoveLast: データ数(1) = tbl.RecordCount
tbl.MoveFirst
Data1.Caption = Space$(25) & "決算チェック銘柄数 " & データ数(1) & "銘柄"
Check_1:
Data1.RecordSource = "00#連結決算表示Q"
For K = 1 To 300: For J = 1 To 3000: DoEvents: Next J: Next K
'〓〓〓〓 ここでエラーが出る 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
Data1.Refresh:
Call DBGrid(1)表示整形
DBGrid1.Refresh
If データ数(1) <> Data1.Recordset.RecordCount Then
For K = 1 To 1000: DoEvents: Next K
GoTo Check_1
End If
No.1ベストアンサー
- 回答日時:
「時間待ち」の為に「空ループを回し、その中にDoEventsを入れる」のが間違いです。
もし、ボタン押下など、イベントに拠って呼ばれるプロシジャ内で、こういう時間待ちをしていると、マニュアルにも書いてあるように
「もう一度同じプロシージャが呼び出され、実行結果が不定になる」
と言う事が起きます。
http://homepage2.nifty.com/kasayan/vba/doevents. …
プログラム中の「DoEventsを完全にすべて排除」し、代わりに
Application.Wait(Now + TimeValue("0:00:10"))
など、WaitメソッドかSleep関数を使用しましょう(上記の例は「10秒待つ」です)
「DoEventsを完全にすべて排除」しない限り、そのエラーは抑止出来ません。
因みに「OnError Gotoでエラーハンドリングを行なう」事で「エラーが起きている事を隠す」ことは出来ますが「実行結果が不定で、システムが不安定になり、いつ、何が起きるか判らない」のは変わりません。
残念ですが「DoEventsを使っている限り、客先に提供可能なプログラム品質は確保出来ない」と思って下さい。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 投資・株式の税金 一般口座で同一銘柄の総平均法のことで 1 2023/02/27 22:08
- 株式市場・株価 日本株の個別銘柄の事ですみません。 本日14時に決算発表した 機械のオルガノですが、決算内容まずまず 4 2023/02/01 15:53
- 日本株 楽天RSS2での移動平均の取得について 1 2022/07/28 21:48
- 日本株 【郵政グループの株式上場】日本郵政、日本郵政の完全子会社の日本郵便、郵便局、ゆうちょ銀 2 2023/03/14 22:00
- 株式市場・株価 株価検索 2 2022/05/14 10:39
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- その他(資産運用・投資) トンチン年金か高配当銘柄投資か 1 2022/04/10 10:59
- 株式市場・株価 株価表示 5 2022/05/21 13:43
- 株式市場・株価 株取引をするにあたり、銘柄選びに有効な方法はどんなやり方が有りますか? とにかく3000余りも銘柄が 1 2023/01/13 16:20
- 株式市場・株価 株 7 2022/06/11 11:52
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Access VBA Me.Requery レコードは削除されています エラー
その他(データベース)
-
Access「レコードが削除されました」のエラー
Access(アクセス)
-
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
-
4
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
5
レコード削除時に(サブ)フォームに表示される#Deleted"について"
Access(アクセス)
-
6
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
7
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
8
Access サブフォームでの選択行の取得
その他(データベース)
-
9
Access レコード削除時に「カレントレコードがありません」エラーが表示されてしまう
Access(アクセス)
-
10
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
11
アクセス 壊れた? 「ファイルが見つかりません」
Access(アクセス)
-
12
ADO VBA 実行時エラー3021
Visual Basic(VBA)
-
13
サブフォームを非表示させる方法を教えて下さい
その他(Microsoft Office)
-
14
ACCSESS2013VBA フォームのレコードソースを変更する
その他(データベース)
-
15
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
16
VBでSQL文のUPDATE構文を使った時のエラーについて
Visual Basic(VBA)
-
17
「RunSQL」と「Execute」の違い
Access(アクセス)
-
18
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
19
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
20
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
【VBA】ワークブックを開く時に...
-
マクロで"#N/A"のエラー行を削...
-
String""から型'Double'への変...
-
バッチファイルからVBA実行でエ...
-
「実行時エラー '3167' レコー...
-
ACCESSで値を代入できないとは?
-
マクロの「SaveAs」でエラーが...
-
ApplicationとWorksheetFunctio...
-
Excel vbaについての質問
-
【VB.NET】 パワポ操作を非表示で
-
VBでSQL文のUPDATE構文を使った...
-
実行時エラー'-2147467259(8000...
-
ADO 「認証に失敗しました」
-
Excel2013で実行時エラー9...
-
python初心者です。
-
ActiveCell.FormulaR1C1の変数
-
VB.net 重複チェックがしたいです
-
日付書式のString型からData型...
-
お助けください!VBAのファイル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
VBAでfunctionを利用しようとし...
-
【VBA】ワークブックを開く時に...
-
マクロで"#N/A"のエラー行を削...
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
On ErrorでエラーNoが0
-
お助けください!VBAのファイル...
-
VBA データ(特定値)のある最...
-
インポート時のエラー「データ...
-
実行時エラー'-2147467259(8000...
-
ACCESSで値を代入できないとは?
-
VB.net 重複チェックがしたいです
-
ActiveCell.FormulaR1C1の変数
-
【VB.NET】 パワポ操作を非表示で
-
「実行時エラー '3167' レコー...
-
ApplicationとWorksheetFunctio...
-
フランスの生年月日(jj/mm/aaaa)
-
【マクロ】 IFERROR関数をマク...
おすすめ情報