Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1495 / 9994 ←次へ　｜　前へ→
【11791】Re:VBAをクエリで使う方法
回答  雅  - 10/9/27(月) 17:16 -
引用なし
パスワード
   雅です。

連番は必要だと思います。
連番なくてもよい場合のパターンは思いつかないのでほかの方の回答を
お待ちください。

遅くてもよければ

Public Function QTY(連番 As Long, キー As String, 数量 As Integer)

　　Dim R_REC As Recordset

　　QTY = 数量

　　Set R_REC = CurrentDb.OpenRecordset("SELECT 数 FROM [テーブル名] WHERE 連番<" & 連番 & " And 品番 In (" & Replace(キー, "|", ",") & ") ORDER BY 連番")

　　Do Until R_REC.EOF
　　　　QTY = QTY * R_REC![数]

　　　　R_REC.MoveNext
　　Loop

　　R_REC.Close

End Function

こんな感じかな？
(ダイレクトに打ったので構文エラーとかあるかも)

これをクエリから呼べばとりあえず出ると思います。

# ほかにもっといい方法があると思いますけど。。。
# とりあえず思いつかなかった。。。
382 hits
▼ 【11779】VBAをクエリで使う方法 かな 10/9/24(金) 13:30 質問[未読]
【11780】Re:VBAをクエリで使う方法 かな 10/9/24(金) 15:53 発言[未読]
【11781】Re:VBAをクエリで使う方法 かな 10/9/24(金) 15:55 発言[未読]
【11783】Re:VBAをクエリで使う方法 YU-TANG 10/9/24(金) 17:31 質問[未読]
【11784】Re:VBAをクエリで使う方法 かな 10/9/27(月) 10:15 発言[未読]
【11787】Re:VBAをクエリで使う方法 雅 10/9/27(月) 13:10 発言[未読]
【11789】Re:VBAをクエリで使う方法 かな 10/9/27(月) 16:04 質問[未読]
【11791】Re:VBAをクエリで使う方法 雅 10/9/27(月) 17:16 回答[未読]≪
【11800】Re:VBAをクエリで使う方法 かな 10/9/30(木) 12:39 お礼[未読]
【11792】Re:VBAをクエリで使う方法 YU-TANG 10/9/27(月) 20:07 発言[未読]
【11801】Re:VBAをクエリで使う方法 かな 10/9/30(木) 12:41 お礼[未読]
【11793】Re:VBAをクエリで使う方法 247b 10/9/27(月) 21:16 発言[未読]
【11794】Re:VBAをクエリで使う方法 247b 10/9/28(火) 14:09 発言[未読]
【11802】Re:VBAをクエリで使う方法 かな 10/9/30(木) 12:48 お礼[未読]
【11805】Re:VBAをクエリで使う方法 mayu 10/10/3(日) 1:26 回答[未読]
【11818】Re:VBAをクエリで使う方法 かな 10/10/19(火) 14:07 お礼[未読]
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1495 / 9994 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078193
(SS)C-BOARD v3.8 is Free