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(アクセス)
-
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
VBA内でSQL(UPDATEをループ処理)したいのですが
Access(アクセス)
-
-
4
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
5
Accessのフォーム上にレコード数とレコード番号の表示
その他(データベース)
-
6
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
7
アクセスVBAのMe!と[ ]
Access(アクセス)
-
8
Access 同じデータをたくさんのレコード(同一列)に一度に入力するには
Access(アクセス)
-
9
Access2003 クエリで、空の列は作れますか?
Access(アクセス)
-
10
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
11
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
12
AccessのWHERE句において、変数は使用できますか?
Access(アクセス)
-
13
ACCESS──メインフォームでサブフォームのレコード件数をカウントしたい
Access(アクセス)
-
14
カレントレコードが無い事を判定させる方法
Visual Basic(VBA)
-
15
DLookupがうまく出来ません
Access(アクセス)
-
16
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
17
クエリのループ処理がしたいです
Access(アクセス)
-
18
Accessにインポートしたら並び順が変わっちゃった
Access(アクセス)
-
19
【Access】クエリで抽出したデータをCSV形式でエクスポートできますか?
Access(アクセス)
-
20
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
paypalを用いて、海外からの入...
-
QRコード決済とは
-
カレンダーアプリのジョルテを...
-
楽天より以下のショートメッセ...
-
間違ったメールアドレスに、個...
-
ネット通販で商品購入時、メー...
-
楽天、ネット 楽天カードに登録...
-
楽天で買う時gmailは使えますか?
-
Microsoft Office 2021 Pro plu...
-
iHerbでの入手できなくなったも...
-
ぷりんと楽譜で購入した楽譜を...
-
チケットは本物??
-
買い物をしたら迷惑メールが増える
-
チケット流通の利用について、...
-
懸賞七福神ってところから来た...
-
楽天e-Navi残高の確認
-
マケプレお急ぎ便 とは金銭が発...
-
Qoo10て詐欺なんか? 購入して...
-
チケット流通センターは、ムカ...
-
楽天会員、楽天で買い物をした...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ループで呼び出しながら、追加...
-
~「処理」を英語で?
-
えきねっと事前受付について 新...
-
Excelで締切日から何日経過して...
-
Edy間違いなくチャージしたのに...
-
別のセルを参照して同一ならば”...
-
paypalを用いて、海外からの入...
-
スタバのカード買った時に入金...
-
JTBやHISの旅行代理店の旅行代...
-
即入金を求められているのです...
-
楽天より以下のショートメッセ...
-
ネット通販で商品購入時、メー...
-
カレンダーアプリのジョルテを...
-
間違ったメールアドレスに、個...
-
教えてください。楽天LINK...
-
Microsoft Office 2021 Pro plu...
-
iHerbでの入手できなくなったも...
-
楽天、ネット 楽天カードに登録...
-
楽天カードについて
-
楽天市場の購入履歴
おすすめ情報