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も見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
Access VBA Me.Requery レコードは削除されています エラー
その他(データベース)
-
Access「レコードが削除されました」のエラー
Access(アクセス)
-
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
-
4
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
5
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
6
Access サブフォームでの選択行の取得
その他(データベース)
-
7
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
8
レコード削除時に(サブ)フォームに表示される#Deleted"について"
Access(アクセス)
-
9
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
10
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
11
サブフォームを非表示させる方法を教えて下さい
その他(Microsoft Office)
-
12
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
13
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
14
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
15
ACCSESS2013VBA フォームのレコードソースを変更する
その他(データベース)
-
16
Access クエリ実行が急に非常に遅くなりました。
Access(アクセス)
-
17
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
18
AccessのRefresh・Requery・Repaintの違い
Access(アクセス)
-
19
ACCESS97 実行時エラー '2455'に関して
Access(アクセス)
-
20
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
お助けください!VBAのファイル...
-
ADOのExecuteメソッドで交互に...
-
ACCESSで値を代入できないとは?
-
String""から型'Double'への変...
-
数式は残し値をクリアするマク...
-
VBAに関して
-
VBA データ(特定値)のある最...
-
ACCESS VBAのSplit()関数の使用...
-
バッチファイルで、あるスクリ...
-
マクロの「SaveAs」でエラーが...
-
On ErrorでエラーNoが0
-
Excel VBA 串刺し計算について
-
VBA エクセル で FIND でのエラ...
-
unityの教科書のゲームを作って...
-
verilog で「*」を使って2の補...
-
ActiveCell.FormulaR1C1の変数
-
オブジェクト型の変数にフォー...
-
Windows7で、Windows updateの...
-
pythonのopenpyxlについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
On ErrorでエラーNoが0
-
VBAでfunctionを利用しようとし...
-
マクロで"#N/A"のエラー行を削...
-
VBA データ(特定値)のある最...
-
実行時エラー 438 の解決策をお...
-
お助けください!VBAのファイル...
-
文字列内で括弧を使うには
-
エクセルVBA 「On Error GoTo...
-
【VBA】ワークブックを開く時に...
-
マクロの「SaveAs」でエラーが...
-
ACCESSで値を代入できないとは?
-
実行時エラー'-2147467259(8000...
-
インポート時のエラー「データ...
-
【VB.NET】 パワポ操作を非表示で
-
Filter関数を用いた結果、何も...
-
UBoundに配列がありませんとエ...
-
Excel vbaについての質問
-
メールの件名のセットでエラー...
おすすめ情報