IDをループで呼び出しながら、追加クエリでテーブルに追加したいのですが、
値が入りません。
エラーなく動くのですが、テーブルに値が入っていないのです。
何がたりないのでしょうか?
―――――――――――――
Public Sub CYUSYUTU_SEIKYUID2()
Dim CYUSYUTU_SEIKYUID As String
Dim recCount As Long
recCount = DCount("*", "作業用請求先ID")
Dim ID As String
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim i As Integer
Dim strSQL As String
Set DB = CurrentDb
Set RS = DB.OpenRecordset("作業用請求先ID")
RS.MoveFirst
Do Until RS.EOF
RS.Edit
For i = 1 To recCount
CYUSYUTU_SEIKYUID = RS.Fields("請求先ID(13)").Value
DoCmd.RunSQL _
"INSERT INTO [作業用_▲入金DB] SELECT * FROM ▲入金 WHERE ▲入金.請求先ID='& CYUSYUTU_SEIKYUID &';"
Next i
RS.Update
RS.MoveNext
Loop
RS.Close: Set RS = Nothing
DB.Close: Set DB = Nothing
End Sub
No.1ベストアンサー
- 回答日時:
直接の原因はここかと↓
"INSERT INTO [作業用_▲入金DB] SELECT * FROM ▲入金 WHERE ▲入金.請求先ID='& CYUSYUTU_SEIKYUID &';"
↓↓↓
"INSERT INTO [作業用_▲入金DB] SELECT * FROM ▲入金 WHERE ▲入金.請求先ID='" & CYUSYUTU_SEIKYUID & "';"
変数は""の外に出してやらないと変数として機能しません。(""内の文字列と「&」で連結します)
後は余計なお世話かもですが・・・
・Do~Loop(rs.MoveNext)で全レコード分ループさせるのでFor~Nextは不要です
・DAOで開いたレコードセット自体を更新しないのであれば、RS.EditとRS.Updateも不要です
あとは、使用していない変数がいくつか宣言されているようですが・・・
(もしコードの提示を省略しているだけで実際は使用しているとかでしたらすみません)
もし質問文内のコードが全てなのであれば、これだけで大丈夫かと思います。
Public Sub CYUSYUTU_SEIKYUID2()
Dim CYUSYUTU_SEIKYUID As String
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Set DB = CurrentDb
Set RS = DB.OpenRecordset("作業用請求先ID")
RS.MoveFirst
Do Until RS.EOF
CYUSYUTU_SEIKYUID = RS.Fields("請求先ID(13)").Value
DoCmd.RunSQL "INSERT INTO [作業用_▲入金DB] SELECT * FROM ▲入金 WHERE ▲入金.請求先ID='" & CYUSYUTU_SEIKYUID & "';"
RS.MoveNext
Loop
RS.Close: Set RS = Nothing
DB.Close: Set DB = Nothing
End Sub
まだまだ勉強中の為、ウェブからコピーしたものを使って作っていたので、余分なものが入ってました。いらないことが分かって勉強になりました。ありがとうございます。これでやりたい作業ができました!また宜しくお願いします。
No.2
- 回答日時:
ループするのは必須でしょうか
追加クエリ1つでできそうですけど
Dim sSql As String
sSql = "INSERT INTO [作業用_▲入金DB] " _
& "SELECT * FROM ▲入金 WHERE ▲入金.請求先ID IN " _
& "(SELECT [請求先ID(13)] FROM 作業用請求先ID);"
CurrentDb.Execute sSql
※ メモ帳に書いただけなので、綴りとか動作未検証
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) データベースから絞り込んでデータを読み込み 1 2023/02/21 19:51
- Access(アクセス) アクセス テーブルの空白を変数に置換するボタンが作りたい 4 2022/07/08 11:19
- Visual Basic(VBA) ACCESS DAO で不要なテーブルのフィールド(列)の削除 4 2022/06/23 12:13
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) 2つ目のコンボボックスが動作しません。 3 2023/03/25 12:29
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
Accessのテーブルデータを一気にVBAで追加したい・・
その他(データベース)
-
クエリのループ処理がしたいです
Access(アクセス)
-
-
4
VBA内でSQL(UPDATEをループ処理)したいのですが
Access(アクセス)
-
5
Accessのフォーム上にレコード数とレコード番号の表示
その他(データベース)
-
6
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
7
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
8
ACCESS で 項目名を出力せずにエクスポートしたい
その他(データベース)
-
9
Access テキスト型に対する指定桁での0埋め方法
その他(データベース)
-
10
追加クエリで特定フィールドの数値分、レコードをコピーしたい。
Access(アクセス)
-
11
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
12
AccessVBAで他テーブルのデータを取得する方法について。
Visual Basic(VBA)
-
13
ACCESS──メインフォームでサブフォームのレコード件数をカウントしたい
Access(アクセス)
-
14
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
15
アクセスの追加クエリで教えてください。
Access(アクセス)
-
16
【Access】クエリで抽出したデータをCSV形式でエクスポートできますか?
Access(アクセス)
-
17
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
18
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
19
アクセスVBAのMe!と[ ]
Access(アクセス)
-
20
テキストボックスにクエリ結果を表示させたい
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ループで呼び出しながら、追加...
-
何度もすみません 振込手数料は...
-
~「処理」を英語で?
-
えきねっと事前受付について 新...
-
楽天より以下のショートメッセ...
-
教えてください。楽天LINK...
-
浜田省吾さんの2018今年のコン...
-
ページ閲覧履歴!?
-
ネット通販で商品購入時、メー...
-
届いたチケットが偽造かどうか...
-
楽天カードについて
-
Amazonさんで、文庫本を買う時...
-
ノルウェー国民の生活に関する...
-
チケット流通センター トラブル
-
楽天、ネット 楽天カードに登録...
-
楽天市場の購入履歴
-
チケットは本物??
-
カレンダーアプリのジョルテを...
-
電子チケットぴあとちょコム
-
楽天が又、やらかしてくれました。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ループで呼び出しながら、追加...
-
えきねっと事前受付について 新...
-
Excelで締切日から何日経過して...
-
モバイルスイカってクレジット...
-
何度もすみません 振込手数料は...
-
エクセル07 ピポットテーブ...
-
Qoo10の共同購入で、あと12日...
-
任意整理後の滞納について
-
ロリポップのお試し期間と入金...
-
間違って有料サイトに登録
-
アダルトサイトのワンクリック...
-
【知人のウソ?】補助金による...
-
エクセルで3ヶ月後の入金予定月...
-
アダルトサイトの入金画面が消...
-
paypalを用いて、海外からの入...
-
【ACCESS2000】 VBAの更新処理...
-
LINEに振り込んだ金はどうやっ...
-
ワンクリック詐欺
-
JTBやHISの旅行代理店の旅行代...
-
東京23区の方に質問です 10万円...
おすすめ情報