Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Access 2016)
パラメーターエラーです
投稿日時: 20/04/30 12:19:39
投稿者: miyama2305

Q工事仕訳伝票明細のデータからstrJokenで指定した
年月範囲及び工事NOの仕訳データを抽出してT_工事集計抽出作業用に表示します。
db.Execute strSQL
でエラーとなります。
ご指導お願いします。
 
For Each tdf In db.TableDefs
If tdf.Name = "T_工事集計抽出作業用" Then DoCmd.DeleteObject acTable, "T_工事集計抽出作業用": Exit For
Next
'対象期間の仕訳データ抽出
strSQL = "SELECT Q工事仕訳伝票明細.* INTO FROM Q工事仕訳伝票明細 WHERE " & strJoken & ";"
db.Execute strSQL→ここでエラー3061 パラメーターが少ない1を指定してください。 
 
strJokenは以下のコードです。
strJoken = "[月度] >= " & cbo年月 & " and [月度] <= " & cbo年月2
strJoken = strJoken & " and ([工事NO] Between '" & _
strUtiID & "' And '" & strUtiID2 & "')"

回答
投稿日時: 20/04/30 13:34:43
投稿者: MMYS

SELECT Q工事仕訳伝票明細.*
INTO FROM Q工事仕訳伝票明細
WHERE <条件>
 
単純化すると上記になりますが、
構文として正しいのでしょうか。
 
 
 


Q工事仕訳伝票明細からある条件で
・年月範囲
・工事NOの仕訳データ
を抽出。
それをT_工事集計抽出作業用に表示


やりたいことを要約すると上記ですが、
 T_工事集計抽出作業用に表示
とは、何かしたいのでしょう。
 
SELECT INTO文で、結果をテーブルに保存したいのですか?
http://www.access-vba-navi.com/post-55/
 
 

投稿日時: 20/04/30 16:53:41
投稿者: miyama2305

MMYS様 ありがとうございます。
Q工事仕訳伝票明細はT工事仕訳伝票明細をそのままコピーしました
フイールドは
月----/日付-------/伝票番号/工事NO/材料費/労務費/外注費/雑費です
201901/2019/12/20/1--------/192185--/5000/--------------------
201902/2019/2/03-/2---------/192198--/----/2000--------------
201902/2019/02/05/3---------/192199--/----/-------/2000-------
201902/2019/02/06/4---------/192198--/2000/------------------
201903/2019/03/06/5---------/3000-----------------------------
 
 
T_工事集計抽出作業用に以下のように表示しますが、
strJokenで、月を201902、工事NOを192198に設定すると
月----/日付-------/伝票番号/工事NO/材料費/労務費/外注費/雑費
201902/2019/02/03/2---------/192198--/----/2000--------------
201902/2019/02/06/4---------/192198--/2000/------------------
上記のように表示します。
 
すいません。この説明で解りますでしょうか
よろしくお願いします。
 
 
 

回答
投稿日時: 20/04/30 19:30:31
投稿者: MMYS

SELECT Q工事仕訳伝票明細.*
INTO FROM Q工事仕訳伝票明細
WHERE [月度] >= 値 and [月度] <= 値 and ([工事NO] Between '値' And '値')
 
上記は正しい SQL ですか。
 
 
 
 

回答
投稿日時: 20/04/30 19:31:41
投稿者: MMYS

miyama2305 さんの引用:

Q工事仕訳伝票明細はT工事仕訳伝票明細をそのままコピーしました

意味が分かりません。コピーとはどういう意味ですか。
 

投稿日時: 20/05/01 11:23:22
投稿者: miyama2305

MMYS様 何度もすいません
>WHERE [月度] >= 値 and [月度] <= 値 and ([工事NO] Between '値' And '値')
月度が誤りでした。
「月」です
 
Q工事仕訳伝票明細はT工事仕訳伝票明細をそのままコピーしました
>意味が分かりません。コピーとはどういう意味ですか。
T工事仕訳伝票明細に変更しました。
 
エラーがなくなりました。
ありがとうございました。