Microsoft Access 掲示板

追加クエリで対応しようとトライしていましたが、不可能な気がしてきました。
メインとサブがある部分で引っかかってしまいます。
どのような方法があるかご教示いただけると助かります。

追加クエリでカレントレコードのメイン、サブ共にオートナンバーのID部分以外を追加する。
といった感じで可能でしょうか。

それで可能ですよ。

まずは、メインの方を追加してから、サブを追加という順番になります。
メインを追加した後で、オートナンバーのIDの最大値（＝追加したレコードのID)を取得して、
サブの外部キーの値にします。

下記のような感じのコードになります。

    Dim sSQL As String
    
    sSQL = "INSERT INTO メイン (フィールド1, フィールド2, ・・ ) " & _
           "SELECT フィールド1, フィールド2, ・・  FROM メイン " & _
           "WHERE 主キーフィールド=" & Me.主キーフィールド
    CurrentDb.Execute sSQL, dbFailOnError
    
    
    Dim maxID As Long
    maxID = DMax("主キーフィールド", "メイン")
    
    sSQL = "INSERT INTO サブ (" & maxID & ", フィールド1, フィールド2, ・・ ) " & _
           "SELECT リンクフィールド, フィールド1, フィールド2, ・・  FROM サブ " & _
           "WHERE リンクフィールド=" & Me.主キーフィールド
    CurrentDb.Execute sSQL, dbFailOnError

ありがとうございます！クエリの中身までVBAで記載する勉強にもなりました。

VBAを教えていただいたのですが、accessのクエリで作成してみようと思ったところつまづいてしまいました。
メインはうまく追加できるのですが、サブの追加クエリがエラーで止まってしまいます。
（エラーを飛ばしてメインだけ作成されたりもする）

INSERT INTO  サブ( フィールド１,フィールド２,… [DMax主キーフィールド", "メイン")], フィールド11 )
SELECT .サブ[フィールド1], サブ.[フィールド２],…, サブ.リンクフィールド, フィールド11
FROM サブ
WHERE (((サブ.リンクフィールド)=[forms]![メイン]![主キーフィールド]));

エラー内容
⇒INSERT INTO　ステートメントに、認識できないフィールド'DMamx(・・・・)'があります。名前が正しいことを確認して、再度実行してください。

力不足で申し訳ありません。ご助言宜しくお願いいたします。

コードに一部ミスがありましたので記載しなおします。
また、エラーもDMamxと記載してしまいましたが、DMaxの書き間違いです。スミマセン

INSERT INTO  サブ( フィールド１,フィールド２,… [DMax("主キーフィールド", "メイン")], フィールド11 )
SELECT .サブ[フィールド1], サブ.[フィールド２],…, サブ.リンクフィールド, フィールド11
FROM サブ
WHERE (((サブ.リンクフィールド)=[forms]![メイン]![主キーフィールド]));

[DMax("主キーフィールド", "メイン")]
の部分は、[]で囲まずに、
DMax("主キーフィールド", "メイン")
に修正してください。

[]で囲むとフィールド名して認識されます。

教えていただいたVBAで全て書き直したところ下記のエラーが出ます。

INSERT INTO ステートメントに、認識できないフィールド「11」があります。名前が正しいことを確認して、再度実行してください。

ちなみに11というのは maxIDと同じ値になっています。

あー！すみません。コード間違ってました。
DMax は SELECT文の方にいれないとだめでした。

INSERT INTO  サブ( フィールド１,フィールド２,… リンクフィールド, , フィールド11)
SELECT サブ.[フィールド1], サブ.[フィールド２],…, DMax("主キーフィールド", "メイン"), フィールド11
FROM サブ
WHERE (((サブ.リンクフィールド)=[forms]![メイン]![主キーフィールド]));