Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1487 / 9994

←次へ　｜　前へ→


	【11800】Re:VBAをクエリで使う方法

かな - 10/9/30(木) 12:39 -


	引用なし

	パスワード

▼雅さん：

ありがとうございます
連番をつける必要があるんですね
もう一度、テーブルを見直してみて、
やってみます

また、下記のコードの件でお聞きするかもしれませんが、
そのときはよろしくおねがいします

>雅です。
>
>連番は必要だと思います。
>連番なくてもよい場合のパターンは思いつかないのでほかの方の回答を
>お待ちください。
>
>遅くてもよければ
>
>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
>
>こんな感じかな？
>(ダイレクトに打ったので構文エラーとかあるかも)
>
>これをクエリから呼べばとりあえず出ると思います。
>
># ほかにもっといい方法があると思いますけど。。。
># とりあえず思いつかなかった。。。

408 hits

▼

【11779】VBAをクエリで使う方法 かな 10/9/24(金) 13:30