Microsoft Access 掲示板

可能です。
下記はVBAで追加クエリのSQLを実行する場合のコード例です。

Private Sub 追加_Click()
    Dim stSQL As String, mainID As Long
    
    'メインテーブルへの追加クエリのSQL
    stSQL = "INSERT INTO メインテーブル (フィールド1, フィールド2) " & _
            "VALUES ('" & Me.テキスト1 & "','" & Me.テキスト2 & "');"
    CurrentDb.Execute stSQL, dbFailOnError '追加クエリの実行
    
    mainID = DMax("メインID", "メインテーブル") '追加したレコードのメインID取得
    
    'サブテーブルへの追加クエリのSQL（1レコード目）
    stSQL = "INSERT INTO メインテーブル (メインID, フィールド1, フィールド2) " & _
            "VALUES (" & mainID & "'" & Me.テキスト3 & "','" & Me.テキスト4 & "');"
    CurrentDb.Execute stSQL, dbFailOnError '追加クエリの実行
    
    'サブテーブルへの追加クエリのSQL（2レコード目）
    stSQL = "INSERT INTO メインテーブル (メインID, フィールド1, フィールド2) " & _
            "VALUES (" & mainID & "'" & Me.テキスト5 & "','" & Me.テキスト6 & "');"
    CurrentDb.Execute stSQL, dbFailOnError '追加クエリの実行

End Sub

詳細が不明なので、テーブル名、フィールド名、コントロール名は適当ですので雰囲気だけつかんで、あとは状況に合わせて改修してください。