Microsoft Access 掲示板

下記はDAOを使って新規追加する場合のコード例です。
こちらの方が分かりやすいかもしれません。

Private Sub 追加_Click()
    Dim rs As DAO.Recordset, mainID As Long
    Set rs = CurrentDb.OpenRecordset("メインテーブル", dbOpenTable, dbAppendOnly)
    rs.AddNew
    rs!フィールド1 = Me.テキスト1
    rs!フィールド2 = Me.テキスト2
    mainID = rs!メインID
    rs.Update
    rs.Close

    Set rs = CurrentDb.OpenRecordset("サブテーブル", dbOpenTable, dbAppendOnly)    
    rs.AddNew
    rs!メインID = mainID
    rs!フィールド1 = Me.テキスト3
    rs!フィールド2 = Me.テキスト4
    mainID = rs!メインID
    rs.Update

    rs.AddNew
    rs!メインID = mainID
    rs!フィールド1 = Me.テキスト5
    rs!フィールド2 = Me.テキスト6
    mainID = rs!メインID
    rs.Update
    rs.Close

End Sub