Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2621 / 9994 ←次へ　｜　前へ→
【10645】Re:フラグ更新について（更新クエリ？）
回答  トキドキ徹  - 08/10/31(金) 14:40 -
引用なし
パスワード
   ▼MAI さん：

Dlookup関数は少し時間がかかってしまうのが難点ですね。
（ヘルプでもなるべくクエリを使うように勧めているようですし）
いろいろ考えずに力技（？）で押せるところは好きですけど＾＾；；


Acc2000であればADOが既定だったかと思いますが、
私はDAOに慣れているのでDAOにさせてもらいます。

VBAコードの一例です。
'=======================================
Private Sub sub_Sample()
'要参照設定　Microsoft DAO X.X Object Library
　　Dim myDB As DAO.Database
　　Dim myRS As DAO.Recordset
　　Dim myFilSTR(2 To 3) As String　　'** 出荷率ごとの更新値を引数に **
　　Dim myLooP As Long
　　Dim mySQL As String
　　
　　Set myDB = CurrentDb
　　Set myRS = myDB.OpenRecordset("Q_出荷状況", dbOpenSnapshot)
　　
　　'出荷率ごとの注文NOを取得
　　Do Until myRS.EOF
　　　　If myRS!出荷率 > 1 And myRS!出荷率 < 100 Then
　　　　　　myFilSTR(2) = myFilSTR(2) & ", '" & myRS!注文NO & "'"
　　　　ElseIf myRS!出荷率 >= 100 Then
　　　　　　myFilSTR(3) = myFilSTR(3) & ", '" & myRS!注文NO & "'"
　　　　End If
　　　　myRS.MoveNext
　　Loop
　　
　　'T_受注更新
　　For myLooP = LBound(myFilSTR) To UBound(myFilSTR)
　　　　If myFilSTR(myLooP) <> "" Then
　　　　　　myFilSTR(myLooP) = "IN (" & Mid$(myFilSTR(myLooP), 3) & ")"
　　　　　　mySQL = "UPDATE T_受注 SET フラグ = " & myLooP & _
　　　　　　　　　　" WHERE 注文NO " & myFilSTR(myLooP)
　　　　　　myDB.Execute mySQL, dbFailOnError
　　　　End If
　　Next myLooP
　　
　　Set myRS = Nothing
　　Set myDB = Nothing
End Sub
'=======================================
動かすには「Microsoft DAO X.X Object Library」への参照設定が必要です。

大量データで試してないので分かりませんが、
少しは早くなるかと思います。

コードの細かい解説はご勘弁を＾＾；；
Accのヘルプや書籍等を参照して下さい。


参考までに
1,430 hits
▼ 【10636】フラグ更新について（更新クエリ？） MAI 08/10/29(水) 22:32 質問[未読]
【10640】Re:フラグ更新について（更新クエリ？） トキドキ徹 08/10/30(木) 18:50 回答[未読]
【10643】Re:フラグ更新について（更新クエリ？） MAI 08/10/30(木) 23:50 質問[未読]
【10645】Re:フラグ更新について（更新クエリ？） トキドキ徹 08/10/31(金) 14:40 回答[未読]≪
【10673】Re:フラグ更新について（更新クエリ？） MAI 08/11/5(水) 21:04 質問[未読]
【10674】Re:フラグ更新について（更新クエリ？） トキドキ徹 08/11/6(木) 9:42 発言[未読]
【10680】Re:フラグ更新について（更新クエリ？） MAI 08/11/6(木) 22:33 質問[未読]
【10683】Re:フラグ更新について（更新クエリ？） トキドキ徹 08/11/7(金) 15:26 発言[未読]
【10701】Re:フラグ更新について（更新クエリ？） MAI 08/11/7(金) 21:07 質問[未読]
【10702】Re:フラグ更新について（更新クエリ？） neptune 08/11/8(土) 12:58 発言[未読]
【10718】Re:フラグ更新について（更新クエリ？） MAI 08/11/10(月) 20:31 質問[未読]
【10719】Re:フラグ更新について（更新クエリ？） neptune 08/11/10(月) 21:48 発言[未読]
【10721】Re:フラグ更新について（更新クエリ？） MAI 08/11/10(月) 22:11 質問[未読]
【10723】Re:フラグ更新について（更新クエリ？） neptune 08/11/11(火) 9:53 発言[未読]
【10726】Re:フラグ更新について（更新クエリ？） MAI 08/11/11(火) 21:25 質問[未読]
【10727】Re:フラグ更新について（更新クエリ？） neptune 08/11/11(火) 22:11 回答[未読]
【10728】Re:フラグ更新について（更新クエリ？） MAI 08/11/11(火) 22:39 質問[未読]
【10729】Re:フラグ更新について（更新クエリ？） neptune 08/11/11(火) 22:51 発言[未読]
【10730】Re:フラグ更新について（更新クエリ？） MAI 08/11/11(火) 23:08 質問[未読]
【10731】Re:フラグ更新について（更新クエリ？） neptune 08/11/11(火) 23:36 発言[未読]
【10647】Re:フラグ更新について（更新クエリ？） neptune 08/10/31(金) 22:50 発言[未読]
【10648】Re:フラグ更新について（更新クエリ？） MAI 08/11/1(土) 9:44 質問[未読]
【10649】Re:フラグ更新について（更新クエリ？） neptune 08/11/1(土) 10:56 回答[未読]
【10659】Re:フラグ更新について（更新クエリ？） MAI 08/11/2(日) 0:13 質問[未読]
【10662】Re:フラグ更新について（更新クエリ？） neptune 08/11/2(日) 12:16 回答[未読]
【10663】Re:フラグ更新について（更新クエリ？） MAI 08/11/2(日) 13:21 質問[未読]
【10664】Re:フラグ更新について（更新クエリ？） neptune 08/11/2(日) 17:18 回答[未読]
【10666】Re:フラグ更新について（更新クエリ？） MAI 08/11/3(月) 15:54 質問[未読]
【10667】Re:フラグ更新について（更新クエリ？） neptune 08/11/3(月) 18:53 発言[未読]
【10668】Re:フラグ更新について（更新クエリ？） MAI 08/11/3(月) 21:33 質問[未読]
【10669】Re:フラグ更新について（更新クエリ？） neptune 08/11/3(月) 21:59 発言[未読]
【10670】Re:フラグ更新について（更新クエリ？） MAI 08/11/3(月) 23:44 発言[未読]
【10651】Re:フラグ更新について（更新クエリ？） YU-TANG 08/11/1(土) 15:08 回答[未読]
【10656】Re:フラグ更新について（更新クエリ？） neptune 08/11/1(土) 22:44 発言[未読]
【10657】Re:フラグ更新について（更新クエリ？） neptune 08/11/1(土) 22:50 発言[未読]
【10660】Re:フラグ更新について（更新クエリ？） YU-TANG 08/11/2(日) 3:39 発言[未読]
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2621 / 9994 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078199
(SS)C-BOARD v3.8 is Free