Access表形式(非連結)のサブフォームに新規行追加

Question

現在、Accessでサブフォームの画面を作成しています。

そこでORACLEDBから取得したレコードを表形式のサブフォームに表示させたいと考えています。
DBから取得したレコード分だけサブフォームの表に行を新規追加してそこに取得したレコードを設定していこうと思っているのですが、行を追加するところでやり方がわからず困っています。
ここで使用しているフォームはテーブルとはリンクしていない非連結のフォームです。
必要な時以外でのDBへのアクセスをなくしたいため、非連結で作成しています。

今のコードの抜粋はこんな感じです。

strSQL = "SELECT COL1"
strSQL = strSQL & " , COL2"
strSQL = strSQL & " , COL3"
strSQL = strSQL & " , COL4"
strSQL = strSQL & " , COL5"
strSQL = strSQL & " , COL6"
strSQL = strSQL & " , COL7"
strSQL = strSQL & " FROM TABLE"
Set qry = db.CreateQueryDef("", strSQL)
Set rs = qry.OpenRecordset

'最終行まで移動
rs.MoveLast

'検索結果が存在する場合
If rs.RecordCount >= 1 Then
    For i = 1 To rs.RecordCount
        '2レコード目以降は行を追加してからデータセット
        If i > 1 Then
            With Me.サブフォーム.Form
                .AllowAdditions = True
                With .Recordset
                    .AddNew　←ここでエラーとなります。
                    .Update
                End With
            End With
        End If
    Next
    Me.F_CHUMONDATAMENTE_MEISAI.Form.AllowAdditions = False
    
End If

わかる方いらっしゃいましたら教えてください。
よろしくお願いします。

Answer 1

非連結のフォームでは1件のデータしか表示できません。

作業用テーブルと連結させてください。

Comments

[programer]

早々のご回答ありがとうございます。
非連結のフォームでは行の追加は不可能ということですか。
ワークテーブルを使用するやり方で進めてみます。

[programer]

度々申し訳ございません。
ワークテーブルと連結させた場合、入力時に自動で更新処理が走ってしまうと思うのですが、入力だけしてコマンドボタンクリックした場合のみサブフォームに入力した値をワークテーブルに反映させるということは可能なのでしょうか？

[hatena19]

ワークテーブルなので、元のテーブルとは切り離されてますので、反映されても問題ないと思いますが。
コマンドボタンで元テーブルに反映させるようにすればいいかと。

それとも、下記のようなことでしょうか。

レコード入力時に「保存」コマンドボタンでのみレコード保存できるようにする - hatena chips
https://hatenachips.blog.fc2.com/blog-entry-162.html

[programer]

たしかによく考えればそうでした。
ワークテーブルにNULLや空を許可しない設定がしてあったため、空にしてセルを移動しただけでエラーが出るのは使いづらいと思っていましたが、テーブルの設定を変更することで解決できました。
ありがとうございました。

Answer 2

フォームをデータベースのテーブルと連結するのは止めた方が良いので賛同しますが、ローカルのテーブルを作成し、そのテーブルと連結させると、そのワークテーブルに追加削除することで、連結フォームの恩恵を受ける事が出来ます。

Comments

[programer]

早々のご回答ありがとうございます。
ローカルテーブルの使用を検討してみます。