![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
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
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_10.png?5a7ff87)
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(アクセス)
-
VBA内でSQL(UPDATEをループ処理)したいのですが
Access(アクセス)
-
クエリのループ処理がしたいです
Access(アクセス)
-
-
4
Accessのテーブルデータを一気にVBAで追加したい・・
その他(データベース)
-
5
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
6
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
7
Access 同じデータをたくさんのレコード(同一列)に一度に入力するには
Access(アクセス)
-
8
Accessのフォーム上にレコード数とレコード番号の表示
その他(データベース)
-
9
ACCESS で 項目名を出力せずにエクスポートしたい
その他(データベース)
-
10
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
11
Access2003 クエリで、空の列は作れますか?
Access(アクセス)
-
12
Access テキスト型に対する指定桁での0埋め方法
その他(データベース)
-
13
追加クエリで特定フィールドの数値分、レコードをコピーしたい。
Access(アクセス)
-
14
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
15
AccessのWHERE句において、変数は使用できますか?
Access(アクセス)
-
16
ACCESS──メインフォームでサブフォームのレコード件数をカウントしたい
Access(アクセス)
-
17
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
18
AccessVBAで他テーブルのデータを取得する方法について。
Visual Basic(VBA)
-
19
【Access】クエリで抽出したデータをCSV形式でエクスポートできますか?
Access(アクセス)
-
20
アクセスの追加クエリで教えてください。
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワンクリック詐欺
-
エクセル07 ピポットテーブ...
-
モバイルスイカってクレジット...
-
paypalを用いて、海外からの入...
-
ループで呼び出しながら、追加...
-
楽天より以下のショートメッセ...
-
ネット通販で商品購入時、メー...
-
楽天で買う時gmailは使えますか?
-
FC2動画に間違って未成年なのに...
-
楽天市場の購入履歴
-
懸賞七福神ってところから来た...
-
楽天市場で買い物後、登録して...
-
買い物をしたら迷惑メールが増える
-
楽天でメールを登録ミスかも・...
-
至急:楽天の不始末によりカー...
-
クリックポストの追跡番号の設...
-
TOTOウォシュレット購入した際...
-
楽天で購入して到着した商品の...
-
楽天モバイルの名義変更方法
-
マイクラ購入
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ループで呼び出しながら、追加...
-
Excelで締切日から何日経過して...
-
えきねっと事前受付について 新...
-
~「処理」を英語で?
-
エクセルで、預金などの入金デ...
-
何度もすみません 振込手数料は...
-
大至急! スカイマークの入金...
-
CICの入金状況の表示について
-
急ぎです。教えてください。
-
アダルトサイトの入金画面が消...
-
即入金を求められているのです...
-
エクセルで3ヶ月後の入金予定月...
-
【知人のウソ?】補助金による...
-
仮予約と本契約の間にキャンセ...
-
JTBやHISの旅行代理店の旅行代...
-
任意整理後の滞納について
-
先程iTunesカード1500円分を購...
-
東京23区の方に質問です 10万円...
-
モバイルスイカってクレジット...
-
paypalを用いて、海外からの入...
おすすめ情報